loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>