--- loncom/interface/lonhtmlcommon.pm	2009/04/25 16:53:13	1.208
+++ loncom/interface/lonhtmlcommon.pm	2009/05/05 16:01:50	1.211
@@ -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.211 2009/05/05 16:01:50 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -74,10 +74,18 @@ Successful completion of an operation me
 =cut
 
 sub confirm_success {
-   my ($message)=@_;
-   return '<span class="LC_success_confirm">'.
-          $message.
-          ' <img src="/adm/lonIcons/navmap.correct.gif" /></span>';
+   my ($message,$failure)=@_;
+   if ($failure) {
+      return '<span class="LC_error">'."\n"
+            .'<img src="/adm/lonIcons/navmap.wrong.gif" /> '."\n"
+            .$message."\n"
+            .'</span>'."\n";
+   } else {
+      return '<span class="LC_success">'."\n"
+            .'<img src="/adm/lonIcons/navmap.correct.gif" /> '."\n"
+            .$message."\n"
+            .'</span>'."\n";
+   }
 }
 
 ##############################################
@@ -1540,9 +1548,9 @@ END
 }
 
 sub row_title {
+    my ($title,$css_title_class,$css_value_class) = @_;
     $row_count[0]++;
     my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
-    my ($title,$css_title_class,$css_value_class) = @_;
     $css_title_class ||= 'LC_pick_box_title';
     $css_title_class = 'class="'.$css_title_class.'"';