In getobjdefs() don't bother looking up the whole definition if only a list of objects is requested.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1064 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

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))
     {