|
version 1.1121, 2011/07/31 22:55:53
|
version 1.1122, 2011/08/01 15:25:04
|
|
Line 327 sub get_remote_globals {
|
Line 327 sub get_remote_globals {
|
| if (keys(%whatneeded) > 0) { |
if (keys(%whatneeded) > 0) { |
| my $requested = &freeze_escape(\%whatneeded); |
my $requested = &freeze_escape(\%whatneeded); |
| my $rep=&reply('readlonnetglobal:'.$requested,$lonhost); |
my $rep=&reply('readlonnetglobal:'.$requested,$lonhost); |
| unless (($rep=~/^refused/) || ($rep=~/^rejected/) || $rep eq 'con_lost')) { |
unless (($rep=~/^refused/) || ($rep=~/^rejected/) || ($rep eq 'con_lost')) { |
| my @pairs=split(/\&/,$rep); |
my @pairs=split(/\&/,$rep); |
| if ($rep !~ /^error/) { |
if ($rep !~ /^error/) { |
| foreach my $item (@pairs) { |
foreach my $item (@pairs) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl