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-58
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 |
|
58 |
$template->param( |
62 |
$template->param( |
Lines 63-68
if ( $run_report ) {
Link Here
|
63 |
total => scalar @$items, |
67 |
total => scalar @$items, |
64 |
itemsloop => $items, |
68 |
itemsloop => $items, |
65 |
run_report => $run_report, |
69 |
run_report => $run_report, |
|
|
70 |
page => $page, |
71 |
limit => $limit, |
72 |
pagination_bar => pagination_bar( |
73 |
'view_holdsqueue.pl', |
74 |
$pages, |
75 |
$page, |
76 |
'page', |
77 |
{ |
78 |
branchlimit => $branchlimit, |
79 |
itemtypeslimit => $itemtypeslimit, |
80 |
ccodeslimit => $ccodeslimit, |
81 |
locationslimit => $locationslimit, |
82 |
limit => $limit, |
83 |
run_report => 1, |
84 |
} |
85 |
), |
66 |
); |
86 |
); |
67 |
} |
87 |
} |
68 |
|
88 |
|