|
version 1.59, 2002/11/22 18:55:18
|
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)) { |
|
Line 1199 sub keywords_highlight {
|
Line 1199 sub keywords_highlight {
|
| (my $styleoff = $styleon) =~ s/\</\<\//; |
(my $styleoff = $styleon) =~ s/\</\<\//; |
| my @keylist = split(/[,\s+]/,$ENV{'form.keywords'}); |
my @keylist = split(/[,\s+]/,$ENV{'form.keywords'}); |
| foreach (@keylist) { |
foreach (@keylist) { |
| $string =~ s/\b$_(\b|\.)/\<font color\=$ENV{'form.kwclr'} $size\>$styleon$_$styleoff\<\/font\>/gi; |
$string =~ s/\b\Q$_\E(\b|\.)/\<font color\=$ENV{'form.kwclr'} $size\>$styleon$_$styleoff\<\/font\>/gi; |
| } |
} |
| # This is not really the right place to do this, but I cannot find a |
# This is not really the right place to do this, but I cannot find a |
| # better one at this time. So here we go - the m in the s:::mg causes |
# better one at this time. So here we go - the m in the s:::mg causes |
![[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