projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Vars in is::invoice_links besser sichern.
[kivitendo-erp.git]
/
SL
/
WH.pm
diff --git
a/SL/WH.pm
b/SL/WH.pm
index
7ef012d
..
1dab107
100644
(file)
--- a/
SL/WH.pm
+++ b/
SL/WH.pm
@@
-37,8
+37,10
@@
package WH;
use SL::AM;
use SL::DBUtils;
use SL::Form;
use SL::AM;
use SL::DBUtils;
use SL::Form;
+
use warnings;
use warnings;
-#use strict;
+use strict;
+
sub transfer {
$main::lxdebug->enter_sub();
sub transfer {
$main::lxdebug->enter_sub();
@@
-242,7
+244,7
@@
sub get_warehouse_journal {
my $dbh = $form->get_standard_dbh($myconfig);
# filters
my $dbh = $form->get_standard_dbh($myconfig);
# filters
- my (@filter_ary, @filter_vars, $joins);
+ my (@filter_ary, @filter_vars, $joins
, %select_tokens, %select
);
if ($filter{warehouse_id} ne '') {
push @filter_ary, "w1.id = ? OR w2.id = ?";
if ($filter{warehouse_id} ne '') {
push @filter_ary, "w1.id = ? OR w2.id = ?";
@@
-448,7
+450,7
@@
SQL
}
my @contents = ();
}
my @contents = ();
- while (my $ref = $sth->fetchrow_hashref(
NAME_lc
)) {
+ while (my $ref = $sth->fetchrow_hashref(
"NAME_lc"
)) {
map { /^r_/; $ref->{"$'"} = $ref->{$_} } keys %$ref;
my $qty = $ref->{"qty"} * 1;
map { /^r_/; $ref->{"$'"} = $ref->{$_} } keys %$ref;
my $qty = $ref->{"qty"} * 1;
@@
-628,7
+630,7
@@
sub get_warehouse_report {
my (%non_empty_bins, @all_fields, @contents);
my (%non_empty_bins, @all_fields, @contents);
- while (my $ref = $sth->fetchrow_hashref(
NAME_lc
)) {
+ while (my $ref = $sth->fetchrow_hashref(
"NAME_lc"
)) {
$ref->{qty} *= 1;
my $qty = $ref->{qty};
$ref->{qty} *= 1;
my $qty = $ref->{qty};