loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.40, 2000/10/09 20:26:17	version 1.42, 2000/10/10 18:46:53
Line 62	Line 62
# 08/22,08/28,08/31,09/01,09/02,09/04,09/05,09/25,09/28,09/30 Gerd Kortemeyer	# 08/22,08/28,08/31,09/01,09/02,09/04,09/05,09/25,09/28,09/30 Gerd Kortemeyer
# 10/04 Gerd Kortemeyer	# 10/04 Gerd Kortemeyer
# 10/04 Guy Albertelli	# 10/04 Guy Albertelli
# 10/06,10/09 Gerd Kortemeyer	# 10/06,10/09,10/10 Gerd Kortemeyer

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

Line 596 sub get {	Line 596 sub get {
$ENV{'user.home'});	$ENV{'user.home'});
my @pairs=split(/\&/,$rep);	my @pairs=split(/\&/,$rep);
my %returnhash=();	my %returnhash=();
	my $i=0;
map {	map {
my ($key,$value)=split(/=/,$_);	$returnhash{$_}=unescape($pairs[$i]);
$returnhash{unescape($key)}=unescape($value);	$i++;
} @pairs;	} @storearr;
return %returnhash;	return %returnhash;
}	}

Line 657 sub eget {	Line 658 sub eget {
$ENV{'user.home'});	$ENV{'user.home'});
my @pairs=split(/\&/,$rep);	my @pairs=split(/\&/,$rep);
my %returnhash=();	my %returnhash=();
	my $i=0;
map {	map {
my ($key,$value)=split(/=/,$_);	$returnhash{$_}=unescape($pairs[$i]);
$returnhash{unescape($key)}=unescape($value);	$i++;
} @pairs;	} @storearr;
return %returnhash;	return %returnhash;
}	}

Line 759 sub allowed {	Line 761 sub allowed {
# Restricted by state?	# Restricted by state?

if ($thisallowed=~/X/) {	if ($thisallowed=~/X/) {
if (&condval($uricond)>1) {	if (&condval($uricond)) {
return '2';	return '2';
} else {	} else {
return '';	return '';