--- loncom/interface/spreadsheet/classcalc.pm 2004/01/14 16:48:51 1.18 +++ loncom/interface/spreadsheet/classcalc.pm 2004/04/26 14:06:00 1.19 @@ -1,5 +1,5 @@ # -# $Id: classcalc.pm,v 1.18 2004/01/14 16:48:51 matthew Exp $ +# $Id: classcalc.pm,v 1.19 2004/04/26 14:06:00 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -299,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('