minor fixes (odd/even lines bug)
authortipaul <tipaul>
Fri, 28 May 2004 16:14:40 +0000 (16:14 +0000)
committertipaul <tipaul>
Fri, 28 May 2004 16:14:40 +0000 (16:14 +0000)
C4/SearchMarc.pm

index 9200a1f..187c89c 100644 (file)
@@ -244,8 +244,8 @@ sub catalogsearch {
                                $newline{biblionumber} = $oldbiblionumber;
                                my @CNresults2= @CNresults;
                                $newline{CN} = \@CNresults2;
-                           $newline{'even'} = 1 if $counter % 2 == 0;
-                               $newline{'odd'} = 1 if $counter % 2 == 1;
+                           $newline{'even'} = 1 if $#finalresult % 2 == 0;
+                               $newline{'odd'} = 1 if $#finalresult % 2 == 1;
                                @CNresults = ();
                                push @finalresult, \%newline;
                                $totalitems=0;