|
version 1.873, 2007/05/11 01:48:19
|
version 1.874, 2007/05/14 08:47:54
|
|
Line 744 sub get_dom {
|
Line 744 sub get_dom {
|
| if (defined(&domain($udom,'primary'))) { |
if (defined(&domain($udom,'primary'))) { |
| $uhome=&domain($udom,'primary'); |
$uhome=&domain($udom,'primary'); |
| } else { |
} else { |
| $uhome eq ''; |
undef($uhome); |
| } |
} |
| } else { |
} else { |
| if (!$uhome) { |
if (!$uhome) { |
|
Line 763 sub get_dom {
|
Line 763 sub get_dom {
|
| if ( $#pairs==0 && $pairs[0] =~ /^(con_lost|error|no_such_host)/i) { |
if ( $#pairs==0 && $pairs[0] =~ /^(con_lost|error|no_such_host)/i) { |
| return @pairs; |
return @pairs; |
| } |
} |
| my %returnhash=(); |
|
| my $i=0; |
my $i=0; |
| foreach my $item (@$storearr) { |
foreach my $item (@$storearr) { |
| $returnhash{$item}=&thaw_unescape($pairs[$i]); |
$returnhash{$item}=&thaw_unescape($pairs[$i]); |
|
Line 784 sub put_dom {
|
Line 783 sub put_dom {
|
| if (defined(&domain($udom,'primary'))) { |
if (defined(&domain($udom,'primary'))) { |
| $uhome=&domain($udom,'primary'); |
$uhome=&domain($udom,'primary'); |
| } else { |
} else { |
| $uhome eq ''; |
undef($uhome); |
| } |
} |
| } else { |
} else { |
| if (!$uhome) { |
if (!$uhome) { |
![[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