arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

The code drop for the changing object name by chdef command

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7376 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
daniceexi
2010-09-08 10:38:25 +00:00
parent 303d79fbe3
commit 430511e226
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
perl-xCAT/xCAT/DBobjUtils.pm
View File

@@ -239,6 +239,7 @@ sub getobjattrs
$verbose: optional
$attrs_ref: only get the specific attributes,
this can be useful especially for performance considerations
$chname_ref: used to get the table entries for changing the object name
Arguments:
Returns:
undef - error
@@ -260,7 +261,7 @@ sub getobjattrs
#-----------------------------------------------------------------------------
sub getobjdefs
{
my ($class, $hash_ref, $verbose, $attrs_ref) = @_;
my ($class, $hash_ref, $verbose, $attrs_ref, $chname_ref) = @_;
my %objhash;
my %typehash = %$hash_ref;
my %tabhash;
@@ -473,6 +474,9 @@ sub getobjdefs
{
$objhash{$objname}{$attr} = $tabhash{$lookup_table}{$objname}{$tabattr};
}
if (defined $chname_ref) {
push @{$chname_ref->{$lookup_table}}, ($tabentry{'lookup_attrs'}, $lookup_attr);
}
$intabhash = 1;
last;
} elsif (! defined($tabhash{$lookup_table}{$objname}{"$tabattr"."_hassearched"})) {
@@ -515,6 +519,9 @@ sub getobjdefs
{
$objhash{$objname}{$attr} = $rowent->{$tabattr};
}
if (defined $chname_ref) {
push @{$chname_ref->{$lookup_table}}, ($tabentry{'lookup_attrs'}, (keys %{$tabentry{'lookup_attrs'}}) [0]);
}
} #end if ($match...
} #end foreach
} # end if (defined...