From d658c36445f69401e23ef7e305c202e431a64831 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 8 Dec 2008 08:45:39 -0600 Subject: [PATCH] bug 2505: enable warnings for opac/sco/sco-main.pl Signed-off-by: Galen Charlton --- opac/sco/sco-main.pl | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl index 71baf7f554..880171bbe9 100755 --- a/opac/sco/sco-main.pl +++ b/opac/sco/sco-main.pl @@ -6,6 +6,7 @@ # issue items to that borrower. # use strict; +use warnings; use CGI; @@ -34,12 +35,14 @@ my ($template, $loggedinuser, $cookie) my $dbh = C4::Context->dbh; my $issuerid = $loggedinuser; -my ($op, $patronid, $barcode, $confirmed, $timedout )= ($query->param("op"), - $query->param("patronid"), - $query->param("barcode"), - $query->param( "confirmed"), - $query->param( "timedout"), #not actually using this... - ); +my ($op, $patronid, $barcode, $confirmed, $timedout) = ( + $query->param("op") || '', + $query->param("patronid") || '', + $query->param("barcode") || '', + $query->param( "confirmed") || '', + $query->param( "timedout") || '', #not actually using this... +); + my %confirmation_strings = ( RENEW_ISSUE => "This item is already checked out to you. Return it?", ); my $issuenoconfirm = 1; #don't need to confirm on issue. my $cnt = 0; -- 2.39.5