require Exporter;
@ISA = qw(Exporter);
-@EXPORT = qw(conv_i conv_date do_query selectrow_query dump_query);
+@EXPORT = qw(conv_i conv_date conv_dateq do_query selectrow_query do_statement dump_query);
sub conv_i {
my ($value, $default) = @_;
return (defined($value) && "$value" ne "") ? $value : undef;
}
+sub conv_dateq {
+ my ($value) = @_;
+ if (defined($value) && "$value" ne "") {
+ $value =~ s/\'/\'\'/g;
+ return "'$value'";
+ }
+ return "NULL";
+}
+
sub do_query {
my ($form, $dbh, $query) = splice(@_, 0, 3);
}
}
+sub do_statement {
+ my ($form, $sth, $query) = splice(@_, 0, 3);
+
+ if (0 == scalar(@_)) {
+ $sth->execute() || $form->dberror($query);
+ } else {
+ $sth->execute(@_) ||
+ $form->dberror($query . " (" . join(", ", @_) . ")");
+ }
+}
+
sub dump_query {
my ($level, $msg, $query) = splice(@_, 0, 3);
while ($query =~ /\?/) {