loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.89, 2001/01/09 19:55:31	version 1.92, 2001/01/09 23:04:15
Line 84	Line 84
# 12/02,12/12,12/13,12/14,12/28,12/29 Gerd Kortemeyer	# 12/02,12/12,12/13,12/14,12/28,12/29 Gerd Kortemeyer
# 05/01/01 Guy Albertelli	# 05/01/01 Guy Albertelli
# 05/01,06/01,09/01 Gerd Kortemeyer	# 05/01,06/01,09/01 Gerd Kortemeyer
	# 09/01 Guy Albertelli
	# 09/01 Gerd Kortemeyer

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

Line 279 sub appenv {	Line 281 sub appenv {
$fh->close();	$fh->close();
return 'error: '.$!;	return 'error: '.$!;
}	}
foreach $newname (keys %newenv) {	foreach $newname (sort keys %newenv) {
print $fh "$newname=$newenv{$newname}\n";	print $fh "$newname=$newenv{$newname}\n";
}	}
$fh->close();	$fh->close();
Line 1039 sub allowed {	Line 1041 sub allowed {
if ($envkey=~/^user\.role\.(st\|ta)\.([^\.]*)/) {	if ($envkey=~/^user\.role\.(st\|ta)\.([^\.]*)/) {
my $courseid=$2;	my $courseid=$2;
my $roleid=$1.'.'.$2;	my $roleid=$1.'.'.$2;
	$courseid=~s/^\///;
my $expiretime=600;	my $expiretime=600;
if ($ENV{'request.role'} eq $roleid) {	if ($ENV{'request.role'} eq $roleid) {
$expiretime=120;	$expiretime=120;