Bug 23396: Add keyboard_shortcuts.sql to C4/Installer.pm
[koha.git] / catalogue / stockrotation.pl
blob250167c28a67fe5460fddb53358ab29f951a902e
1 #!/usr/bin/perl
3 # Copyright 2016 PTFS-Europe Ltd
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 3 of the License, or (at your option) any later
10 # version.
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20 =head1 stockrotation.pl
22 Script to manage item assignments to stock rotation rotas. Including their
23 assiciated stages
25 =cut
27 use Modern::Perl;
28 use CGI;
30 use C4::Auth;
31 use C4::Output;
32 use C4::Search;
33 use C4::Serials;
35 use Koha::Biblio;
36 use Koha::Item;
37 use Koha::StockRotationRotas;
38 use Koha::StockRotationStages;
39 use Koha::Util::StockRotation qw(:ALL);
41 my $input = new CGI;
43 unless (C4::Context->preference('StockRotation')) {
44 # redirect to Intranet home if self-check is not enabled
45 print $input->redirect("/cgi-bin/koha/mainpage.pl");
46 exit;
49 my %params = $input->Vars();
51 my $op = $params{op};
53 my $biblionumber = $input->param('biblionumber');
55 my ($template, $loggedinuser, $cookie) = get_template_and_user(
57 template_name => 'catalogue/stockrotation.tt',
58 query => $input,
59 type => 'intranet',
60 authnotrequired => 0,
61 flagsrequired => {
62 catalogue => 1,
63 stockrotation => 'manage_rota_items',
68 if (!defined $op) {
70 # List all items along with their associated rotas
71 my $biblio = Koha::Biblios->find($biblionumber);
73 my $items = $biblio->items;
75 # Get only rotas with stages
76 my $rotas = Koha::StockRotationRotas->search(
78 'stockrotationstages.stage_id' => { '!=', undef }
81 join => 'stockrotationstages',
82 collapse => 1,
83 order_by => 'title'
87 # Construct a model to pass to the view
88 my @item_data = ();
90 while (my $item = $items->next) {
92 my $item_hashref = {
93 bib_item => $item
96 my $stockrotationitem = $item->stockrotationitem;
98 # If this item is on a rota
99 if ($stockrotationitem != 0) {
101 # This item's rota
102 my $rota = $stockrotationitem->stage->rota;
104 # This rota's stages
105 my $stages = get_stages($rota);
107 $item_hashref->{rota} = $rota;
109 $item_hashref->{stockrotationitem} = $stockrotationitem;
111 $item_hashref->{stages} = $stages;
115 push @item_data, $item_hashref;
119 $template->param(
120 no_op_set => 1,
121 rotas => $rotas,
122 items => \@item_data,
123 branches => get_branches(),
124 biblio => $biblio,
125 biblionumber => $biblio->biblionumber,
126 stockrotationview => 1,
127 subscriptionsnumber => CountSubscriptionFromBiblionumber($biblionumber),
128 C4::Search::enabled_staff_search_views
131 } elsif ($op eq "toggle_in_demand") {
133 # Toggle in demand
134 toggle_indemand($params{item_id}, $params{stage_id});
136 # Return to items list
137 print $input->redirect("?biblionumber=$biblionumber");
139 } elsif ($op eq "remove_item_from_stage") {
141 # Remove from the stage
142 remove_from_stage($params{item_id}, $params{stage_id});
144 # Return to items list
145 print $input->redirect("?biblionumber=$biblionumber");
147 } elsif ($op eq "move_to_next_stage") {
149 move_to_next_stage($params{item_id}, $params{stage_id});
151 # Return to items list
152 print $input->redirect("?biblionumber=" . $params{biblionumber});
154 } elsif ($op eq "add_item_to_rota") {
156 my $item = Koha::Items->find($params{item_id});
158 $item->add_to_rota($params{rota_id});
160 print $input->redirect("?biblionumber=" . $params{biblionumber});
162 } elsif ($op eq "confirm_remove_from_rota") {
164 $template->param(
165 op => $params{op},
166 stage_id => $params{stage_id},
167 item_id => $params{item_id},
168 biblionumber => $params{biblionumber},
169 stockrotationview => 1,
170 subscriptionsnumber => CountSubscriptionFromBiblionumber($biblionumber),
171 C4::Search::enabled_staff_search_views
176 output_html_with_http_headers $input, $cookie, $template->output;
178 =head1 AUTHOR
180 Andrew Isherwood <andrew.isherwood@ptfs-europe.com>
182 =cut