[Koha-cvs] CVS: koha/C4 SearchMarc.pm,1.24,1.25

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26774/C4

Modified Files:
        SearchMarc.pm 
Log Message:
fixing bug (dbh error in error log, even if the result was OK)

Index: SearchMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/SearchMarc.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -r1.24 -r1.25
*** SearchMarc.pm       20 Aug 2004 08:19:52 -0000      1.24
--- SearchMarc.pm       20 Aug 2004 09:14:07 -0000      1.25
***************
*** 251,254 ****
--- 251,256 ----
        # we have bibid list. Now, loads title and author from [offset] to 
[offset]+[length]
        my $counter = $offset;
+       # HINT : biblionumber as bn is important. The hash is fills 
biblionumber with items.biblionumber.
+       # so if you dont' has an item, you get a not nice epty value.
        $sth = $dbh->prepare("SELECT biblio.biblionumber as bn,biblio.*, 
biblioitems.*, items.*,marc_biblio.bibid
                                                        FROM biblio, 
marc_biblio 
***************
*** 259,263 ****
        my @finalresult = ();
        my @CNresults=();
-       my $oldbiblionumber=0;
        my $totalitems=0;
        my $oldline;
--- 261,264 ----
***************
*** 271,279 ****
                my $continue=1;
                my $line = $sth->fetchrow_hashref;
!               $continue=0 unless $line;
                while ($continue) {
                        # parse the result, putting holdingbranch & 
itemcallnumber in separate array
                        # then all other fields in the main array
                        if ($oldbiblionumber && ($oldbiblionumber ne 
$line->{bn}) && $oldline) {
                                my %newline;
                                %newline = %$oldline;
--- 272,282 ----
                my $continue=1;
                my $line = $sth->fetchrow_hashref;
!               my $oldbiblionumber=$line->{bn};
!               $continue=0 unless $line->{bn};
                while ($continue) {
                        # parse the result, putting holdingbranch & 
itemcallnumber in separate array
                        # then all other fields in the main array
                        if ($oldbiblionumber && ($oldbiblionumber ne 
$line->{bn}) && $oldline) {
+ #                     warn "HERE $oldbiblionumber && ($oldbiblionumber ne 
$line->{bn}) && $oldline";
                                my %newline;
                                %newline = %$oldline;
***************
*** 288,293 ****
                                $totalitems=0;
                        }
!                       $continue=0 unless $line;
                        if ($continue) {
                                $oldbiblionumber = $line->{bn};
                                $totalitems++ if ($line->{holdingbranch});
--- 291,297 ----
                                $totalitems=0;
                        }
!                       $continue=0 unless $line->{bn};
                        if ($continue) {
+ #                     warn "IN ".$line->{bn}."<<" if($line->{bn});
                                $oldbiblionumber = $line->{bn};
                                $totalitems++ if ($line->{holdingbranch});