/[cvs]/nfo/perl/libs/shortcuts/db.pm
ViewVC logotype

Diff of /nfo/perl/libs/shortcuts/db.pm

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

revision 1.1 by joko, Tue Apr 8 23:09:16 2003 UTC revision 1.2 by joko, Wed Apr 9 07:46:55 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.2  2003/04/09 07:46:55  joko
6    ##  dunno
7    ##
8  ##  Revision 1.1  2003/04/08 23:09:16  joko  ##  Revision 1.1  2003/04/08 23:09:16  joko
9  ##  initial commit: code from perl/libs/libdb.pm  ##  initial commit: code from perl/libs/libdb.pm
10  ##  ##
# Line 73  sub hash2sql { Line 76  sub hash2sql {
76      push @fields, $key;      push @fields, $key;
77      push @values, $hash->{$key};      push @values, $hash->{$key};
78    }    }
79    
80    # quote each element    # quote each element
81    map { if (defined $_) { $_ = "'$_'" } else { $_ = "null" } } @values;    map { if (defined $_) { $_ = "'$_'" } else { $_ = "null" } } @values;
82        
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed