--- loncom/interface/lonhtmlcommon.pm 2009/04/25 20:22:07 1.209 +++ loncom/interface/lonhtmlcommon.pm 2009/05/06 13:37:56 1.212 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.209 2009/04/25 20:22:07 www Exp $ +# $Id: lonhtmlcommon.pm,v 1.212 2009/05/06 13:37:56 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -76,13 +76,15 @@ Successful completion of an operation me sub confirm_success { my ($message,$failure)=@_; if ($failure) { - return ''. - $message. - ' '; + return ''."\n" + .' '."\n" + .$message."\n" + .''."\n"; } else { - return ''. - $message. - ' '; + return ''."\n" + .' '."\n" + .$message."\n" + .''."\n"; } } @@ -978,7 +980,7 @@ sub Create_PrgWin { popwin=open(\'\',\'popwin\',\'width=400,height=100\');". "popwin.document.writeln(\'".$start_page. "

".&mt("$heading")."<\/h4>". - "
". + "". '<\\/form>'.$end_page. "\');". @@ -1546,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.'"';