--- nfo/perl/libs/shortcuts/database.pm 2003/04/11 01:06:44 1.3 +++ nfo/perl/libs/shortcuts/database.pm 2003/05/13 09:10:50 1.4 @@ -1,7 +1,10 @@ ## --------------------------------------------------------------------------- -## $Id: database.pm,v 1.3 2003/04/11 01:06:44 joko Exp $ +## $Id: database.pm,v 1.4 2003/05/13 09:10:50 joko Exp $ ## --------------------------------------------------------------------------- ## $Log: database.pm,v $ +## Revision 1.4 2003/05/13 09:10:50 joko +## disabled debugging +## ## Revision 1.3 2003/04/11 01:06:44 joko ## enhanced hash2sql: ## + revamped crud action tokenizer @@ -126,7 +129,7 @@ $sql =~ s/#values#/$values/; $sql =~ s/#fields-values#/$fields_values/; - print __PACKAGE__ . "::hash2sql: \$sql=$sql", "\n"; + #print __PACKAGE__ . "::hash2sql: \$sql=$sql", "\n"; return $sql; }