3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 2 of the License, or (at your option) any later
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along with
15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
16 # Suite 330, Boston, MA 02111-1307 USA
32 use C4::ItemCirculationAlertPreference;
35 # shortcut for long package name
36 our $preferences = 'C4::ItemCirculationAlertPreference';
38 # prepend "br_" to column name and replace spaces with "<br/>"
40 my ($data, @keys) = @_;
43 $br =~ s{\s+}{<br/>}g;
44 $data->{'br_'.$_} = $br;
49 # display item circulation alerts
52 my $dbh = C4::Context->dbh;
53 my ($template, $user, $cookie) = get_template_and_user(
55 template_name => "admin/item_circulation_alerts.tt",
59 flagsrequired => { parameters => 'parameters_remaining_permissions' },
60 debug => defined($input->param('debug')),
65 my $branch = $input->param('branch') || '*';
69 branchname => 'Default',
71 sort { $a->{branchname} cmp $b->{branchname} } values %$br,
74 $_->{selected} = "selected" if ($branch eq $_->{branchcode});
76 my $branch_name = exists($br->{$branch}) && $br->{$branch}->{branchname};
81 my @item_types = map { br($_, 'description') } (
84 my $grid_checkout = $preferences->grid({ branchcode => $branch, notification => 'CHECKOUT' });
85 my $grid_checkin = $preferences->grid({ branchcode => $branch, notification => 'CHECKIN' });
87 $template->param(branch => $branch);
88 $template->param(branch_name => $branch_name || 'Default');
89 $template->param(branches => \@branches);
90 $template->param(categories => \@categories);
91 $template->param(item_types => \@item_types);
92 $template->param(grid_checkout => $grid_checkout);
93 $template->param(grid_checkin => $grid_checkin);
95 output_html_with_http_headers $input, $cookie, $template->output;
98 # toggle a preference via ajax
101 my $id = $input->param('id');
102 my $branch = $input->param('branch');
103 my ($category, $item_type, $notification) = split('-', $id);
105 $item_type =~ s/_/*/;
108 branchcode => $branch,
109 categorycode => $category,
110 item_type => $item_type,
111 notification => $notification,
114 my $restrictions = $preferences; # all the same thing...
115 my $notifications = $preferences; #
116 if ($notifications->is_enabled_for($settings)) {
117 # toggle by adding a restriction
118 $restrictions->create($settings);
120 # toggle by removing the restriction
121 $restrictions->delete($settings);
124 my $response = { success => 1 };
125 my @reasons = $notifications->is_disabled_for($settings);
127 $response->{classes} = '';
129 my $default_exists = grep { $_->{branchcode} eq '*' } @reasons;
130 my $non_default_also = grep { $_->{branchcode} ne '*' } @reasons;
132 push @classes, 'default' if $default_exists;
133 push @classes, 'disabled' if $non_default_also;
134 $response->{classes} = join(' ', @classes);
136 print $input->header;
137 print encode_json($response);
140 # dispatch to various actions based on CGI parameter 'action'
147 my $action = $input->param('action') || 'show';
148 if (not exists $handler{$action}) {
150 print $input->header(-status => $status);
153 $input->p("$action is not supported.")
156 $handler{$action}->($input);
161 dispatch if $ENV{REQUEST_URI};
167 admin/item_circulation_alerts.pl - per-branch configuration for messaging
171 L<http://intranet.mydomain.com:8080/cgi-bin/koha/admin/item_circulation_alerts.pl>
175 This CGI script drives an interface for configuring item circulation alerts.
176 If you want to prevent alerts from going out for any combination of branch,
177 patron category, and item type, this is where that policy would be set.
184 Display a branches item circulation alert preferences.
192 What branch are we looking at. If none is specified, the virtual default
199 =head3 ?action=toggle
201 Toggle a preference via AJAX
209 The id should be string that can be split on "-" which contains:
210 "$categorycode-$item_type-$notification".
214 Branch code to apply this preference to