From bc3dcdd733576fb66dd6431de29a2e401b77bd04 Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Fri, 26 Nov 2010 14:39:18 +0000 Subject: [PATCH] Fix some compile time errors reported in test suite redeclaration of itemnumber in RotatingCollections A couple of errors caused by retaining commas in qw() Signed-off-by: Chris Cormack --- C4/Creators.pm | 2 +- C4/Patroncards.pm | 2 +- C4/RotatingCollections.pm | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/Creators.pm b/C4/Creators.pm index c9538e260e..47900b5c79 100644 --- a/C4/Creators.pm +++ b/C4/Creators.pm @@ -2,7 +2,7 @@ package C4::Creators; BEGIN { use version; our $VERSION = qv('1.0.0_1'); - use vars qw(@EXPORT, @ISA); + use vars qw(@EXPORT @ISA); @ISA = qw(Exporter); our @EXPORT = qw(get_all_templates get_all_layouts diff --git a/C4/Patroncards.pm b/C4/Patroncards.pm index cc20c2ce06..e833193998 100644 --- a/C4/Patroncards.pm +++ b/C4/Patroncards.pm @@ -2,7 +2,7 @@ package C4::Patroncards; BEGIN { use version; our $VERSION = qv('1.0.0_1'); - use vars qw(@EXPORT, @ISA); + use vars qw(@EXPORT @ISA); @ISA = qw(Exporter); our @EXPORT = qw(unpack_UTF8 text_alignment diff --git a/C4/RotatingCollections.pm b/C4/RotatingCollections.pm index c880fe848f..b576868074 100644 --- a/C4/RotatingCollections.pm +++ b/C4/RotatingCollections.pm @@ -504,7 +504,7 @@ sub isItemInAnyCollection { my $row = $sth->fetchrow_hashref; - my $itemnumber = $$row{'itemnumber'}; + $itemnumber = $row->{itemnumber}; $sth->finish; if ( $itemnumber ) { -- 2.39.5