version 1.23, 2014/02/28 19:20:06
|
version 1.25, 2015/06/09 21:22:57
|
Line 122 sub handler() {
|
Line 122 sub handler() {
|
sub get_javascripts() { |
sub get_javascripts() { |
|
|
my $message = &mt('Please choose a PDF-File.'); |
my $message = &mt('Please choose a PDF-File.'); |
|
&js_escape(\$message); |
|
|
# simple test if the upload ends with ".pdf" |
# simple test if the upload ends with ".pdf" |
# it's only for giving a message to the user |
# it's only for giving a message to the user |
Line 380 sub parse_grade_answer {
|
Line 381 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 395 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 />"); |