--- loncom/interface/spreadsheet/classcalc.pm 2003/12/08 19:39:08 1.17
+++ loncom/interface/spreadsheet/classcalc.pm 2004/06/04 21:43:36 1.20
@@ -1,5 +1,5 @@
#
-# $Id: classcalc.pm,v 1.17 2003/12/08 19:39:08 matthew Exp $
+# $Id: classcalc.pm,v 1.20 2004/06/04 21:43:36 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('
'.
&mt('Click on a student to be taken to their spreadsheet').
'
');
@@ -320,8 +334,11 @@ sub outsheet_htmlclasslist {
$header{'domain'} |
$header{'section'} |
$header{'status'} |
-
END
+ if ($show_expire_link) {
+ $tableheader.= ' | ';
+ }
+ $tableheader.= "\n";
#
my $num_output = 0;
foreach my $student (@Students) {
@@ -337,8 +354,15 @@ END
''.$link.$student->{'username'}.' | '.
''.$student->{'domain'} .' | '.
''.$student->{'section'} .' | '.
- ''.$student->{'status'} .' | '.
- "\n");
+ ''.$student->{'status'} .' | ');
+ if ($show_expire_link) {
+ $r->print(''.
+ 'Expire Record'.$/);
+ }
+ $r->print("\n");
}
$r->print("\n");
return;
@@ -352,13 +376,11 @@ sub compute {
$self->initialize_safe_space();
my %c = $self->constants();
my %f = $self->formulas();
+ &Apache::studentcalc::initialize_package();
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
($r,&mt('Spreadsheet Computation Status'),
&mt('Spreadsheet Computation'), scalar(@Students));
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
- &mt('Processing course structure'));
- &Apache::studentcalc::initialize_package();
- &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
&mt('Processing first student'));
foreach my $student (@Students) {
if ($connection->aborted()) { $self->cleanup(); return; }
|