loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.23, 2000/08/14 21:40:46	version 1.24, 2000/08/22 15:27:35
Line 16	Line 16
# Specify name and domain of role author, and role name	# Specify name and domain of role author, and role name
# revokerole (udom,uname,url,role) : Revoke a role for url	# revokerole (udom,uname,url,role) : Revoke a role for url
# revokecustomrole (udom,uname,url,rdom,rnam,rolename) : Revoke a custom role	# revokecustomrole (udom,uname,url,rdom,rnam,rolename) : Revoke a custom role
# appendenv(hash) : adds hash to session environment	# appenv(hash) : adds hash to session environment
# store(hash) : stores hash permanently for this url	# store(hash) : stores hash permanently for this url
# restore : returns hash for this url	# restore : returns hash for this url
# eget(namesp,array) : returns hash with keys from array filled in from namesp	# eget(namesp,array) : returns hash with keys from array filled in from namesp
Line 38	Line 38
# 06/26 Ben Tyszka	# 06/26 Ben Tyszka
# 06/30,07/15,07/17,07/18,07/20,07/21,07/22,07/25 Gerd Kortemeyer	# 06/30,07/15,07/17,07/18,07/20,07/21,07/22,07/25 Gerd Kortemeyer
# 08/14 Ben Tyszka	# 08/14 Ben Tyszka
	# 08/22 Gerd Kortemeyer

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

Line 193 sub appenv {	Line 194 sub appenv {
chomp($oldenv[$i]);	chomp($oldenv[$i]);
if ($oldenv[$i] ne '') {	if ($oldenv[$i] ne '') {
my ($name,$value)=split(/=/,$oldenv[$i]);	my ($name,$value)=split(/=/,$oldenv[$i]);
$newenv{$name}=$value;	unless (defined($newenv{$name})) {
	$newenv{$name}=$value;
	}
}	}
}	}
{	{