--- loncom/interface/lonhtmlcommon.pm 2009/04/25 16:53:13 1.208
+++ loncom/interface/lonhtmlcommon.pm 2009/04/25 20:22:07 1.209
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.208 2009/04/25 16:53:13 www Exp $
+# $Id: lonhtmlcommon.pm,v 1.209 2009/04/25 20:22:07 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -74,10 +74,16 @@ Successful completion of an operation me
=cut
sub confirm_success {
- my ($message)=@_;
- return ''.
+ my ($message,$failure)=@_;
+ if ($failure) {
+ return ''.
+ $message.
+ ' ';
+ } else {
+ return ''.
$message.
' ';
+ }
}
##############################################