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

Diff for /loncom/interface/statistics/lonstudentassessment.pm between versions 1.145 and 1.146

version 1.145, 2007/10/03 17:39:13 version 1.146, 2007/12/20 13:57:13
Line 372  sub CreateInterface { Line 372  sub CreateInterface {
     $Str .= ' 'x5;      $Str .= ' 'x5;
     $Str .=       $Str .= 
         &mt('Status [_1]',          &mt('Status [_1]',
             '<input type="text" name="stats_status" size="60" value="" />');              '<input type="text" name="stats_status" size="60" value="" readonly="readonly" />');
     $Str .= '<br />';      $Str .= '<br />';
     return $Str;      return $Str;
 }  }
Line 671  sub html_initialize { Line 671  sub html_initialize {
     # If we're showing links, show a checkbox to open in new      # If we're showing links, show a checkbox to open in new
     # windows.      # windows.
     if ($show_links ne 'no') {      if ($show_links ne 'no') {
           my $labeltext = &mt('Show links in new window:');
         $r->print(<<NEW_WINDOW_CHECKBOX);          $r->print(<<NEW_WINDOW_CHECKBOX);
 <script type="text/javascript">new_window = true;</script>  <script type="text/javascript">new_window = true;</script>
 <p><label>Show links in new window:   <p><label>$labeltext 
 <input type="checkbox" checked="1" onclick="new_window=this.checked" />  <input type="checkbox" checked="1" onclick="new_window=this.checked" />
 </label></p>  </label></p>
 NEW_WINDOW_CHECKBOX  NEW_WINDOW_CHECKBOX
Line 684  NEW_WINDOW_CHECKBOX Line 685  NEW_WINDOW_CHECKBOX
               "&nbsp;&nbsp;".localtime(time)."</h3>");                "&nbsp;&nbsp;".localtime(time)."</h3>");
     #      #
     if ($chosen_output->{'base'} !~ /^final table/) {      if ($chosen_output->{'base'} !~ /^final table/) {
         $r->print("<h3>".$chosen_output->{'shortdesc'}."</h3>");                  $r->print("<h3>".&mt($chosen_output->{'shortdesc'})."</h3>");        
     }      }
     my $Str = "<pre>\n";      my $Str = "<pre>\n";
     # First, the @StudentData fields need to be listed      # First, the @StudentData fields need to be listed
Removed from v.1.145  
changed lines
  Added in v.1.146

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