|
version 1.1225, 2013/05/27 18:35:05
|
version 1.1226, 2013/05/29 17:53:50
|
|
Line 5498 sub dump {
|
Line 5498 sub dump {
|
| if (grep { $_ eq $uhome } current_machine_ids()) { |
if (grep { $_ eq $uhome } current_machine_ids()) { |
| # user is hosted on this machine |
# user is hosted on this machine |
| $reply = LONCAPA::Lond::dump_with_regexp(join(":", ($udomain, |
$reply = LONCAPA::Lond::dump_with_regexp(join(":", ($udomain, |
| $uname, $namespace, $regexp, $range)), $loncaparevs{$uhome}); |
$uname, $namespace, $regexp, $range)), $perlvar{'lonVersion'}); |
| return %{unserialize($reply, $escapedkeys)}; |
return %{unserialize($reply, $escapedkeys)}; |
| } |
} |
| if ($regexp) { |
if ($regexp) { |
![[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