version 1.13, 2004/12/14 18:24:17
|
version 1.15, 2005/04/07 06:56:22
|
Line 56 sub rawrendering {
|
Line 56 sub rawrendering {
|
'simple_edit_button' => 'off', |
'simple_edit_button' => 'off', |
'devalidatecourseresdata'=>'on'); |
'devalidatecourseresdata'=>'on'); |
return &Apache::loncommon::get_student_view($symb,time,time, |
return &Apache::loncommon::get_student_view($symb,time,time, |
$ENV{'request.course.id'}, |
$env{'request.course.id'}, |
'web',\%data); |
'web',\%data); |
} |
} |
|
|
Line 66 sub questiontext {
|
Line 66 sub questiontext {
|
return (<<ENDQUESTION); |
return (<<ENDQUESTION); |
<table bgcolor="#dddd22" cellspacing="4" cellpadding="2"> |
<table bgcolor="#dddd22" cellspacing="4" cellpadding="2"> |
<tr><td><b>$qt</b><br /> |
<tr><td><b>$qt</b><br /> |
<textarea name="questiontext" cols="80" rows="8">$text</textarea> |
<textarea style="width:100%" name="questiontext" cols="80" rows="8">$text</textarea> |
</td></tr> |
</td></tr> |
</table> |
</table> |
<br /> |
<br /> |
Line 79 sub hint {
|
Line 79 sub hint {
|
return (<<ENDHINT); |
return (<<ENDHINT); |
<table bgcolor="#accacc" cellspacing="4" cellpadding="2"> |
<table bgcolor="#accacc" cellspacing="4" cellpadding="2"> |
<tr><td><b>$ht</b><br /> |
<tr><td><b>$ht</b><br /> |
<textarea name="hinttext" cols="80" rows="4">$text</textarea> |
<textarea style="width:100%" name="hinttext" cols="80" rows="4">$text</textarea> |
</td></tr> |
</td></tr> |
</table> |
</table> |
<br /> |
<br /> |
Line 121 sub foil {
|
Line 121 sub foil {
|
<tr><td colspan="2"><b>$lt{'foil'}</b></td></tr> |
<tr><td colspan="2"><b>$lt{'foil'}</b></td></tr> |
<tr><td>$lt{'value'}: $selectvalue</td><td>$lt{'pos'}: $selectposition</td></tr> |
<tr><td>$lt{'value'}: $selectvalue</td><td>$lt{'pos'}: $selectposition</td></tr> |
<tr><td colspan="2">$lt{'text'}:<br /> |
<tr><td colspan="2">$lt{'text'}:<br /> |
<textarea name="text$number" cols="80" rows="4">$text</textarea> |
<textarea style="width:100%" name="text$number" cols="80" rows="4">$text</textarea> |
</td></tr> |
</td></tr> |
</table> |
</table> |
<br /> |
<br /> |
Line 150 sub handler {
|
Line 150 sub handler {
|
} |
} |
|
|
# -------------------------------------------------------------------- Allowed? |
# -------------------------------------------------------------------- Allowed? |
unless (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) { |
unless (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
# ----------------------------------------------------------------- Send header |
# ----------------------------------------------------------------- Send header |
Line 162 sub handler {
|
Line 162 sub handler {
|
my $symb=&Apache::lonnet::symbread(); |
my $symb=&Apache::lonnet::symbread(); |
|
|
# ------------------------------------------------ Prefix for everything stored |
# ------------------------------------------------ Prefix for everything stored |
$prefix=$ENV{'request.course.id'}.'.'.$symb.'.0.'; |
$prefix=$env{'request.course.id'}.'.'.$symb.'.0.'; |
# ---------------------------------------------------------- Anything to store? |
# ---------------------------------------------------------- Anything to store? |
|
|
if (($symb) && (defined($ENV{'form.questiontype'}))) { |
if (($symb) && (defined($env{'form.questiontype'}))) { |
my %storecontent=(); |
my %storecontent=(); |
undef %storecontent; |
undef %storecontent; |
if ($ENV{'form.questiontype'} eq 'option') { |
if ($env{'form.questiontype'} eq 'option') { |
my %curoptions=&evaloptionhash($ENV{'form.options'}); |
my %curoptions=&evaloptionhash($env{'form.options'}); |
if ($ENV{'form.delopt'}) { |
if ($env{'form.delopt'}) { |
delete $curoptions{$ENV{'form.delopt'}}; |
delete $curoptions{$env{'form.delopt'}}; |
} |
} |
if ($ENV{'form.newopt'}) { |
if ($env{'form.newopt'}) { |
$ENV{'form.newopt'}=~s/\'/\\\'/g; |
$env{'form.newopt'}=~s/\'/\\\'/g; |
$curoptions{$ENV{'form.newopt'}}=$ENV{'form.newopt'}; |
$curoptions{$env{'form.newopt'}}=$env{'form.newopt'}; |
} |
} |
$ENV{'form.options'}="('".join("','",keys %curoptions)."')"; |
$env{'form.options'}="('".join("','",keys %curoptions)."')"; |
} |
} |
$ENV{'form.hiddenparts'}='!'.$ENV{'form.questiontype'}; |
$env{'form.hiddenparts'}='!'.$env{'form.questiontype'}; |
foreach (keys %ENV) { |
foreach (keys %env) { |
if ($_=~/^form\.(\w+)$/) { |
if ($_=~/^form\.(\w+)$/) { |
my $parm=$1; |
my $parm=$1; |
$storecontent{$prefix.$parm}=$ENV{'form.'.$parm}; |
$storecontent{$prefix.$parm}=$env{'form.'.$parm}; |
$storecontent{$prefix.$parm}=~s/^\s+//s; |
$storecontent{$prefix.$parm}=~s/^\s+//s; |
$storecontent{$prefix.$parm}=~s/\s+$//s; |
$storecontent{$prefix.$parm}=~s/\s+$//s; |
} |
} |
} |
} |
my $reply=&Apache::lonnet::cput |
my $reply=&Apache::lonnet::cput |
('resourcedata',\%storecontent, |
('resourcedata',\%storecontent, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
|
|
} |
} |
# ------------------------------------------------------------------- Read Data |
# ------------------------------------------------------------------- Read Data |
|
|
%qparms=&Apache::lonnet::dump('resourcedata', |
%qparms=&Apache::lonnet::dump('resourcedata', |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}, |
$env{'course.'.$env{'request.course.id'}.'.num'}, |
$ENV{'request.course.id'}.'.'.$symb); |
$env{'request.course.id'}.'.'.$symb); |
|
|
# ------------------------------------------------------------ Print the screen |
# ------------------------------------------------------------ Print the screen |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |