loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.143, 2002/11/19 22:36:09	version 1.144, 2002/11/20 16:46:31
Line 2651 sub loadrows {	Line 2651 sub loadrows {

sub checkthis {	sub checkthis {
my ($keyname,$time)=@_;	my ($keyname,$time)=@_;
return ($time<$expiredates{$keyname});	if (! exists($expiredates{$keyname})) {
	return 0;
	} else {
	return ($time<$expiredates{$keyname});
	}
}	}

sub forcedrecalc {	sub forcedrecalc {
Line 2779 sub exportsheet {	Line 2783 sub exportsheet {
#	#
# Store away the new value	# Store away the new value
#	#
	my $timekey = $key.'.time';
if ($stype eq 'studentcalc') {	if ($stype eq 'studentcalc') {
&Apache::lonnet::put('nohist_calculatedsheets',	my $result = &Apache::lonnet::put('nohist_calculatedsheets',
{ $key => $newstore,	{ $key => $newstore,
$key.time => $now },	$timekey => $now },
$sheet->{'cdom'},$sheet->{'cnum'});	$sheet->{'cdom'},
	$sheet->{'cnum'});
} else {	} else {
&Apache::lonnet::put('nohist_calculatedsheets_'.$sheet->{'cid'},	my $result = &Apache::lonnet::put('nohist_calculatedsheets_'.$sheet->{'cid'},
{ $key => $newstore,	{ $key => $newstore,
$key.time => $now },	$timekey => $now },
$sheet->{'udom'},	$sheet->{'udom'},
$sheet->{'uname'})	$sheet->{'uname'});
}	}
return @exportarr;	return @exportarr;
}	}