Diff for /loncom/interface/spreadsheet/classcalc.pm between versions 1.17 and 1.19

version 1.17, 2003/12/08 19:39:08 version 1.19, 2004/04/26 14:06:00
Line 285  sub output_options { Line 285  sub output_options {
               description => 'Excel'},                description => 'Excel'},
              {value       => 'csv',               {value       => 'csv',
               description => 'Comma Separated Values'},                description => 'Comma Separated Values'},
 );  #             {value       => 'xml',
   #              description => 'XML'},
                );
 }  }
   
 sub outsheet_recursive_excel {  sub outsheet_recursive_excel {
Line 297  sub outsheet_htmlclasslist { Line 299  sub outsheet_htmlclasslist {
     my $self = shift;      my $self = shift;
     my ($r) = @_;      my ($r) = @_;
     #      #
       # Determine if we should output expire caches links...
       my $show_expire_link = 0;
       if (exists($ENV{'user.role.dc./'.$ENV{'request.role.domain'}.'/'})){
           $show_expire_link = 1;
       }
       #
       if ($show_expire_link) {
           $r->print('<a href="/adm/classcalc?output_format=htmlclasslist&'.
                     'recalc=ilovewastingtime&not_first_run=1">'.
                     &mt('Expire all student spreadsheets').'</a>'.$/);
       }
       #
     $r->print('<h3>'.      $r->print('<h3>'.
               &mt('Click on a student to be taken to their spreadsheet').                &mt('Click on a student to be taken to their spreadsheet').
               '</h3>');                '</h3>');
Line 320  sub outsheet_htmlclasslist { Line 334  sub outsheet_htmlclasslist {
   <th>$header{'domain'}</th>    <th>$header{'domain'}</th>
   <th>$header{'section'}</th>    <th>$header{'section'}</th>
   <th>$header{'status'}</th>    <th>$header{'status'}</th>
 </tr>  
 END  END
       if ($show_expire_link) {
           $tableheader.= '<th>&nbsp;</th>';
       }
       $tableheader.= "</tr>\n";
     #      #
     my $num_output = 0;      my $num_output = 0;
     foreach my $student (@Students) {      foreach my $student (@Students) {
Line 337  END Line 354  END
   '<td>'.$link.$student->{'username'}.'</a></td>'.    '<td>'.$link.$student->{'username'}.'</a></td>'.
   '<td>'.$student->{'domain'}  .'</td>'.    '<td>'.$student->{'domain'}  .'</td>'.
   '<td>'.$student->{'section'} .'</td>'.    '<td>'.$student->{'section'} .'</td>'.
   '<td>'.$student->{'status'}  .'</td>'.    '<td>'.$student->{'status'}  .'</td>');
                   "</tr>\n");          if ($show_expire_link) {
               $r->print('<td>'.
                         '<a href="/adm/classcalc?recalc=student:'.
                         $student->{'username'}.':'.$student->{'domain'}.'&'.
                         'output_format=htmlclasslist&'.
                         'not_first_run=1'.'">Expire Record</a>'.$/);
           }
           $r->print("</tr>\n");
     }      }
     $r->print("</table></p>\n");      $r->print("</table></p>\n");
     return;      return;

Removed from v.1.17  
changed lines
  Added in v.1.19


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