loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.207, 2009/04/07 15:40:38
+version 1.210, 2009/04/29 18:42:38
  Line 62  use Apache::lonlocal;
  use Apache::lonnet;
  use LONCAPA;
+ ##############################################
+ ##############################################
+ =pod
+ =item confirm_success
+ Successful completion of an operation message
+ =cut
+ sub confirm_success {
+    my ($message,$failure)=@_;
+    if ($failure) {
+       return '<span class="LC_error">'.
+           $message.
+           ' <img src="/adm/lonIcons/navmap.wrong.gif" /></span>';
+    } else {
+       return '<span class="LC_success">'.
+           $message.
+           ' <img src="/adm/lonIcons/navmap.correct.gif" /></span>';
+    }
+ }
  ##############################################
  ##############################################
- Line 1523  END
+ Line 1546  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.'"';