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

Bug 8714 - Poorly ordered and triggers warning in marctagstructure.pl

Browse source 
An array boundary check was after a comparison using the array.
By changing the logic which had " and ( $j < $cnt)" to be at the
beginning "( $j < $cnt ) and ", the warning is no longer shown
in the error log.

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
This commit is contained in:
Mark Tompsett 2012-09-03 12:27:58 +08:00 committed by Paul Poulain
parent 46abff69ba
commit b20c00ee2d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
admin/marctagstructure.pl
View file

@ -267,7 +267,7 @@ if ($op eq 'add_form') {
$row_data{delete} = "$script_name?op=delete_confirm&amp;searchfield=" .$results[$i]->{'mts_tagfield'}."&amp;frameworkcode=".$frameworkcode; $row_data{delete} = "$script_name?op=delete_confirm&amp;searchfield=" .$results[$i]->{'mts_tagfield'}."&amp;frameworkcode=".$frameworkcode;
$j=$i; $j=$i;
my @internal_loop = (); my @internal_loop = ();
while ( ( $results[$i]->{'tagfield'} == $results[$j]->{'tagfield'} ) and ( $j < $cnt ) ) { while ( ( $j < $cnt ) and ( $results[$i]->{'tagfield'} == $results[$j]->{'tagfield'} ) ) {
my %subfield_data; my %subfield_data;
$subfield_data{tagsubfield} = $results[$j]->{'tagsubfield'}; $subfield_data{tagsubfield} = $results[$j]->{'tagsubfield'};
$subfield_data{liblibrarian} = $results[$j]->{'liblibrarian'}; $subfield_data{liblibrarian} = $results[$j]->{'liblibrarian'};