6 @EXPORT = qw(conv_i conv_date conv_dateq do_query selectrow_query do_statement
7 dump_query quote_db_date selectall_hashref_query selectfirst_hashref_query
8 prepare_execute_query);
11 my ($value, $default) = @_;
12 return (defined($value) && "$value" ne "") ? $value * 1 : $default;
17 return (defined($value) && "$value" ne "") ? $value : undef;
22 if (defined($value) && "$value" ne "") {
23 $value =~ s/\'/\'\'/g;
30 my ($form, $dbh, $query) = splice(@_, 0, 3);
31 dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
32 if (0 == scalar(@_)) {
33 $dbh->do($query) || $form->dberror($query);
35 $dbh->do($query, undef, @_) ||
36 $form->dberror($query . " (" . join(", ", @_) . ")");
41 my ($form, $dbh, $query) = splice(@_, 0, 3);
43 if (0 == scalar(@_)) {
44 my @results = $dbh->selectrow_array($query);
45 $form->dberror($query) if ($dbh->err);
48 my @results = $dbh->selectrow_array($query, undef, @_);
49 $form->dberror($query . " (" . join(", ", @_) . ")") if ($dbh->err);
55 my ($form, $sth, $query) = splice(@_, 0, 3);
57 if (0 == scalar(@_)) {
58 $sth->execute() || $form->dberror($query);
61 $form->dberror($query . " (" . join(", ", @_) . ")");
66 my ($level, $msg, $query) = splice(@_, 0, 3);
67 while ($query =~ /\?/) {
68 my $value = shift(@_);
69 $value =~ s/\'/\\\'/g;
70 $value = "'${value}'";
71 $query =~ s/\?/$value/;
74 $msg .= " " if ($msg);
76 $main::lxdebug->message($level, $msg . $query);
81 return "NULL" unless defined $str;
82 return "current_date" if $str =~ /current_date/;
87 sub prepare_execute_query {
88 my ($form, $dbh, $query) = splice(@_, 0, 3);
89 my $sth = $dbh->prepare($query) || $form->dberror($query);
90 dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
91 if (scalar(@_) != 0) {
92 $sth->execute(@_) || $form->dberror($query . " (" . join(", ", @_) . ")");
94 $sth->execute() || $form->dberror($query);
100 sub selectall_hashref_query {
101 my ($form, $dbh, $query) = splice(@_, 0, 3);
103 my $sth = prepare_execute_query($form, $dbh, $query, @_);
105 while (my $ref = $sth->fetchrow_hashref()) {
106 push(@{ $result }, $ref);
113 sub selectfirst_hashref_query {
114 my ($form, $dbh, $query) = splice(@_, 0, 3);
116 my $sth = prepare_execute_query($form, $dbh, $query, @_);
117 my $ref = $sth->fetchrow_hashref();