loncom/interface/lonpdfupload.pm - diff

Return to lonpdfupload.pm CVS log

Up to [LON-CAPA] / loncom / interface

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 />");