[Koha-cvs] CVS: koha/C4 Search.pm,1.18.2.20,1.18.2.21

[Finlay Thompson]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv19672

Modified Files:
      Tag: rel-1-2
        Search.pm 
Log Message:

Fixed a couple of bigs in bibdata


Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.18.2.20
retrieving revision 1.18.2.21
diff -C2 -r1.18.2.20 -r1.18.2.21
*** Search.pm   28 Nov 2002 10:53:38 -0000      1.18.2.20
--- Search.pm   5 Dec 2002 23:07:24 -0000       1.18.2.21
***************
*** 904,908 ****
            my address@hidden;
            my $i=1;
!             $query="select * from biblio
            left join bibliosubtitle on
            biblio.biblionumber=bibliosubtitle.biblionumber
--- 904,908 ----
            my address@hidden;
            my $i=1;
!             $query="select *,biblio.biblionumber from biblio
            left join bibliosubtitle on
            biblio.biblionumber=bibliosubtitle.biblionumber
***************
*** 1034,1038 ****
        }
    }
! #print STDERR $query;
  if ($type ne 'precise' && $type ne 'subject'){
    if ($search->{'author'} ne ''){   
--- 1034,1038 ----
        }
    }
! #warn $query;
  if ($type ne 'precise' && $type ne 'subject'){
    if ($search->{'author'} ne ''){   
***************
*** 1074,1078 ****
            $query.= " and (publishercode like '%$search->{'publisher'}%')";
            }
! #print STDERR "$query\n";
    my $dewey;
    my $subclass;
--- 1074,1078 ----
            $query.= " and (publishercode like '%$search->{'publisher'}%')";
            }
! warn "$query\n";
    my $dewey;
    my $subclass;
***************
*** 1457,1461 ****
      my ($bibnum, $type) = @_;
      my $dbh   = C4Connect;
!     my $query = "Select *, biblio.notes  
      from biblio, biblioitems 
      left join bibliosubtitle on
--- 1457,1461 ----
      my ($bibnum, $type) = @_;
      my $dbh   = C4Connect;
!     my $query = "Select *, biblio.notes, biblio.biblionumber  
      from biblio, biblioitems 
      left join bibliosubtitle on
***************
*** 1473,1480 ****
      $sth   = $dbh->prepare($query);
      $sth->execute;
      while (my $dat = $sth->fetchrow_hashref){
!         $data->{'subject'} .= " | $dat->{'subject'}";
      } # while
! 
      $sth->finish;
      $dbh->disconnect;
--- 1473,1481 ----
      $sth   = $dbh->prepare($query);
      $sth->execute;
+     my @sub;
      while (my $dat = $sth->fetchrow_hashref){
!         push @sub,$dat;
      } # while
!     $data->{'subjects'address@hidden;
      $sth->finish;
      $dbh->disconnect;