version 1.107, 2004/12/03 21:53:59
|
version 1.108, 2004/12/06 16:22:21
|
Line 1778 sub OR_build_response_data_worksheet {
|
Line 1778 sub OR_build_response_data_worksheet {
|
my ($foilid,$correct) = split('=',$Foilgrades[$j]); |
my ($foilid,$correct) = split('=',$Foilgrades[$j]); |
my (undef,$submission) = split('=',$Foilsubs[$j]); |
my (undef,$submission) = split('=',$Foilsubs[$j]); |
$submission = &Apache::lonnet::unescape($submission); |
$submission = &Apache::lonnet::unescape($submission); |
|
$foilid = &Apache::lonnet::unescape($foilid); |
$response_data{$foilid.' submission'}=$submission; |
$response_data{$foilid.' submission'}=$submission; |
$response_data{$foilid.' award'}=$correct; |
$response_data{$foilid.' award'}=$correct; |
} |
} |