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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.209 and 1.212

version 1.209, 2009/04/25 20:22:07 version 1.212, 2009/05/06 13:37:56
Line 76  Successful completion of an operation me Line 76  Successful completion of an operation me
 sub confirm_success {  sub confirm_success {
    my ($message,$failure)=@_;     my ($message,$failure)=@_;
    if ($failure) {     if ($failure) {
       return '<span class="LC_error">'.        return '<span class="LC_error">'."\n"
           $message.              .'<img src="/adm/lonIcons/navmap.wrong.gif" /> '."\n"
           ' <img src="/adm/lonIcons/navmap.wrong.gif" /></span>';              .$message."\n"
               .'</span>'."\n";
    } else {     } else {
       return '<span class="LC_success">'.        return '<span class="LC_success">'."\n"
           $message.              .'<img src="/adm/lonIcons/navmap.correct.gif" /> '."\n"
           ' <img src="/adm/lonIcons/navmap.correct.gif" /></span>';              .$message."\n"
               .'</span>'."\n";
    }     }
 }  }
   
Line 978  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 1546  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.'"';
   
Removed from v.1.209  
changed lines
  Added in v.1.212

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