loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1047, 2009/11/30 06:23:37	version 1.1048, 2009/12/30 18:01:17
Line 1728 sub userenvironment {	Line 1728 sub userenvironment {
unless ($uhome eq 'no_host') {	unless ($uhome eq 'no_host') {
my @answer=split(/\&/,	my @answer=split(/\&/,
&reply('get:'.$udom.':'.$unam.':environment:'.$items,$uhome));	&reply('get:'.$udom.':'.$unam.':environment:'.$items,$uhome));
	if ($#answer==0 && $answer[0] =~ /^(con_lost\|error:\|no_such_host)/i) {
	return %returnhash;
	}
my $i;	my $i;
for ($i=0;$i<=$#what;$i++) {	for ($i=0;$i<=$#what;$i++) {
$returnhash{$what[$i]}=&unescape($answer[$i]);	$returnhash{$what[$i]}=&unescape($answer[$i]);