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 => 'item_circ_alerts' },
45 debug => defined($input->param('debug')),
49 my $branch = $input->param('branch') || '*';
50 my @categories = Koha::Patron::Categories->search_with_library_limits;
51 my @item_types = Koha::ItemTypes->search;
52 my $grid_checkout = $preferences->grid({ branchcode => $branch, notification => 'CHECKOUT' });
53 my $grid_checkin = $preferences->grid({ branchcode => $branch, notification => 'CHECKIN' });
55 $template->param(branch => $branch);
56 $template->param(categories => \@categories);
57 $template->param(item_types => \@item_types);
58 $template->param(grid_checkout => $grid_checkout);
59 $template->param(grid_checkin => $grid_checkin);
61 output_html_with_http_headers $input, $cookie, $template->output;
64 # toggle a preference via ajax
67 my $id = $input->param('id');
68 my $branch = $input->param('branch');
69 my ($category, $item_type, $notification) = split('-', $id);
74 branchcode => $branch,
75 categorycode => $category,
76 item_type => $item_type,
77 notification => $notification,
80 my $restrictions = $preferences; # all the same thing...
81 my $notifications = $preferences; #
82 if ($notifications->is_enabled_for($settings)) {
83 # toggle by adding a restriction
84 $restrictions->create($settings);
86 # toggle by removing the restriction
87 $restrictions->delete($settings);
90 my $response = { success => 1 };
91 my @reasons = $notifications->is_disabled_for($settings);
93 $response->{classes} = '';
95 my $default_exists = grep { $_->{branchcode} eq '*' } @reasons;
96 my $non_default_also = grep { $_->{branchcode} ne '*' } @reasons;
98 push @classes, 'default' if $default_exists;
99 push @classes, 'disabled' if $non_default_also;
100 $response->{classes} = join(' ', @classes);
102 print $input->header;
103 print encode_json($response);
106 # dispatch to various actions based on CGI parameter 'action'
112 my $input = CGI->new;
113 my $action = $input->param('action') || 'show';
114 if (not exists $handler{$action}) {
116 print $input->header(-status => $status);
119 $input->p("$action is not supported.")
122 $handler{$action}->($input);
127 dispatch if $ENV{REQUEST_URI};
133 admin/item_circulation_alerts.pl - per-branch configuration for messaging
137 L<http://intranet.mydomain.com:8080/cgi-bin/koha/admin/item_circulation_alerts.pl>
141 This CGI script drives an interface for configuring item circulation alerts.
142 If you want to prevent alerts from going out for any combination of branch,
143 patron category, and item type, this is where that policy would be set.
150 Display a branches item circulation alert preferences.
158 What branch are we looking at. If none is specified, the virtual default
165 =head3 ?action=toggle
167 Toggle a preference via AJAX
175 The id should be string that can be split on "-" which contains:
176 "$categorycode-$item_type-$notification".
180 Branch code to apply this preference to