Lines 61-66
my @debit_types =
Link Here
|
61 |
Koha::Account::DebitTypes->search()->as_list; |
61 |
Koha::Account::DebitTypes->search()->as_list; |
62 |
my @credit_types = |
62 |
my @credit_types = |
63 |
Koha::Account::CreditTypes->search()->as_list; |
63 |
Koha::Account::CreditTypes->search()->as_list; |
|
|
64 |
my $registerid; |
64 |
|
65 |
|
65 |
if ($do_it) { |
66 |
if ($do_it) { |
66 |
|
67 |
|
Lines 94-99
if ($do_it) {
Link Here
|
94 |
push @extra_params, $manager_branchcode; |
95 |
push @extra_params, $manager_branchcode; |
95 |
} |
96 |
} |
96 |
|
97 |
|
|
|
98 |
my $whereRegister = q{}; |
99 |
$registerid = $input->param("registerid"); |
100 |
if ($registerid) { |
101 |
$whereRegister = q{ AND al.register_id = ?}; |
102 |
push @extra_params, $registerid; |
103 |
} |
97 |
|
104 |
|
98 |
my $query = " |
105 |
my $query = " |
99 |
SELECT round(amount,2) AS amount, description, |
106 |
SELECT round(amount,2) AS amount, description, |
Lines 110-115
if ($do_it) {
Link Here
|
110 |
WHERE CAST(al.date AS DATE) BETWEEN ? AND ? |
117 |
WHERE CAST(al.date AS DATE) BETWEEN ? AND ? |
111 |
$whereTType |
118 |
$whereTType |
112 |
$whereBranchCode |
119 |
$whereBranchCode |
|
|
120 |
$whereRegister |
113 |
ORDER BY al.date |
121 |
ORDER BY al.date |
114 |
"; |
122 |
"; |
115 |
my $sth_stats = $dbh->prepare($query) or die "Unable to prepare query " . $dbh->errstr; |
123 |
my $sth_stats = $dbh->prepare($query) or die "Unable to prepare query " . $dbh->errstr; |
Lines 191-196
$template->param(
Link Here
|
191 |
branchloop => Koha::Libraries->search({}, { order_by => ['branchname'] })->unblessed, |
199 |
branchloop => Koha::Libraries->search({}, { order_by => ['branchname'] })->unblessed, |
192 |
debit_types => \@debit_types, |
200 |
debit_types => \@debit_types, |
193 |
credit_types => \@credit_types, |
201 |
credit_types => \@credit_types, |
|
|
202 |
registerid => $registerid, |
194 |
CGIsepChoice => GetDelimiterChoices, |
203 |
CGIsepChoice => GetDelimiterChoices, |
195 |
); |
204 |
); |
196 |
|
205 |
|
197 |
- |
|
|