version 1.208, 2009/04/25 16:53:13
|
version 1.209, 2009/04/25 20:22:07
|
Line 74 Successful completion of an operation me
|
Line 74 Successful completion of an operation me
|
=cut |
=cut |
|
|
sub confirm_success { |
sub confirm_success { |
my ($message)=@_; |
my ($message,$failure)=@_; |
return '<span class="LC_success_confirm">'. |
if ($failure) { |
|
return '<span class="LC_error">'. |
|
$message. |
|
' <img src="/adm/lonIcons/navmap.wrong.gif" /></span>'; |
|
} else { |
|
return '<span class="LC_success">'. |
$message. |
$message. |
' <img src="/adm/lonIcons/navmap.correct.gif" /></span>'; |
' <img src="/adm/lonIcons/navmap.correct.gif" /></span>'; |
|
} |
} |
} |
|
|
############################################## |
############################################## |