--- loncom/interface/lonhtmlcommon.pm 2009/04/25 16:53:13 1.208 +++ loncom/interface/lonhtmlcommon.pm 2009/05/16 18:06:41 1.214 @@ -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.214 2009/05/16 18:06:41 tempelho 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"; + } } ############################################## @@ -972,7 +980,7 @@ sub Create_PrgWin { popwin=open(\'\',\'popwin\',\'width=400,height=100\');". "popwin.document.writeln(\'".$start_page. "

".&mt("$heading")."<\/h4>". - "
". + "". '<\\/form>'.$end_page. "\');". @@ -1325,7 +1333,7 @@ returns: nothing my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $no_realBreadcrumb) = @_; # $css_class ||= 'LC_breadcrumbs'; - my $Str1 = '
    '; + my $Str1 = '
      '; if($no_realBreadcrumb){ $Str1 = '
        '; @@ -1417,7 +1425,7 @@ returns: nothing if($no_realBreadcrumb){ $Str1 .= $links.'
      '; } else { - $Str1 .= $links.'
    '; + $Str1 .= $links.'
'; } # if (defined($component)) { @@ -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.'"'; @@ -1801,7 +1809,7 @@ sub topic_bar { return '
'.&mt('Step [_1]',$imgnum).
-              '  + ' "src="/res/adm/pages/bl_step'.$imgnum.'.gif" />  '.$title.'
';