--- nfo/perl/libs/libdb.pm	2002/07/20 11:09:58	1.2
+++ nfo/perl/libs/libdb.pm	2002/07/27 00:28:20	1.3
@@ -1,7 +1,10 @@
 ##    --------------------------------------------------------------------------------
-##    $Id: libdb.pm,v 1.2 2002/07/20 11:09:58 cvsjoko Exp $
+##    $Id: libdb.pm,v 1.3 2002/07/27 00:28:20 cvsjoko Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: libdb.pm,v $
+##    Revision 1.3  2002/07/27 00:28:20  cvsjoko
+##    bugfixes
+##
 ##    Revision 1.2  2002/07/20 11:09:58  cvsjoko
 ##    + bugfixes
 ##    + dont' print sql-errors
@@ -173,8 +176,10 @@
   my $bool_ok;
   if (connectTarget($dbmeta)) {
     sendSql($sql);
-    #print "state: ", $dbmeta->{dbh}->errstr, "\n";
-    $bool_ok = ($dbmeta->{dbh} && $dbmeta->{dbh}->state && !$dbmeta->{dbh}->err);
+    #print "state: ", $dbmeta->{dbh}->state, "\n";
+    #print "err    ", $dbmeta->{dbh}->err, "\n";
+    #$bool_ok = ($dbmeta->{dbh} && $dbmeta->{dbh}->state && !$dbmeta->{dbh}->err);
+    $bool_ok = ($dbmeta->{dbh} && !$dbmeta->{dbh}->err);
     disconnectTarget($dbmeta);
   }
   return $bool_ok;
@@ -187,11 +192,12 @@
   my $sql;
   $sql = "CREATE DATABASE $dbname;";
   if ( sqlDbAction($dsn, $sql) ) {
-    print "ok";
+    print "ok", "\n";
+    return 1;
   } else {
-    print "failed";
+    print "failed", "\n";
+    return 0;
   }
-  print "\n";
 }
 
 sub dropSqlDb {
@@ -219,4 +225,4 @@
   return 1 if ($bool_tablesHere);
 }
 
-1;
\ No newline at end of file
+1;