loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.41, 2000/10/10 13:38:19	version 1.42, 2000/10/10 18:46:53
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;
}	}