--- loncom/interface/spreadsheet/classcalc.pm 2003/11/21 21:51:28 1.16 +++ loncom/interface/spreadsheet/classcalc.pm 2004/04/26 14:06:00 1.19 @@ -1,5 +1,5 @@ # -# $Id: classcalc.pm,v 1.16 2003/11/21 21:51:28 matthew Exp $ +# $Id: classcalc.pm,v 1.19 2004/04/26 14:06:00 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -285,7 +285,9 @@ sub output_options { description => 'Excel'}, {value => 'csv', description => 'Comma Separated Values'}, -); +# {value => 'xml', +# description => 'XML'}, + ); } sub outsheet_recursive_excel { @@ -297,6 +299,18 @@ sub outsheet_htmlclasslist { my $self = shift; 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(''. + &mt('Expire all student spreadsheets').''.$/); + } + # $r->print('
$header{'student'} | $header{'username'} | $header{'domain'} | $header{'section'} | $header{'status'} | -'; + } + $tableheader.= "\n"; # my $num_output = 0; foreach my $student (@Students) { @@ -331,12 +349,20 @@ END '&sdomain='.$student->{'domain'}.'">'; $student->{'section'} = 'none' if ($student->{'section'} eq '-1'); $r->print(' |
---|---|---|---|---|---|
'.$num_output.' | '. ''.$link.$student->{'fullname'}.' | '. ''.$link.$student->{'username'}.' | '. ''.$student->{'domain'} .' | '. ''.$student->{'section'} .' | '. - ''.$student->{'status'} .' | '. - "'.$student->{'status'} .' | '); + if ($show_expire_link) { + $r->print(''. + 'Expire Record'.$/); + } + $r->print("\n"); } $r->print(" |