|
Lines 24-30
use C4::Koha;
Link Here
|
| 24 |
use C4::Circulation; |
24 |
use C4::Circulation; |
| 25 |
use DateTime; |
25 |
use DateTime; |
| 26 |
use Koha::DateUtils; |
26 |
use Koha::DateUtils; |
| 27 |
use C4::Budgets qw/GetCurrency GetCurrencies/; |
|
|
| 28 |
use Text::CSV::Encoded; |
27 |
use Text::CSV::Encoded; |
| 29 |
#use Data::Dumper; |
28 |
#use Data::Dumper; |
| 30 |
#use Smart::Comments; |
29 |
#use Smart::Comments; |
|
Lines 64-72
my $manualinv_types = $sth_manualinv->fetchall_arrayref({});
Link Here
|
| 64 |
|
63 |
|
| 65 |
if ($do_it) { |
64 |
if ($do_it) { |
| 66 |
|
65 |
|
| 67 |
$fromDate = output_pref({ dt => eval { dt_from_string($input->param("filter_date_begin")) } || dt_from_string, |
66 |
$fromDate = output_pref({ dt => eval { dt_from_string($input->param("from")) } || dt_from_string, |
| 68 |
dateformat => 'sql', dateonly => 1 }); #for sql query |
67 |
dateformat => 'sql', dateonly => 1 }); #for sql query |
| 69 |
$toDate = output_pref({ dt => eval { dt_from_string($input->param("filter_date_end")) } || dt_from_string, |
68 |
$toDate = output_pref({ dt => eval { dt_from_string($input->param("to")) } || dt_from_string, |
| 70 |
dateformat => 'sql', dateonly => 1 }); #for sql query |
69 |
dateformat => 'sql', dateonly => 1 }); #for sql query |
| 71 |
|
70 |
|
| 72 |
my $whereTType = ''; |
71 |
my $whereTType = ''; |
|
Lines 132-138
if ($do_it) {
Link Here
|
| 132 |
#} |
131 |
#} |
| 133 |
} |
132 |
} |
| 134 |
|
133 |
|
| 135 |
my @currency = GetCurrency(); |
|
|
| 136 |
$grantotal = sprintf("%.2f", $grantotal); |
134 |
$grantotal = sprintf("%.2f", $grantotal); |
| 137 |
|
135 |
|
| 138 |
if($output eq 'screen'){ |
136 |
if($output eq 'screen'){ |
| 139 |
- |
|
|