loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.543, 2008/12/24 07:04:58	version 1.545, 2008/12/31 20:41:35
Line 2094 KEYWORDS	Line 2094 KEYWORDS
' )</span>   ';	' )</span>   ';
my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);	my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);
if (@$files) {	if (@$files) {
$lastsubonly.='<br /><span class="LC_warning">'.&mt('Like all files provided by users, this file may contain virusses').'</span><br />';	$lastsubonly.='<br /><span class="LC_warning">'.&mt('Like all files provided by users, this file may contain viruses').'</span><br />';
my $file_counter = 0;	my $file_counter = 0;
foreach my $file (@$files) {	foreach my $file (@$files) {
$file_counter++;	$file_counter++;
Line 2317 sub get_last_submission {	Line 2317 sub get_last_submission {
$$returnhash{$version.':keys'}))) {	$$returnhash{$version.':keys'}))) {
$lasthash{$key}=$$returnhash{$version.':'.$key};	$lasthash{$key}=$$returnhash{$version.':'.$key};
$timestamp =	$timestamp =
scalar(localtime($$returnhash{$version.':timestamp'}));	&Apache::lonlocal::locallocaltime($$returnhash{$version.':timestamp'});
}	}
}	}
foreach my $key (keys(%lasthash)) {	foreach my $key (keys(%lasthash)) {