loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1251, 2014/02/24 03:04:58	version 1.1252, 2014/03/09 15:39:04
Line 5545 sub unserialize {	Line 5545 sub unserialize {
return {} if $rep =~ /^error/;	return {} if $rep =~ /^error/;

my %returnhash=();	my %returnhash=();
foreach my $item (split /\&/, $rep) {	foreach my $item (split(/\&/,$rep)) {
my ($key, $value) = split(/=/, $item, 2);	my ($key, $value) = split(/=/, $item, 2);
$key = unescape($key) unless $escapedkeys;	$key = unescape($key) unless $escapedkeys;
next if $key =~ /^error: 2 /;	next if $key =~ /^error: 2 /;
$returnhash{$key} = Apache::lonnet::thaw_unescape($value);	$returnhash{$key} = &thaw_unescape($value);
}	}
#return %returnhash;	#return %returnhash;
return \%returnhash;	return \%returnhash;