--- 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 ''.
- $message.
- '
';
+ my ($message,$failure)=@_;
+ if ($failure) {
+ return ''."\n"
+ .'
'."\n"
+ .$message."\n"
+ .''."\n";
+ } else {
+ return ''."\n"
+ .'
'."\n"
+ .$message."\n"
+ .''."\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.'"';