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>.
30 use C4::ItemCirculationAlertPreference;
34 use Koha::Patron::Categories;
36 # shortcut for long package name
37 our $preferences = 'C4::ItemCirculationAlertPreference';
39 # display item circulation alerts
42 my $dbh = C4::Context->dbh;
43 my ($template, $user, $cookie) = get_template_and_user(
45 template_name => "admin/item_circulation_alerts.tt",
49 flagsrequired => { parameters => 'parameters_remaining_permissions' },
50 debug => defined($input->param('debug')),
55 my $branch = $input->param('branch') || '*';
59 branchname => 'Default',
61 sort { $a->{branchname} cmp $b->{branchname} } values %$br,
64 $_->{selected} = "selected" if ($branch eq $_->{branchcode});
66 my $branch_name = exists($br->{$branch}) && $br->{$branch}->{branchname};
68 my @categories = Koha::Patron::Categories->search_limited;
69 my @item_types = Koha::ItemTypes->search;
70 my $grid_checkout = $preferences->grid({ branchcode => $branch, notification => 'CHECKOUT' });
71 my $grid_checkin = $preferences->grid({ branchcode => $branch, notification => 'CHECKIN' });
73 $template->param(branch => $branch);
74 $template->param(branch_name => $branch_name || 'Default');
75 $template->param(branches => \@branches);
76 $template->param(categories => \@categories);
77 $template->param(item_types => \@item_types);
78 $template->param(grid_checkout => $grid_checkout);
79 $template->param(grid_checkin => $grid_checkin);
81 output_html_with_http_headers $input, $cookie, $template->output;
84 # toggle a preference via ajax
87 my $id = $input->param('id');
88 my $branch = $input->param('branch');
89 my ($category, $item_type, $notification) = split('-', $id);
94 branchcode => $branch,
95 categorycode => $category,
96 item_type => $item_type,
97 notification => $notification,
100 my $restrictions = $preferences; # all the same thing...
101 my $notifications = $preferences; #
102 if ($notifications->is_enabled_for($settings)) {
103 # toggle by adding a restriction
104 $restrictions->create($settings);
106 # toggle by removing the restriction
107 $restrictions->delete($settings);
110 my $response = { success => 1 };
111 my @reasons = $notifications->is_disabled_for($settings);
113 $response->{classes} = '';
115 my $default_exists = grep { $_->{branchcode} eq '*' } @reasons;
116 my $non_default_also = grep { $_->{branchcode} ne '*' } @reasons;
118 push @classes, 'default' if $default_exists;
119 push @classes, 'disabled' if $non_default_also;
120 $response->{classes} = join(' ', @classes);
122 print $input->header;
123 print encode_json($response);
126 # dispatch to various actions based on CGI parameter 'action'
133 my $action = $input->param('action') || 'show';
134 if (not exists $handler{$action}) {
136 print $input->header(-status => $status);
139 $input->p("$action is not supported.")
142 $handler{$action}->($input);
147 dispatch if $ENV{REQUEST_URI};
153 admin/item_circulation_alerts.pl - per-branch configuration for messaging
157 L<http://intranet.mydomain.com:8080/cgi-bin/koha/admin/item_circulation_alerts.pl>
161 This CGI script drives an interface for configuring item circulation alerts.
162 If you want to prevent alerts from going out for any combination of branch,
163 patron category, and item type, this is where that policy would be set.
170 Display a branches item circulation alert preferences.
178 What branch are we looking at. If none is specified, the virtual default
185 =head3 ?action=toggle
187 Toggle a preference via AJAX
195 The id should be string that can be split on "-" which contains:
196 "$categorycode-$item_type-$notification".
200 Branch code to apply this preference to