version 1.5, 2002/08/13 00:37:18
|
version 1.6, 2002/08/13 14:44:33
|
Line 381 sub InitAnalysis {
|
Line 381 sub InitAnalysis {
|
'grade_domain' => $domain, |
'grade_domain' => $domain, |
'grade_courseid' => $courseID, |
'grade_courseid' => $courseID, |
'grade_symb' => $problem)); |
'grade_symb' => $problem)); |
my ($a)=&Apache::lonnet::str2hashref($Answ); |
my ($Answer)=&Apache::lonnet::str2hashref($Answ); |
my %b; |
|
foreach (keys(%$a)) { |
|
$b{&Apache::lonnet::unescape($_)} = $a->{$_}; |
|
} |
|
my $Answer=\%b; |
|
|
|
my $found = 0; |
my $found = 0; |
my @parts=(); |
my @parts=(); |