From 73aba457961f9d74d58d4c1397407b4220007880 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 23 Aug 2012 13:53:21 +0200 Subject: [PATCH] Bug 8438: Users can only claim for serials related to their branch. Only superlibrarian users and users with superserials permission can override this limitation. The original author of this patch is Julian Maurice. --- koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt | 8 +++++--- serials/claims.pl | 12 +++++++++++- 2 files changed, 16 insertions(+), 4 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt index b47b51b..cb82e27 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt @@ -262,9 +262,11 @@ [% FOREACH missingissue IN missingissues %] [% IF ( letter ) %] - - - + + [% UNLESS missingissue.cannot_claim %] + + [% END %] + [% END %] [% missingissue.name %] diff --git a/serials/claims.pl b/serials/claims.pl index 1b97a1b..95f9fd8 100755 --- a/serials/claims.pl +++ b/serials/claims.pl @@ -39,7 +39,7 @@ my $suppliername = $input->param('suppliername'); my $order = $input->param('order'); # open template first (security & userenv set here) -my ($template, $loggedinuser, $cookie) +my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user({template_name => 'serials/claims.tmpl', query => $input, type => 'intranet', @@ -71,6 +71,16 @@ if ($supplierid) { @supplierinfo=GetBookSeller($supplierid); } +unless( $flags->{superlibrarian} == 1 + || $template->{param_map}->{CAN_user_serials_superserials} ){ + foreach (@missingissues) { + if( $_->{branchcode} + and $_->{branchcode} ne C4::Context->userenv->{'branch'} ) { + $_->{cannot_claim} = 1; + } + } +} + my $branchloop = GetBranchesLoop(); unshift @$branchloop, {value=> 'all',name=>''}; -- 1.7.10.4