[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 $count=@key;
  	    my $i=1;
!             $query="select * from biblio
  	    left join bibliosubtitle on
  	    biblio.biblionumber=bibliosubtitle.biblionumber
--- 904,908 ----
  	    my $count=@key;
  	    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'}=\@sub;
      $sth->finish;
      $dbh->disconnect;