From ba9ec8ca75dc8d635a818991a366b2b131acf69e Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 28 May 2010 09:50:15 +0000
Subject: [PATCH] fix for bug 3007510

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6266 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/xcat/plugins/DBobjectdefs.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/xCAT-server/lib/xcat/plugins/DBobjectdefs.pm b/xCAT-server/lib/xcat/plugins/DBobjectdefs.pm
index 5112ca68f..e7a1c74e4 100644
--- a/xCAT-server/lib/xcat/plugins/DBobjectdefs.pm
+++ b/xCAT-server/lib/xcat/plugins/DBobjectdefs.pm
@@ -889,7 +889,7 @@ sub defmk
     } else {
         my $invalidnodename = ();
         foreach my $node (@::allobjnames) {
-            if ($node =~ /[A-Z]/) {
+            if (($node =~ /[A-Z]/) && ((!$::opt_t) || ($::opt_t eq "node"))) {
                 $invalidnodename .= ",$node";
             }
         }
@@ -2101,7 +2101,7 @@ sub defch
                 my $newobj = ();
                 my $invalidnodename = ();
                 foreach my $node (keys %newobjects) {
-                    if ($node =~ /[A-Z]/) {
+                    if (($node =~ /[A-Z]/) && ((!$::opt_t) || ($::opt_t eq "node"))) {
                         $invalidnodename .= ",$node";
                     }
                     $newobj .= ",$node";