version 1.23, 2014/02/28 19:20:06
|
version 1.24, 2014/12/12 14:21:22
|
Line 380 sub parse_grade_answer {
|
Line 380 sub parse_grade_answer {
|
'DRAFT' => &mt('Copy saved but not submitted.'), |
'DRAFT' => &mt('Copy saved but not submitted.'), |
); |
); |
|
|
foreach my $key (keys %answerhash) { |
foreach my $key (keys(%answerhash)) { |
if($shortcut eq $key) { |
if($shortcut eq $key) { |
return $answerhash{$shortcut}; |
return $answerhash{$shortcut}; |
} |
} |
Line 394 sub dumpenv {
|
Line 394 sub dumpenv {
|
my $r = shift; |
my $r = shift; |
|
|
$r->print ("<br />-------------------<br />"); |
$r->print ("<br />-------------------<br />"); |
foreach my $key (sort (keys %env)) { |
foreach my $key (sort(keys(%env))) { |
$r->print ("<br />$key -> $env{$key}"); |
$r->print ("<br />$key -> $env{$key}"); |
} |
} |
$r->print ("<br />-------------------<br />"); |
$r->print ("<br />-------------------<br />"); |
$r->print ("<br />-------------------<br />"); |
$r->print ("<br />-------------------<br />"); |
foreach my $key (sort (keys %ENV)) { |
foreach my $key (sort(keys(%ENV))) { |
$r->print ("<br />$key -> $ENV{$key}"); |
$r->print ("<br />$key -> $ENV{$key}"); |
} |
} |
$r->print ("<br />-------------------<br />"); |
$r->print ("<br />-------------------<br />"); |