--- nfo/perl/libs/Data/Storage.pm	2002/12/17 21:54:12	1.13
+++ nfo/perl/libs/Data/Storage.pm	2002/12/19 16:27:59	1.14
@@ -1,4 +1,4 @@
-# $Id: Storage.pm,v 1.13 2002/12/17 21:54:12 joko Exp $
+# $Id: Storage.pm,v 1.14 2002/12/19 16:27:59 joko Exp $
 #
 # Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>
 #
@@ -7,6 +7,9 @@
 ############################################
 #
 #  $Log: Storage.pm,v $
+#  Revision 1.14  2002/12/19 16:27:59  joko
+#  - moved 'sub dropDb' to Data::Storage::Handler::DBI
+#
 #  Revision 1.13  2002/12/17 21:54:12  joko
 #  + feature when using Tangram:
 #    + what? each object created should delivered with a globally(!?) unique identifier (GUID) besides the native tangram object id (OID)
@@ -412,33 +415,6 @@
   }
 }
 
-sub dropDb {
-  my $self = shift;
-  my $dsn = $self->{locator}->{dbi}->{dsn};
-
-  $logger->debug( __PACKAGE__ .  "->dropDb( dsn $dsn )" );
-
-  $dsn =~ s/database=(.+?);//;
-  my $database_name = $1;
-
-  my $ok;
-  
-  if ( my $dbh = DBI->connect($dsn, '', '', {
-                                                      PrintError => 0,
-                                                      } ) ) {
-    if ($database_name) {
-      if ($dbh->do("DROP DATABASE $database_name;")) {
-        $ok = 1;
-      }
-    }
-
-    $dbh->disconnect();
-
-  }
-  
-  return $ok;
-}
-
 1;
 __END__