version 1.97, 2002/07/15 12:26:51
|
version 1.98, 2002/07/30 21:23:44
|
Line 71 use Apache::lonnet;
|
Line 71 use Apache::lonnet;
|
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use GDBM_File; |
use GDBM_File; |
use HTML::TokeParser; |
use HTML::TokeParser; |
|
use Apache::lonhtmlcommon; |
# |
# |
# Caches for previously calculated spreadsheets |
# Caches for previously calculated spreadsheets |
# |
# |
Line 1652 sub updateclasssheet {
|
Line 1652 sub updateclasssheet {
|
my ($end,$start)=split(/\:/,&Apache::lonnet::unescape($value)); |
my ($end,$start)=split(/\:/,&Apache::lonnet::unescape($value)); |
my $active=1; |
my $active=1; |
if (($end) && ($now>$end)) { $active=0; } |
if (($end) && ($now>$end)) { $active=0; } |
|
$active = 1 if ($ENV{'form.Status'} eq 'Any'); |
|
$active = !$active if ($ENV{'form.Status'} eq 'Expired'); |
if ($active) { |
if ($active) { |
my $rowlabel=''; |
my $rowlabel=''; |
$name=&Apache::lonnet::unescape($name); |
$name=&Apache::lonnet::unescape($name); |
Line 2742 ENDSCRIPT
|
Line 2744 ENDSCRIPT
|
} |
} |
|
|
# ------------------------------------------------------------------ Insertrows |
# ------------------------------------------------------------------ Insertrows |
|
$r->print(' Student Status: '. |
|
&Apache::lonhtmlcommon::StatusOptions |
|
($ENV{'form.Status'},'sheet')); |
|
|
$r->print(<<ENDINSERTBUTTONS); |
$r->print(<<ENDINSERTBUTTONS); |
<br> |
<br> |