[Koha-patches] [PATCH 1/2][3.0.x] Ensure op is defined in serials scripts
Nahuel ANGELINETTI
nahuel.angelinetti at biblibre.com
Wed Apr 7 16:07:09 CEST 2010
From: Colin Campbell <colin.campbell at ptfs-europe.com>
Set $op to an empty string if no value passed
otherwise the error-log fills with warnings on comparison
---
serials/serials-collection.pl | 3 +--
serials/subscription-bib-search.pl | 2 +-
serials/subscription-detail.pl | 4 ++--
serials/subscription-renew.pl | 2 +-
4 files changed, 5 insertions(+), 6 deletions(-)
diff --git a/serials/serials-collection.pl b/serials/serials-collection.pl
index f66d724..52fecaa 100755
--- a/serials/serials-collection.pl
+++ b/serials/serials-collection.pl
@@ -31,7 +31,7 @@ use C4::Context;
my $query = new CGI;
-my $op = $query->param('op');
+my $op = $query->param('op') || q{};
my $dbh = C4::Context->dbh;
my $sth;
@@ -51,7 +51,6 @@ my @subscriptionid = $query->param('subscriptionid');
my $subscriptiondescs ;
my $subscriptions;
-$op ||= q{};
if($op eq 'gennext' && @subscriptionid){
my $subscriptionid = $subscriptionid[0];
my $subscription = GetSubscription($subscriptionid);
diff --git a/serials/subscription-bib-search.pl b/serials/subscription-bib-search.pl
index 2493be8..cb2c091 100755
--- a/serials/subscription-bib-search.pl
+++ b/serials/subscription-bib-search.pl
@@ -60,7 +60,7 @@ use C4::Biblio;
my $input=new CGI;
# my $type=$query->param('type');
-my $op = $input->param('op');
+my $op = $input->param('op') || q{};
my $dbh = C4::Context->dbh;
my $startfrom=$input->param('startfrom');
diff --git a/serials/subscription-detail.pl b/serials/subscription-detail.pl
index f04f3b1..d93157a 100755
--- a/serials/subscription-detail.pl
+++ b/serials/subscription-detail.pl
@@ -28,7 +28,7 @@ use Date::Calc qw/Today Day_of_Year Week_of_Year Add_Delta_Days/;
use Carp;
my $query = new CGI;
-my $op = $query->param('op');
+my $op = $query->param('op') || q{};
my $dbh = C4::Context->dbh;
my ($template, $loggedinuser, $cookie, $hemisphere);
my $subscriptionid = $query->param('subscriptionid');
@@ -36,7 +36,7 @@ my $subs = GetSubscription($subscriptionid);
$subs->{enddate} = GetExpirationDate($subscriptionid);
-if ($op && $op eq 'del') {
+if ( $op eq 'del') {
if ($subs->{'cannotedit'}){
carp "Attempt to delete subscription $subscriptionid by ".C4::Context->userenv->{'id'}." not allowed";
print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");
diff --git a/serials/subscription-renew.pl b/serials/subscription-renew.pl
index 219fca7..1977a1c 100755
--- a/serials/subscription-renew.pl
+++ b/serials/subscription-renew.pl
@@ -59,7 +59,7 @@ my $query = new CGI;
my $dbh = C4::Context->dbh;
my $mode = $query->param('mode');
-my $op = $query->param('op');
+my $op = $query->param('op') || q{};
my $subscriptionid = $query->param('subscriptionid');
my $done = 0; # for after form has been submitted
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
--
1.6.3.3
More information about the Koha-patches
mailing list