|
version 1.60, 2002/11/27 15:25:48
|
version 1.61, 2002/11/27 15:54:24
|
|
Line 1173 sub get_last_submission {
|
Line 1173 sub get_last_submission {
|
| for ($version=1;$version<=$returnhash{'version'};$version++) { |
for ($version=1;$version<=$returnhash{'version'};$version++) { |
| foreach (sort(split(/\:/,$returnhash{$version.':keys'}))) { |
foreach (sort(split(/\:/,$returnhash{$version.':keys'}))) { |
| $lasthash{$_}=$returnhash{$version.':'.$_}; |
$lasthash{$_}=$returnhash{$version.':'.$_}; |
| if ($returnhash{$version.':'.$_} =~ /(SUBMITTED|DRAFT)$/) { |
# if ($returnhash{$version.':'.$_} =~ /(SUBMITTED|DRAFT)$/) { |
| $timestamp = scalar(localtime($returnhash{$version.':timestamp'})); |
$timestamp = scalar(localtime($returnhash{$version.':timestamp'})); |
| } |
# } |
| } |
} |
| } |
} |
| foreach ((keys %lasthash)) { |
foreach ((keys %lasthash)) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to grades.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework