Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Fix some compile time errors reported in test suite

Browse source 
redeclaration of itemnumber in RotatingCollections
A couple of errors caused by retaining commas in qw()

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Colin Campbell 2010-11-26 14:39:18 +00:00 committed by Chris Cormack
parent 6aa9e9171c
commit bc3dcdd733
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
C4/Creators.pm
View file

@ -2,7 +2,7 @@ package C4::Creators;
BEGIN { BEGIN {
use version; our $VERSION = qv('1.0.0_1'); use version; our $VERSION = qv('1.0.0_1');
use vars qw(@EXPORT, @ISA); use vars qw(@EXPORT @ISA);
@ISA = qw(Exporter); @ISA = qw(Exporter);
our @EXPORT = qw(get_all_templates our @EXPORT = qw(get_all_templates
get_all_layouts get_all_layouts

2
C4/Patroncards.pm
View file

@ -2,7 +2,7 @@ package C4::Patroncards;
BEGIN { BEGIN {
use version; our $VERSION = qv('1.0.0_1'); use version; our $VERSION = qv('1.0.0_1');
use vars qw(@EXPORT, @ISA); use vars qw(@EXPORT @ISA);
@ISA = qw(Exporter); @ISA = qw(Exporter);
our @EXPORT = qw(unpack_UTF8 our @EXPORT = qw(unpack_UTF8
text_alignment text_alignment

2
C4/RotatingCollections.pm
View file

@ -504,7 +504,7 @@ sub isItemInAnyCollection {
my $row = $sth->fetchrow_hashref; my $row = $sth->fetchrow_hashref;
my $itemnumber = $$row{'itemnumber'}; $itemnumber = $row->{itemnumber};
$sth->finish; $sth->finish;
if ( $itemnumber ) { if ( $itemnumber ) {