version 1.264, 2010/01/26 05:22:03
|
version 1.266, 2010/02/19 10:19:33
|
Line 90 Successful completion of an operation me
|
Line 90 Successful completion of an operation me
|
sub confirm_success { |
sub confirm_success { |
my ($message,$failure)=@_; |
my ($message,$failure)=@_; |
if ($failure) { |
if ($failure) { |
return '<span class="LC_error">'."\n" |
return '<span class="LC_error" style="font-size: inherit;">'."\n" |
.'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n" |
.'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n" |
.$message."\n" |
.$message."\n" |
.'</span>'."\n"; |
.'</span>'."\n"; |
Line 1061 sub Increment_PrgWin {
|
Line 1061 sub Increment_PrgWin {
|
# |
# |
my $str; |
my $str; |
if ($min == 0 && $sec > 1) { |
if ($min == 0 && $sec > 1) { |
$str = '[_2] seconds'; |
$str = '[_1] seconds'; |
} elsif ($min == 1 && $sec > 1) { |
} elsif ($min == 1 && $sec > 1) { |
$str = '1 minute [_2] seconds'; |
$str = '1 minute [_2] seconds'; |
} elsif ($min == 1 && $sec < 2) { |
} elsif ($min == 1 && $sec < 2) { |