loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.12, 2000/05/01 20:19:38	version 1.13, 2000/05/29 14:06:46
Line 17	Line 17
# 11/8,11/16,11/18,11/22,11/23,12/22,	# 11/8,11/16,11/18,11/22,11/23,12/22,
# 01/06,01/13,02/24,02/28,02/29,	# 01/06,01/13,02/24,02/28,02/29,
# 03/01,03/02,03/06,03/07,03/13,	# 03/01,03/02,03/06,03/07,03/13,
# 04/05 Gerd Kortemeyer	# 04/05,05/29 Gerd Kortemeyer

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

Line 329 sub repcopy {	Line 329 sub repcopy {

sub store {	sub store {
my %storehash=shift;	my %storehash=shift;
my $command=;
my $namevalue='';	my $namevalue='';
map {	map {
$namevalue.=escape($_).'='.escape($storehash{$_}).'&';	$namevalue.=escape($_).'='.escape($storehash{$_}).'&';
Line 351 sub restore {	Line 350 sub restore {
my ($name,$value)=split(/\=/,$_);	my ($name,$value)=split(/\=/,$_);
$returnhash{&unescape($name)}=&unescape($value);	$returnhash{&unescape($name)}=&unescape($value);
} split(/\&/,$answer);	} split(/\&/,$answer);
return $returnhash;	return %returnhash;
}	}

# -------------------------------------------------------- Get user priviledges	# -------------------------------------------------------- Get user priviledges