version 1.85, 2007/09/25 23:16:13
|
version 1.86, 2007/09/25 23:45:33
|
Line 376 sub gradefoils {
|
Line 376 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 391 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}); |
} |
} |
} |
} |