loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.795, 2006/10/17 15:15:51	version 1.796, 2006/10/18 02:39:12
Line 4266 sub auto_instcode_defaults {	Line 4266 sub auto_instcode_defaults {
foreach my $pair (split(/\&/,$response)) {	foreach my $pair (split(/\&/,$response)) {
my ($name,$value)=split(/\=/,$pair);	my ($name,$value)=split(/\=/,$pair);
if ($name eq 'code_order') {	if ($name eq 'code_order') {
$code_order = [split(/\&/,&unescape($value))];	@{$code_order} = split(/\&/,&unescape($value));
} else {	} else {
$$returnhash{&unescape($name)}=&unescape($value);	$returnhash->{&unescape($name)}=&unescape($value);
}	}
}	}
}	}