use CGI;
use File::Basename;
use Encode;
-use URI::Escape 'uri_escape_utf8';
use JSON;
#use Data::Dump 'pp';
use C4::Output;
# shortcut for long package name
-my $preferences = 'C4::ItemCirculationAlertPreference';
+our $preferences = 'C4::ItemCirculationAlertPreference';
# utf8 filter
sub utf8 {
query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { admin => 1 },
+ flagsrequired => { parameters => 'parameters_remaining_permissions' },
debug => defined($input->param('debug')),
}
);
my $br = GetBranches;
my $branch = $input->param('branch') || '*';
- my @branches = map { utf8($_, 'branchname') } (
+ my @branches = (
{
branchcode => '*',
branchname => 'Default',
}
my $branch_name = exists($br->{$branch}) && $br->{$branch}->{branchname};
- my @categories = map { utf8($_, 'description') } (
+ my @categories = (
C4::Category->all
);
- my @item_types = map { utf8($_, 'description'); br($_, 'description') } (
+ my @item_types = map { br($_, 'description') } (
C4::ItemType->all
);
my $grid_checkout = $preferences->grid({ branchcode => $branch, notification => 'CHECKOUT' });
my $response = { success => 1 };
my @reasons = $notifications->is_disabled_for($settings);
if (@reasons == 0) {
- $response->{class} = '';
+ $response->{classes} = '';
} else {
my $default_exists = grep { $_->{branchcode} eq '*' } @reasons;
my $non_default_also = grep { $_->{branchcode} ne '*' } @reasons;
my @classes;
push @classes, 'default' if $default_exists;
push @classes, 'disabled' if $non_default_also;
- $response->{class} = join(' ', @classes);
+ $response->{classes} = join(' ', @classes);
}
print $input->header;
print encode_json($response);
Parameters:
-=over 4
+=over 2
=item branch
Parameters:
-=over 4
+=over 2
=item id
-"$categorycode-$item_type-$notification"
+The id should be string that can be split on "-" which contains:
+"$categorycode-$item_type-$notification".
=item branch
=back
=cut
-
-# Local Variables: ***
-# mode: cperl ***
-# indent-tabs-mode: nil ***
-# cperl-close-paren-offset: -4 ***
-# cperl-continued-statement-offset: 4 ***
-# cperl-indent-level: 4 ***
-# cperl-indent-parens-as-block: t ***
-# cperl-tab-always-indent: nil ***
-# End: ***
-# vim:tabstop=8 softtabstop=4 shiftwidth=4 shiftround expandtab