projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Regex FTW!
[kivitendo-erp.git]
/
SL
/
DBUtils.pm
diff --git
a/SL/DBUtils.pm
b/SL/DBUtils.pm
index
f2e99a8
..
e041e10
100644
(file)
--- a/
SL/DBUtils.pm
+++ b/
SL/DBUtils.pm
@@
-1,9
+1,9
@@
package SL::DBUtils;
require Exporter;
package SL::DBUtils;
require Exporter;
-@ISA = qw(Exporter);
+
our
@ISA = qw(Exporter);
-@EXPORT = qw(conv_i conv_date conv_dateq do_query selectrow_query do_statement
+
our
@EXPORT = qw(conv_i conv_date conv_dateq do_query selectrow_query do_statement
dump_query quote_db_date
selectfirst_hashref_query selectfirst_array_query
selectall_hashref_query selectall_array_query
dump_query quote_db_date
selectfirst_hashref_query selectfirst_array_query
selectall_hashref_query selectall_array_query
@@
-12,6
+12,8
@@
require Exporter;
create_sort_spec does_table_exist
add_token);
create_sort_spec does_table_exist
add_token);
+use strict;
+
sub conv_i {
my ($value, $default) = @_;
return (defined($value) && "$value" ne "") ? $value * 1 : $default;
sub conv_i {
my ($value, $default) = @_;
return (defined($value) && "$value" ne "") ? $value * 1 : $default;
@@
-36,7
+38,7
@@
sub do_query {
my ($form, $dbh, $query) = splice(@_, 0, 3);
my ($form, $dbh, $query) = splice(@_, 0, 3);
- dump_query(LXDebug
::QUERY
, '', $query, @_);
+ dump_query(LXDebug
->QUERY()
, '', $query, @_);
my $result;
if (0 == scalar(@_)) {
my $result;
if (0 == scalar(@_)) {
@@
-57,7
+59,7
@@
sub do_statement {
my ($form, $sth, $query) = splice(@_, 0, 3);
my ($form, $sth, $query) = splice(@_, 0, 3);
- dump_query(LXDebug
::QUERY
, '', $query, @_);
+ dump_query(LXDebug
->QUERY()
, '', $query, @_);
my $result;
if (0 == scalar(@_)) {
my $result;
if (0 == scalar(@_)) {
@@
-74,8
+76,9
@@
sub do_statement {
sub dump_query {
my ($level, $msg, $query) = splice(@_, 0, 3);
sub dump_query {
my ($level, $msg, $query) = splice(@_, 0, 3);
- my $filename = $self_filename = 'SL/DBUtils.pm';
- my $caller_level;
+ my $self_filename = 'SL/DBUtils.pm';
+ my $filename = $self_filename;
+ my ($caller_level, $line, $subroutine);
while ($filename eq $self_filename) {
(undef, $filename, $line, $subroutine) = caller $caller_level++;
}
while ($filename eq $self_filename) {
(undef, $filename, $line, $subroutine) = caller $caller_level++;
}
@@
-111,7
+114,7
@@
sub prepare_query {
my ($form, $dbh, $query) = splice(@_, 0, 3);
my ($form, $dbh, $query) = splice(@_, 0, 3);
- dump_query(LXDebug
::QUERY
, '', $query, @_);
+ dump_query(LXDebug
->QUERY()
, '', $query, @_);
my $sth = $dbh->prepare($query) || $form->dberror($query);
my $sth = $dbh->prepare($query) || $form->dberror($query);
@@
-125,7
+128,7
@@
sub prepare_execute_query {
my ($form, $dbh, $query) = splice(@_, 0, 3);
my ($form, $dbh, $query) = splice(@_, 0, 3);
- dump_query(LXDebug
::QUERY
, '', $query, @_);
+ dump_query(LXDebug
->QUERY()
, '', $query, @_);
my $sth = $dbh->prepare($query) || $form->dberror($query);
if (scalar(@_) != 0) {
my $sth = $dbh->prepare($query) || $form->dberror($query);
if (scalar(@_) != 0) {
@@
-555,8
+558,6
@@
Dumps a query using LXDebug->message, using LEVEL for the debug-level of LXDebug
=back
=back
-=head1 SEE ALSO
-
=head1 MODULE AUTHORS
Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
=head1 MODULE AUTHORS
Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>