3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
21 use JSON qw( encode_json );
24 use C4::Auth qw( get_template_and_user );
26 use C4::ItemCirculationAlertPreference;
27 use C4::Output qw( output_html_with_http_headers );
30 use Koha::Patron::Categories;
32 # shortcut for long package name
33 our $preferences = 'C4::ItemCirculationAlertPreference';
35 # display item circulation alerts
38 my $dbh = C4::Context->dbh;
39 my ($template, $user, $cookie) = get_template_and_user(
41 template_name => "admin/item_circulation_alerts.tt",
44 flagsrequired => { parameters => 'manage_item_circ_alerts' },
45 debug => defined($input->param('debug')),
49 my $branch = $input->param('branch') || '*';
50 my $grid_checkout = $preferences->grid({ branchcode => $branch, notification => 'CHECKOUT' });
51 my $grid_checkin = $preferences->grid({ branchcode => $branch, notification => 'CHECKIN' });
55 item_types => Koha::ItemTypes->search,
56 grid_checkout => $grid_checkout,
57 grid_checkin => $grid_checkin,
60 output_html_with_http_headers $input, $cookie, $template->output;
63 # toggle a preference via ajax
66 my $id = $input->param('id');
67 my $branch = $input->param('branch');
68 my ($category, $item_type, $notification) = split('-', $id);
73 branchcode => $branch,
74 categorycode => $category,
75 item_type => $item_type,
76 notification => $notification,
79 my $restrictions = $preferences; # all the same thing...
80 my $notifications = $preferences; #
81 if ($notifications->is_enabled_for($settings)) {
82 # toggle by adding a restriction
83 $restrictions->create($settings);
85 # toggle by removing the restriction
86 $restrictions->delete($settings);
89 my $response = { success => 1 };
90 my @reasons = $notifications->is_disabled_for($settings);
92 $response->{classes} = '';
94 my $default_exists = grep { $_->{branchcode} eq '*' } @reasons;
95 my $non_default_also = grep { $_->{branchcode} ne '*' } @reasons;
97 push @classes, 'default' if $default_exists;
98 push @classes, 'disabled' if $non_default_also;
99 $response->{classes} = join(' ', @classes);
101 print $input->header;
102 print encode_json($response);
105 # dispatch to various actions based on CGI parameter 'action'
111 my $input = CGI->new;
112 my $action = $input->param('action') || 'show';
113 if (not exists $handler{$action}) {
115 print $input->header(-status => $status);
118 $input->p("$action is not supported.")
121 $handler{$action}->($input);
126 dispatch if $ENV{REQUEST_URI};
132 admin/item_circulation_alerts.pl - per-branch configuration for messaging
136 L<http://intranet.mydomain.com:8080/cgi-bin/koha/admin/item_circulation_alerts.pl>
140 This CGI script drives an interface for configuring item circulation alerts.
141 If you want to prevent alerts from going out for any combination of branch,
142 patron category, and item type, this is where that policy would be set.
149 Display a branches item circulation alert preferences.
157 What branch are we looking at. If none is specified, the virtual default
164 =head3 ?action=toggle
166 Toggle a preference via AJAX
174 The id should be string that can be split on "-" which contains:
175 "$categorycode-$item_type-$notification".
179 Branch code to apply this preference to