--- nfo/perl/libs/shortcuts/db.pm 2003/04/08 23:09:16 1.1 +++ nfo/perl/libs/shortcuts/db.pm 2003/04/09 07:46:55 1.2 @@ -1,7 +1,10 @@ ## --------------------------------------------------------------------------- -## $Id: db.pm,v 1.1 2003/04/08 23:09:16 joko Exp $ +## $Id: db.pm,v 1.2 2003/04/09 07:46:55 joko Exp $ ## --------------------------------------------------------------------------- ## $Log: db.pm,v $ +## Revision 1.2 2003/04/09 07:46:55 joko +## dunno +## ## Revision 1.1 2003/04/08 23:09:16 joko ## initial commit: code from perl/libs/libdb.pm ## @@ -73,6 +76,7 @@ push @fields, $key; push @values, $hash->{$key}; } + # quote each element map { if (defined $_) { $_ = "'$_'" } else { $_ = "null" } } @values;