[BACK]Return to lonhtmlcommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.208 and 1.214

version 1.208, 2009/04/25 16:53:13 version 1.214, 2009/05/16 18:06:41
Line 74  Successful completion of an operation me Line 74  Successful completion of an operation me
 =cut  =cut
   
 sub confirm_success {  sub confirm_success {
    my ($message)=@_;     my ($message,$failure)=@_;
    return '<span class="LC_success_confirm">'.     if ($failure) {
           $message.        return '<span class="LC_error">'."\n"
           ' <img src="/adm/lonIcons/navmap.correct.gif" /></span>';              .'<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";
      }
 }  }
   
 ##############################################  ##############################################
Line 972  sub Create_PrgWin { Line 980  sub Create_PrgWin {
          popwin=open(\'\',\'popwin\',\'width=400,height=100\');".           popwin=open(\'\',\'popwin\',\'width=400,height=100\');".
         "popwin.document.writeln(\'".$start_page.          "popwin.document.writeln(\'".$start_page.
               "<h4>".&mt("$heading")."<\/h4>".                "<h4>".&mt("$heading")."<\/h4>".
               "<form action= \"\" name=\"popremain\" method=\"post\">".                "<form action=\"\" name=\"popremain\" method=\"post\">".
               '<input type="text" size="'.$width.'" name="remaining" value="'.                '<input type="text" size="'.$width.'" name="remaining" value="'.
       &mt('Starting').'" /><\\/form>'.$end_page.        &mt('Starting').'" /><\\/form>'.$end_page.
               "\');".                "\');".
Line 1325  returns: nothing Line 1333  returns: nothing
         my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $no_realBreadcrumb) = @_;          my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $no_realBreadcrumb) = @_;
         #          #
  $css_class ||= 'LC_breadcrumbs';   $css_class ||= 'LC_breadcrumbs';
         my $Str1 = '<ol id="LC_MenuBreadcrumbs">';          my $Str1 = '<div id="LC_head_subbox"><ol id="LC_MenuBreadcrumbs">';
   
  if($no_realBreadcrumb){   if($no_realBreadcrumb){
  $Str1 = '<ul class="LC_CourseBreadcrumbs">';   $Str1 = '<ul class="LC_CourseBreadcrumbs">';
Line 1417  returns: nothing Line 1425  returns: nothing
  if($no_realBreadcrumb){   if($no_realBreadcrumb){
         $Str1 .= $links.'</ul>';          $Str1 .= $links.'</ul>';
  } else {   } else {
         $Str1 .= $links.'</ol>';          $Str1 .= $links.'</ol></div>';
  }   }
         #          #
         if (defined($component)) {          if (defined($component)) {
Line 1540  END Line 1548  END
 }  }
   
 sub row_title {  sub row_title {
       my ($title,$css_title_class,$css_value_class) = @_;
     $row_count[0]++;      $row_count[0]++;
     my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';      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 ||= 'LC_pick_box_title';
     $css_title_class = 'class="'.$css_title_class.'"';      $css_title_class = 'class="'.$css_title_class.'"';
   
Line 1801  sub topic_bar { Line 1809  sub topic_bar {
     return '      return '
 <div class="LC_topic_bar">  <div class="LC_topic_bar">
     <img alt="'.&mt('Step [_1]',$imgnum).      <img alt="'.&mt('Step [_1]',$imgnum).
               '"src="/res/adm/pages/bl_step'.$imgnum.'.gif" />&nbsp;                ' "src="/res/adm/pages/bl_step'.$imgnum.'.gif" />&nbsp;
     <span>'.$title.'</span>      <span>'.$title.'</span>
 </div>  </div>
 ';  ';
Removed from v.1.208  
changed lines
  Added in v.1.214

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>