--- loncom/lonnet/perl/lonnet.pm	2012/04/14 00:52:16	1.1164
+++ loncom/lonnet/perl/lonnet.pm	2012/04/24 20:31:59	1.1165
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1164 2012/04/14 00:52:16 raeburn Exp $
+# $Id: lonnet.pm,v 1.1165 2012/04/24 20:31:59 droeschl Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1535,16 +1535,13 @@ sub idput {
 
 # ------------------------------dump from db file owned by domainconfig user
 sub dump_dom {
-    my ($namespace,$udom,$regexp,$range)=@_;
-    if (!$udom) {
-        $udom=$env{'user.domain'};
-    }
-    my %returnhash;
-    if ($udom) {
-        my $uname = &get_domainconfiguser($udom);
-        %returnhash = &dump($namespace,$udom,$uname,$regexp,$range);
-    }
-    return %returnhash;
+    my ($namespace, $udom, $regexp) = @_;
+
+    $udom ||= $env{'user.domain'};
+
+    return () unless $udom;
+
+    return &dump($namespace, $udom, &get_domainconfiguser($udom), $regexp);
 }
 
 # ------------------------------------------ get items from domain db files