--- nfo/perl/libs/libdb.pm	2002/10/16 22:36:42	1.4
+++ nfo/perl/libs/libdb.pm	2002/11/17 07:18:38	1.5
@@ -1,7 +1,10 @@
 ##    --------------------------------------------------------------------------------
-##    $Id: libdb.pm,v 1.4 2002/10/16 22:36:42 joko Exp $
+##    $Id: libdb.pm,v 1.5 2002/11/17 07:18:38 joko Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: libdb.pm,v $
+##    Revision 1.5  2002/11/17 07:18:38  joko
+##    + small modification in hash2sql
+##
 ##    Revision 1.4  2002/10/16 22:36:42  joko
 ##    + sub testDbServer
 ##
@@ -77,10 +80,10 @@
   my $crit = shift;
   
   my $sql;
-  if ($mode == SQL_INSERT || $mode eq 'SQL_INSERT') {
+  if ($mode eq 'SQL_INSERT' || $mode == SQL_INSERT) {
     $sql = "INSERT INTO $table (#fields#) VALUES (#values#);";
   }
-  if ($mode == SQL_UPDATE || $mode eq 'SQL_UPDATE') {
+  if ($mode eq 'SQL_UPDATE' || $mode == SQL_UPDATE) {
     $sql = "UPDATE $table SET #fields-values# WHERE $crit;";
   }