-Fix use of nodech to manipulate columns that are not 'node' but act like 'node (bug 2785190)

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

perl-xCAT/xCAT/Table.pm

@@ -921,7 +921,11 @@ sub setNodeAttribs
 {
     my $self = shift;
     my $node = shift;
-    return $self->setAttribs({'node' => $node}, @_);
+    my $nodekey = "node";
+    if (defined $xCAT::Schema::tabspec{$self->{tabname}}->{nodecol}) {
+        $nodekey = $xCAT::Schema::tabspec{$self->{tabname}}->{nodecol}
+    };
+    return $self->setAttribs({$nodekey => $node}, @_);
 }
 
 #--------------------------------------------------------------------------