6 @EXPORT = qw(conv_i conv_date conv_dateq do_query selectrow_query do_statement dump_query quote_db_date);
9 my ($value, $default) = @_;
10 return (defined($value) && "$value" ne "") ? $value * 1 : $default;
15 return (defined($value) && "$value" ne "") ? $value : undef;
20 if (defined($value) && "$value" ne "") {
21 $value =~ s/\'/\'\'/g;
28 my ($form, $dbh, $query) = splice(@_, 0, 3);
30 if (0 == scalar(@_)) {
31 $dbh->do($query) || $form->dberror($query);
33 $dbh->do($query, undef, @_) ||
34 $form->dberror($query . " (" . join(", ", @_) . ")");
36 dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")");
40 my ($form, $dbh, $query) = splice(@_, 0, 3);
42 if (0 == scalar(@_)) {
43 my @results = $dbh->selectrow_array($query);
44 $form->dberror($query) if ($dbh->err);
47 my @results = $dbh->selectrow_array($query, undef, @_);
48 $form->dberror($query . " (" . join(", ", @_) . ")") if ($dbh->err);
54 my ($form, $sth, $query) = splice(@_, 0, 3);
56 if (0 == scalar(@_)) {
57 $sth->execute() || $form->dberror($query);
60 $form->dberror($query . " (" . join(", ", @_) . ")");
65 my ($level, $msg, $query) = splice(@_, 0, 3);
66 while ($query =~ /\?/) {
67 my $value = shift(@_);
68 $value =~ s/\'/\\\'/g;
69 $value = "'${value}'";
70 $query =~ s/\?/$value/;
73 $msg .= " " if ($msg);
75 $main::lxdebug->message($level, $msg . $query);
80 return "NULL" unless defined $str;
81 return "current_date" if $str =~ /current_date/;