|
version 1.1172.2.56, 2014/10/24 00:37:15
|
version 1.1172.2.57, 2014/10/26 13:02:42
|
|
Line 1647 sub dump_dom {
|
Line 1647 sub dump_dom {
|
| |
|
| sub get_dom { |
sub get_dom { |
| my ($namespace,$storearr,$udom,$uhome)=@_; |
my ($namespace,$storearr,$udom,$uhome)=@_; |
| |
return if ($udom eq 'public'); |
| my $items=''; |
my $items=''; |
| foreach my $item (@$storearr) { |
foreach my $item (@$storearr) { |
| $items.=&escape($item).'&'; |
$items.=&escape($item).'&'; |
|
Line 1654 sub get_dom {
|
Line 1655 sub get_dom {
|
| $items=~s/\&$//; |
$items=~s/\&$//; |
| if (!$udom) { |
if (!$udom) { |
| $udom=$env{'user.domain'}; |
$udom=$env{'user.domain'}; |
| |
return if ($udom eq 'public'); |
| if (defined(&domain($udom,'primary'))) { |
if (defined(&domain($udom,'primary'))) { |
| $uhome=&domain($udom,'primary'); |
$uhome=&domain($udom,'primary'); |
| } else { |
} else { |
![[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