loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.716, 2014/01/30 18:04:36	version 1.717, 2014/01/30 19:11:05
Line 2514 sub get_last_submission {	Line 2514 sub get_last_submission {
}	}
my ($partid,$foo) = split(/submission$/,$key);	my ($partid,$foo) = split(/submission$/,$key);
my $draft = $lasthash{$partid.'awarddetail'} eq 'DRAFT' ?	my $draft = $lasthash{$partid.'awarddetail'} eq 'DRAFT' ?
'<span class="LC_warning">Draft Copy</span> ' : '';	'<span class="LC_warning">'.&mt('Draft Copy').'</span> ' : '';
#push(@string, join(':', $key, $hide, $draft.$lasthash{$key}));	#push(@string, join(':', $key, $hide, $draft.$lasthash{$key}));
push(@string, join(':', $key, $hide, $draft.(	push(@string, join(':', $key, $hide, $draft.(
ref($lasthash{$key}) eq 'ARRAY' ?	ref($lasthash{$key}) eq 'ARRAY' ?
Line 2546 sub keywords_highlight {	Line 2546 sub keywords_highlight {
sub show_previous_task_version {	sub show_previous_task_version {
my ($request,$symb) = @_;	my ($request,$symb) = @_;
if ($symb eq '') {	if ($symb eq '') {
$request->print("Unable to handle ambiguous references.");	$request->print(
	'<span class="LC_error">'.
	&mt('Unable to handle ambiguous references.').
	'</span>');
return '';	return '';
}	}
my ($uname,$udom) = ($env{'form.student'},$env{'form.userdom'});	my ($uname,$udom) = ($env{'form.student'},$env{'form.userdom'});