From 0b903c5166e4e5c4426582c3c5a9bd23f5713939 Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Wed, 22 Aug 2012 14:35:37 +0200
Subject: [PATCH] Bug 8436: Add limit on branch in checkexpiration.pl

This limit is only available for superlibrarians and patrons that have
superserials permission. Other patrons will only see subscriptions of
their branch.

Signed-off-by: Paola Rossi <paola.rossi@cineca.it>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 .../en/modules/serials/checkexpiration.tt     | 16 +++++++
 serials/checkexpiration.pl                    | 42 +++++++++++++++++--
 2 files changed, 54 insertions(+), 4 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/checkexpiration.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/checkexpiration.tt
index 95bfcb89fd..1859fafb22 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/checkexpiration.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/checkexpiration.tt
@@ -51,6 +51,22 @@
 
         <li><label for="issn">ISSN:</label>
         <input id="issn" type="text" name="issn" size="15" value="[% issn %]" /></li>
+        [% IF (branches_loop.size) %]
+        <li><label for="branch">Branch:</label>
+        <select id="branch" name="branch">
+            <option value="">All</option>
+            [% FOREACH branch IN branches_loop %]
+                [% IF branch.selected %]
+                    <option selected="selected" value="[% branch.branchcode %]">
+                [% ELSE %]
+                    <option value="[% branch.branchcode %]">
+                [% END %]
+                    [% branch.branchname %]
+                </option>
+            [% END %]
+        </select>
+        </li>
+        [% END %]
 
         <li><label for="date" class="required" title="Required field">Expiring before:</label>
         <input id="date" type="text" name="date" size="10" value="[% date %]" class="focus datepicker" />
diff --git a/serials/checkexpiration.pl b/serials/checkexpiration.pl
index e5abce18b0..23e692fe87 100755
--- a/serials/checkexpiration.pl
+++ b/serials/checkexpiration.pl
@@ -47,6 +47,7 @@ use warnings;
 use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Serials; # GetExpirationDate
+use C4::Branch;
 use C4::Output;
 use C4::Context;
 use C4::Dates qw/format_date format_date_in_iso/;
@@ -54,7 +55,7 @@ use Date::Calc qw/Today Date_to_Days/;
 
 my $query = new CGI;
 
-my ( $template, $loggedinuser, $cookie ) = get_template_and_user (
+my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user (
     {
         template_name   => "serials/checkexpiration.tt",
         query           => $query,
@@ -67,6 +68,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user (
 
 my $title = $query->param('title');
 my $issn  = $query->param('issn');
+my $branch = $query->param('branch');
 my $date  = format_date_in_iso($query->param('date'));
 
 if ($date) {
@@ -76,12 +78,18 @@ if ($date) {
     foreach my $subscription ( @subscriptions ) {
         my $subscriptionid = $subscription->{'subscriptionid'};
         my $expirationdate = GetExpirationDate($subscriptionid);
-
         $subscription->{expirationdate} = $expirationdate;
         next if $expirationdate !~ /\d{4}-\d{2}-\d{2}/; # next if not in ISO format.
         next if $subscription->{closed};
+        if (   ( ref $flags->{serials} and $flags->{serials}->{superserials} )
+            or ( !ref $flags->{serials} and $flags->{serials} == 1 ) )
+        {
+            $subscription->{cannotedit} = 0;
+        }
+        next if $subscription->{cannotedit};
         if ( Date_to_Days(split "-",$expirationdate) < Date_to_Days(split "-",$date) &&
-			 Date_to_Days(split "-",$expirationdate) > Date_to_Days(&Today) ) {
+             Date_to_Days(split "-",$expirationdate) > Date_to_Days(&Today) &&
+             ( !$branch || ($subscription->{'branchcode'} eq $branch) ) ) {
             $subscription->{expirationdate}=format_date($subscription->{expirationdate});
             push @subscriptions_loop,$subscription;
         }
@@ -96,7 +104,33 @@ if ($date) {
         "BiblioDefaultView".C4::Context->preference("BiblioDefaultView") => 1,
     );
 }
+
+my $branchname;
+my @branches_loop;
+if (   $flags->{superlibrarian}
+    or ( ref $flags->{serials}  and $flags->{serials}->{superserials} )
+    or ( !ref $flags->{serials} and $flags->{serials} == 1 ) )
+{
+    my $branches = GetBranches();
+    foreach my $b (sort keys %$branches) {
+        my $selected = 0;
+        if( $branch and $branch eq $b ){
+            $selected = 1;
+            $branchname = $branches->{$b}->{branchname};
+        }
+        push @branches_loop, {
+            branchcode => $b,
+            branchname => $branches->{$b}->{branchname},
+            selected   => $selected,
+        };
+    }
+}
+
 $template->param (
-    (uc(C4::Context->preference("marcflavour"))) => 1
+    (uc(C4::Context->preference("marcflavour"))) => 1,
+    branches_loop   => \@branches_loop,
+    branchcode      => $branch,
+    branchname      => $branchname,
 );
+
 output_html_with_http_headers $query, $cookie, $template->output;
-- 
2.39.5