/[cvs]/nfo/perl/libs/libdb.pm
ViewVC logotype

Diff of /nfo/perl/libs/libdb.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by joko, Wed Oct 16 22:36:42 2002 UTC revision 1.5 by joko, Sun Nov 17 07:18:38 2002 UTC
# Line 2  Line 2 
2  ##    $Id$  ##    $Id$
3  ##    --------------------------------------------------------------------------------  ##    --------------------------------------------------------------------------------
4  ##    $Log$  ##    $Log$
5    ##    Revision 1.5  2002/11/17 07:18:38  joko
6    ##    + small modification in hash2sql
7    ##
8  ##    Revision 1.4  2002/10/16 22:36:42  joko  ##    Revision 1.4  2002/10/16 22:36:42  joko
9  ##    + sub testDbServer  ##    + sub testDbServer
10  ##  ##
# Line 77  sub hash2Sql { Line 80  sub hash2Sql {
80    my $crit = shift;    my $crit = shift;
81        
82    my $sql;    my $sql;
83    if ($mode == SQL_INSERT || $mode eq 'SQL_INSERT') {    if ($mode eq 'SQL_INSERT' || $mode == SQL_INSERT) {
84      $sql = "INSERT INTO $table (#fields#) VALUES (#values#);";      $sql = "INSERT INTO $table (#fields#) VALUES (#values#);";
85    }    }
86    if ($mode == SQL_UPDATE || $mode eq 'SQL_UPDATE') {    if ($mode eq 'SQL_UPDATE' || $mode == SQL_UPDATE) {
87      $sql = "UPDATE $table SET #fields-values# WHERE $crit;";      $sql = "UPDATE $table SET #fields-values# WHERE $crit;";
88    }    }
89        
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed