loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.109, 2001/03/19 22:27:06	version 1.110, 2001/03/20 21:33:37
Line 91	Line 91
# 02/27/01 Scott Harrison	# 02/27/01 Scott Harrison
# 3/2 Gerd Kortemeyer	# 3/2 Gerd Kortemeyer
# 3/15 Scott Harrison	# 3/15 Scott Harrison
# 3/19 Gerd Kortemeyer	# 3/19,3/20 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 628 sub log {	Line 628 sub log {
return critical("log:$dom:$nam:$what",$hom);	return critical("log:$dom:$nam:$what",$hom);
}	}

	# --------------------------------------------- Set Expire Date for Spreadsheet

	sub expirespread {
	my ($uname,$udom,$stype,$usymb)=@_;
	my $cid=$ENV{'request.course.id'};
	if ($cid) {
	my $now=time;
	my $key=$uname.':'.$udom.':'.$stype.':'.$usymb;
	return &reply('put:'.$ENV{'course.'.$cid.'.domain'}.':'.
	$ENV{'course.'.$cid.'.num'}.
	':nohist_expirationdates:'.
	&escape($key).'='.$now,
	$ENV{'course.'.$cid.'.home'})
	}
	return 'ok';
	}

# ----------------------------------------------------- Devalidate Spreadsheets	# ----------------------------------------------------- Devalidate Spreadsheets

sub devalidate {	sub devalidate {