From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 5 Jun 2009 07:21:14 +0000 (+0000)
Subject: Eine neue Funktion zum Testen, ob eine Tabelle in der Datenbank existiert oder nicht.
X-Git-Tag: release-2.6.1beta1~421
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=32147d43441f0a99e6e320f6aaeb6b68e766264f;p=kivitendo-erp.git

Eine neue Funktion zum Testen, ob eine Tabelle in der Datenbank existiert oder nicht.
---

diff --git a/SL/DBUtils.pm b/SL/DBUtils.pm
index df4c5ac93..49e9aaeb5 100644
--- a/SL/DBUtils.pm
+++ b/SL/DBUtils.pm
@@ -9,7 +9,7 @@ require Exporter;
              selectall_hashref_query selectall_array_query
              selectall_as_map
              prepare_execute_query prepare_query
-             create_sort_spec);
+             create_sort_spec does_table_exist);
 
 sub conv_i {
   my ($value, $default) = @_;
@@ -259,6 +259,28 @@ sub create_sort_spec {
   return %result;
 }
 
+sub does_table_exist {
+  $main::lxdebug->enter_sub(2);
+
+  my $dbh    = shift;
+  my $table  = shift;
+
+  my $result = 0;
+
+  if ($dbh) {
+    my $sth = $dbh->table_info('', '', $table, 'TABLE');
+    if ($sth) {
+      $result = $sth->fetchrow_hashref();
+      $sth->finish();
+    }
+  }
+
+  $main::lxdebug->leave_sub(2);
+
+  return $result;
+}
+
+
 1;