|
Lines 25-31
This script displays items in the tmp_holdsqueue table
Link Here
|
| 25 |
use Modern::Perl; |
25 |
use Modern::Perl; |
| 26 |
use CGI qw ( -utf8 ); |
26 |
use CGI qw ( -utf8 ); |
| 27 |
use C4::Auth qw( get_template_and_user ); |
27 |
use C4::Auth qw( get_template_and_user ); |
| 28 |
use C4::Output qw( output_html_with_http_headers ); |
28 |
use C4::Output qw( output_html_with_http_headers pagination_bar ); |
| 29 |
use C4::HoldsQueue qw( GetHoldsQueueItems ); |
29 |
use C4::HoldsQueue qw( GetHoldsQueueItems ); |
| 30 |
use Koha::BiblioFrameworks; |
30 |
use Koha::BiblioFrameworks; |
| 31 |
use Koha::ItemTypes; |
31 |
use Koha::ItemTypes; |
|
Lines 44-60
my $params = $query->Vars;
Link Here
|
| 44 |
my $run_report = $params->{'run_report'}; |
44 |
my $run_report = $params->{'run_report'}; |
| 45 |
my $branchlimit = $params->{'branchlimit'}; |
45 |
my $branchlimit = $params->{'branchlimit'}; |
| 46 |
my $itemtypeslimit = $params->{'itemtypeslimit'}; |
46 |
my $itemtypeslimit = $params->{'itemtypeslimit'}; |
| 47 |
my $ccodeslimit = $params->{'ccodeslimit'}; |
47 |
my $ccodeslimit = $params->{'ccodeslimit'}; |
| 48 |
my $locationslimit = $params->{'locationslimit'}; |
48 |
my $locationslimit = $params->{'locationslimit'}; |
|
|
49 |
my $limit = $params->{'limit'} || 20; |
| 50 |
my $page = $params->{'page'} || 1; |
| 49 |
|
51 |
|
| 50 |
if ( $run_report ) { |
52 |
if ( $run_report ) { |
| 51 |
my $items = GetHoldsQueueItems({ |
53 |
my ( $items, $total ) = GetHoldsQueueItems({ |
| 52 |
branchlimt => $branchlimit, |
54 |
branchlimt => $branchlimit, |
| 53 |
itemtypeslimit => $itemtypeslimit, |
55 |
itemtypeslimit => $itemtypeslimit, |
| 54 |
ccodeslimit => $ccodeslimit, |
56 |
ccodeslimit => $ccodeslimit, |
| 55 |
locationslimit => $locationslimit |
57 |
locationslimit => $locationslimit, |
|
|
58 |
limit => $limit, |
| 59 |
page => $page, |
| 56 |
}); |
60 |
}); |
| 57 |
|
61 |
|
|
|
62 |
my $pages = int( $total / $limit ) + ( ( $total % $limit ) > 0 ? 1 : 0 ); |
| 58 |
$template->param( |
63 |
$template->param( |
| 59 |
branchlimit => $branchlimit, |
64 |
branchlimit => $branchlimit, |
| 60 |
itemtypeslimit => $itemtypeslimit, |
65 |
itemtypeslimit => $itemtypeslimit, |
|
Lines 63-68
if ( $run_report ) {
Link Here
|
| 63 |
total => scalar @$items, |
68 |
total => scalar @$items, |
| 64 |
itemsloop => $items, |
69 |
itemsloop => $items, |
| 65 |
run_report => $run_report, |
70 |
run_report => $run_report, |
|
|
71 |
page => $page, |
| 72 |
limit => $limit, |
| 73 |
pagination_bar => pagination_bar( |
| 74 |
'view_holdsqueue.pl', |
| 75 |
$pages, |
| 76 |
$page, |
| 77 |
'page', |
| 78 |
{ |
| 79 |
branchlimit => $branchlimit, |
| 80 |
itemtypeslimit => $itemtypeslimit, |
| 81 |
ccodeslimit => $ccodeslimit, |
| 82 |
locationslimit => $locationslimit, |
| 83 |
limit => $limit, |
| 84 |
run_report => 1, |
| 85 |
} |
| 86 |
), |
| 66 |
); |
87 |
); |
| 67 |
} |
88 |
} |
| 68 |
|
89 |
|