diff --git a/perl-xCAT-2.0/xCAT/DBobjUtils.pm b/perl-xCAT-2.0/xCAT/DBobjUtils.pm
index 19607b975..1c4c76621 100644
--- a/perl-xCAT-2.0/xCAT/DBobjUtils.pm
+++ b/perl-xCAT-2.0/xCAT/DBobjUtils.pm
@@ -154,6 +154,16 @@ sub getobjdefs
     %typehash = %$hash_ref;
 
 	@::foundTableList = ();
+	
+	if ($::ATTRLIST eq "none") {
+        # just return the list of obj names
+        foreach my $objname (sort (keys %typehash))
+        {
+            my $type = $typehash{$objname};
+            $objhash{$objname}{'objtype'} = $type;
+        }
+        return %objhash;
+    }
 
     foreach my $objname (sort (keys %typehash))
     {