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

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

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

revision 1.1 by joko, Wed Apr 9 07:47:52 2003 UTC revision 1.2 by joko, Wed Apr 9 07:51:11 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5  ##  Revision 1.1  2003/04/09 07:47:52  joko  ##  Revision 1.2  2003/04/09 07:51:11  joko
6  ##  renamed from db.pm  ##  renamed from db.pm
7  ##  ##
8  ##  Revision 1.1  2003/04/08 23:09:16  joko  ##  Revision 1.1  2003/04/08 23:09:16  joko
# Line 76  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