From adfd551781a522db185110be68c37f3bc1c38466 Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 6 Apr 2010 14:52:10 +0000
Subject: [PATCH] change get table handle not to create, problems in DB2

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

diff --git a/xCAT-server/lib/xcat/plugins/tabutils.pm b/xCAT-server/lib/xcat/plugins/tabutils.pm
index cc8935c17..b038afd40 100644
--- a/xCAT-server/lib/xcat/plugins/tabutils.pm
+++ b/xCAT-server/lib/xcat/plugins/tabutils.pm
@@ -690,9 +690,9 @@ sub tabprune_all {
    my $table = shift;
    my $cb  = shift;
    my $rc=0;
-   my $tab        = xCAT::Table->new($table, -create => 1, -autocommit => 0);
+   my $tab        = xCAT::Table->new($table);
    unless ($tab) {
-        $cb->({error => "Unable to open $table",errorcode=>4});
+        $cb->({error => "Unable to open the $table",errorcode=>4});
         return 1;
    }
    $tab->delEntries();    #Yes, delete *all* entries
@@ -706,7 +706,7 @@ sub tabprune_all {
 #  my $cb  = shift;
 #  my $numberentries  = shift;
 #  my $rc=0;
-#  #my $tab        = xCAT::Table->new($table, -create => 1, -autocommit => 0);
+#  #my $tab        = xCAT::Table->new($table);
 #  #unless ($tab) {
 #  #     $cb->({error => "Unable to open $table",errorcode=>4});
 #  #     return 1;
@@ -724,7 +724,7 @@ sub tabprune_recid {
    my $rc=0;
    # check which database so can build the correct Where clause
    my $DBname = xCAT::Utils->get_DBName;
-   my $tab        = xCAT::Table->new($table, -create => 1, -autocommit => 0);
+   my $tab        = xCAT::Table->new($table);
    unless ($tab) {
         $cb->({error => "Unable to open $table",errorcode=>4});
         return 1;