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

removed the quotes for db columns that has the quotes after getting primary key info

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4064 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
linggao 2009-08-31 19:52:33 +00:00
parent e5786506f0
commit fc986a252b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
perl-xCAT/xCAT/Table.pm
View File

@ -621,9 +621,11 @@ sub updateschema
my $tn=$self->{tabname};
while ( my $col_info = $sth->fetchrow_hashref ) {
#print Dumper($col_info);
push @columns, $col_info->{name};
my $tmp_col=$col_info->{name};
$tmp_col =~ s/"//g;
push @columns, $tmp_col;
if ($col_info->{pk}) {
$dbkeys{$col_info->{name}}=1;
$dbkeys{$tmp_col}=1;
}
}
$sth->finish;
@ -643,7 +645,9 @@ sub updateschema
my $data = $sth->fetchall_arrayref;
#print "data=". Dumper($data);
foreach my $cd (@$data) {
$dbkeys{$cd->[3]}=1;
my $tmp_col=$cd->[3];
$tmp_col =~ s/"//g;
$dbkeys{$tmp_col}=1;
}
}