version 1.85, 2007/09/25 23:16:13
|
version 1.87, 2007/09/25 23:47:59
|
Line 237 sub displayfoils {
|
Line 237 sub displayfoils {
|
} else { |
} else { |
my $respid=$Apache::inputtags::response['-1']; |
my $respid=$Apache::inputtags::response['-1']; |
my $token=&prep_image($image,'submission',$name); |
my $token=&prep_image($image,'submission',$name); |
my $id = "HWVAL_$respid:$temp"; |
my $input_id = "HWVAL_$respid:$temp"; |
|
my $id = $env{'form.request.prefix'}.$input_id; |
$result.='<img onclick="image_response_click(\''.$id.'\',event);" |
$result.='<img onclick="image_response_click(\''.$id.'\',event);" |
src="/adm/randomlabel.png?token='.$token.'" |
src="/adm/randomlabel.png?token='.$token.'" |
id="imageresponse_'.$id.'" |
id="'.$id.'_imageresponse" |
/>'. |
/>'. |
'<br />'. |
'<br />'. |
'<input type="hidden" name="token_'.$id.'" value="'.$token.'" />'. |
'<input type="hidden" name="'.$input_id.'_token" value="'.$token.'" />'. |
'<input type="hidden" name="'.$id.'" value="'. |
'<input type="hidden" name="'.$input_id.'" value="'. |
join(':',&get_submission($name)).'" />'; |
join(':',&get_submission($name)).'" />'; |
} |
} |
} |
} |
Line 376 sub gradefoils {
|
Line 377 sub gradefoils {
|
|
|
sub stringify_submission { |
sub stringify_submission { |
my ($response) = @_; |
my ($response) = @_; |
return |
return &Apache::lonnet::hash2str(%{ $response }); |
join("\0",map {$_."\1".$response->{$_}} (sort(keys(%{ $response })))); |
|
|
|
} |
} |
|
|
Line 391 sub get_submission {
|
Line 392 sub get_submission {
|
$Apache::lonhomework::history{"resource.$part.$respid.submission"}; |
$Apache::lonhomework::history{"resource.$part.$respid.submission"}; |
} |
} |
|
|
if ($string !~ /\0/) { |
if ($string !~ /=/) { |
return split(':',$string); |
return split(':',$string); |
} else { |
} else { |
my %response = map { split("\1",$_,2) } (split("\0",$string)); |
my %response = &Apache::lonnet::str2hash($string); |
return split(':',$response{$name}); |
return split(':',$response{$name}); |
} |
} |
} |
} |