--- nfo/perl/libs/shortcuts/database.pm	2003/04/09 07:47:52	1.1
+++ nfo/perl/libs/shortcuts/database.pm	2003/04/09 07:51:11	1.2
@@ -1,8 +1,8 @@
 ## ---------------------------------------------------------------------------
-##  $Id: database.pm,v 1.1 2003/04/09 07:47:52 joko Exp $
+##  $Id: database.pm,v 1.2 2003/04/09 07:51:11 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: database.pm,v $
-##  Revision 1.1  2003/04/09 07:47:52  joko
+##  Revision 1.2  2003/04/09 07:51:11  joko
 ##  renamed from db.pm
 ##
 ##  Revision 1.1  2003/04/08 23:09:16  joko
@@ -76,6 +76,7 @@
     push @fields, $key;
     push @values, $hash->{$key};
   }
+
   # quote each element
   map { if (defined $_) { $_ = "'$_'" } else { $_ = "null" } } @values;