version 1.93, 2004/08/30 02:03:44
|
version 1.96, 2004/10/21 03:34:06
|
Line 118 sub storesurvey {
|
Line 118 sub storesurvey {
|
my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']}; |
my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']}; |
&Apache::lonxml::debug("Here I am!:$response:"); |
&Apache::lonxml::debug("Here I am!:$response:"); |
if ( $response !~ /[0-9]+/) { return ''; } |
if ( $response !~ /[0-9]+/) { return ''; } |
|
my $part = $Apache::inputtags::part; |
my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
my @whichfoils=@{ $Apache::response::foilgroup{'names'} }; |
my @whichfoils=@{ $Apache::response::foilgroup{'names'} }; |
my %responsehash; |
my %responsehash; |
$responsehash{$whichfoils[$response]}=$response; |
$responsehash{$whichfoils[$response]}=$response; |
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=&Apache::lonnet::hash2str(%responsehash); |
my $responsestr=&Apache::lonnet::hash2str(%responsehash); |
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='SUBMITTED'; |
$Apache::lonhomework::results{"resource.$part.$id.submission"}= |
|
$responsestr; |
|
my %previous=&Apache::response::check_for_previous($responsestr,$part,$id); |
|
my $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED'; |
|
&Apache::response::handle_previous(\%previous,$ad); |
&Apache::lonxml::debug("submitted a $response<br />\n"); |
&Apache::lonxml::debug("submitted a $response<br />\n"); |
return ''; |
return ''; |
} |
} |
Line 260 sub displayallfoils {
|
Line 265 sub displayallfoils {
|
} else { |
} else { |
$result.="<br />"; |
$result.="<br />"; |
} |
} |
|
$result .= '<label>'; |
$result.="<input type=\"radio\" name=\"HWVAL_$Apache::inputtags::response['-1']\" value=\"$temp\" "; |
$result.="<input type=\"radio\" name=\"HWVAL_$Apache::inputtags::response['-1']\" value=\"$temp\" "; |
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; } |
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; } |
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>"; |
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}. |
|
'</label>'; |
$temp++; |
$temp++; |
if ($direction eq 'horizontal') { $result.="</td>"; } |
if ($direction eq 'horizontal') { $result.="</td>"; } |
} |
} |
Line 433 sub displayfoils {
|
Line 440 sub displayfoils {
|
} else { |
} else { |
$result.='Incorrect:'; |
$result.='Incorrect:'; |
} |
} |
|
if ($target eq 'web') { $result.="<label>"; } |
$result.=$Apache::response::foilgroup{$name.'.text'}; |
$result.=$Apache::response::foilgroup{$name.'.text'}; |
if ($target eq 'web') { $result.="</input>"; } |
if ($target eq 'web') { $result.="</label>"; } |
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { |
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { |
if ($target ne 'tex') { $result.='</b>';} else {$result.='}';} |
if ($target ne 'tex') { $result.='</b>';} else {$result.='}';} |
} |
} |
Line 467 sub displayfoils {
|
Line 475 sub displayfoils {
|
} |
} |
} |
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
|
$result.= '<label>'; |
$result.="<input type=\"radio\" name=\"HWVAL_$Apache::inputtags::response['-1']\" value=\"$temp\" "; |
$result.="<input type=\"radio\" name=\"HWVAL_$Apache::inputtags::response['-1']\" value=\"$temp\" "; |
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; } |
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; } |
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>"; |
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</label>"; |
} else { |
} else { |
if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
$result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |
$result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |
Line 558 sub start_foil {
|
Line 567 sub start_foil {
|
my $result=''; |
my $result=''; |
if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { |
if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { |
&Apache::lonxml::startredirection; |
&Apache::lonxml::startredirection; |
|
if ($target eq 'analyze') { |
|
&Apache::response::check_if_computed($token,$parstack,$safeeval,'value'); |
|
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result=&Apache::edit::tag_start($target,$token); |
$result=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::text_arg('Name:','name',$token); |
$result.=&Apache::edit::text_arg('Name:','name',$token); |