diff options
author | Yorhel <git@yorhel.nl> | 2011-01-25 16:22:18 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2011-01-25 16:22:18 +0100 |
commit | c9ebc852014679dce9ecef8fdf0ad161abf2780f (patch) | |
tree | 16121da6e6e329d52df869b3b74c473c4f14dc36 /lib/TUWF/DB.pm | |
parent | a36d3e75a86b9b9d80f7b549db569f3ff958816b (diff) |
Various kv_validate()/formValidate() and DB logging bugfixes
Diffstat (limited to 'lib/TUWF/DB.pm')
-rw-r--r-- | lib/TUWF/DB.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/TUWF/DB.pm b/lib/TUWF/DB.pm index 00d1aa0..24ff42e 100644 --- a/lib/TUWF/DB.pm +++ b/lib/TUWF/DB.pm @@ -144,10 +144,10 @@ sub sqlhelper { # type, query, @list # count and log, if requested my $itv = Time::HiRes::tv_interval($start) if $self->debug || $self->{_TUWF}{log_slow_pages} || $self->{_TUWF}{log_queries}; - $self->log(sprintf '[%7.2ms] %s | %s', $q[0], $itv*1000, DBI::neat_list([@q[1..$#q]])) + $self->log(sprintf '[%7.2fms] %s | %s', $itv*1000, $q[0], DBI::neat_list([@q[1..$#q]])) if $self->{_TUWF}{log_queries}; - push(@{$self->{_TUWF}{DB}{queries}}, [ \@q, ]) if $self->debug || $self->{_TUWF}{log_slow_pages}; + push(@{$self->{_TUWF}{DB}{queries}}, [ \@q, $itv ]) if $self->debug || $self->{_TUWF}{log_slow_pages}; # re-throw the error in the context of the calling code croak $s->errstr if !$ret; |