[Koha-cvs] CVS: koha/C4 Search.pm,1.83,1.84

[Paul POULAIN]

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

Modified Files:
        Search.pm 
Log Message:
fixing compilation bugs

Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.83
retrieving revision 1.84
diff -C2 -r1.83 -r1.84
*** Search.pm   9 Dec 2003 14:47:38 -0000       1.83
--- Search.pm   11 Dec 2003 12:56:34 -0000      1.84
***************
*** 146,150 ****
    my ($bornum)address@hidden;
    my $dbh = C4::Context->dbh;
!   my $sth=$dbh->prepare("select guarantor from borrowers where 
borrowernumber=?"");
    $sth->execute($bornum);
    my $data=$sth->fetchrow_hashref;
--- 146,150 ----
    my ($bornum)address@hidden;
    my $dbh = C4::Context->dbh;
!   my $sth=$dbh->prepare("select guarantor from borrowers where 
borrowernumber=?");
    $sth->execute($bornum);
    my $data=$sth->fetchrow_hashref;
***************
*** 487,491 ****
        my address@hidden;
        $query.= "and ( itemtype=?";
!       push(@bind,$item[0]);
        for (my $i=1;$i<$count;$i++){
          $query.=" or itemtype=?";
--- 487,491 ----
        my address@hidden;
        $query.= "and ( itemtype=?";
!       push(@bind,$temp[0]);
        for (my $i=1;$i<$count;$i++){
          $query.=" or itemtype=?";
***************
*** 681,685 ****
    $sth=$dbh->prepare("Select biblionumber from bibliosubject where subject
    like ? group by biblionumber");
!   $sth->execute(%$search->{'keyword'}%);
    while (my $data=$sth->fetchrow_hashref){
      $query="Select * from biblio,biblioitems where
--- 681,685 ----
    $sth=$dbh->prepare("Select biblionumber from bibliosubject where subject
    like ? group by biblionumber");
!   $sth->execute("%".$search->{'keyword'}."%");
    while (my $data=$sth->fetchrow_hashref){
      $query="Select * from biblio,biblioitems where
***************
*** 993,997 ****
                                        where
                                        (((title like ? or title like ?)";
!                                       @bind=("$key[0]%,"% $key[0]%");
                                        while ($i<$count){
                                                $query .= " and (title like ? 
or title like ?)";
--- 993,997 ----
                                        where
                                        (((title like ? or title like ?)";
!                                       @bind=("$key[0]%","% $key[0]%");
                                        while ($i<$count){
                                                $query .= " and (title like ? 
or title like ?)";
***************
*** 1000,1004 ****
                                        }
                                        $query.=") or ((subtitle like ? or 
subtitle like ?)";
!                                       push(@bind,"$key[0]%,"% $key[0]%");
                                        for ($i=1;$i<$count;$i++){
                                                $query.=" and (subtitle like ? 
or subtitle like ?)";
--- 1000,1004 ----
                                        }
                                        $query.=") or ((subtitle like ? or 
subtitle like ?)";
!                                       push(@bind,"$key[0]%","% $key[0]%");
                                        for ($i=1;$i<$count;$i++){
                                                $query.=" and (subtitle like ? 
or subtitle like ?)";
***************
*** 1006,1010 ****
                                        }
                                        $query.=") or ((seriestitle like ? or 
seriestitle like ?)";
!                                       push(@bind,"$key[0]%,"% $key[0]%");
                                        for ($i=1;$i<$count;$i++){
                                                $query.=" and (seriestitle like 
? or seriestitle like ?)";
--- 1006,1010 ----
                                        }
                                        $query.=") or ((seriestitle like ? or 
seriestitle like ?)";
!                                       push(@bind,"$key[0]%","% $key[0]%");
                                        for ($i=1;$i<$count;$i++){
                                                $query.=" and (seriestitle like 
? or seriestitle like ?)";
***************
*** 1012,1016 ****
                                        }
                                        $query.=") or ((unititle like ? or 
unititle like ?)";
!                                       push(@bind,"$key[0]%,"% $key[0]%");
                                        for ($i=1;$i<$count;$i++){
                                                $query.=" and (unititle like ? 
or unititle like ?)";
--- 1012,1016 ----
                                        }
                                        $query.=") or ((unititle like ? or 
unititle like ?)";
!                                       push(@bind,"$key[0]%","% $key[0]%");
                                        for ($i=1;$i<$count;$i++){
                                                $query.=" and (unititle like ? 
or unititle like ?)";
***************
*** 1031,1035 ****
                                my @temp=split(/\|/,$search->{'class'});
                                my address@hidden;
!                               $query.= " and ( itemtype= ?);
                                @bind=($temp[0]);
                                for (my $i=1;$i<$count;$i++){
--- 1031,1035 ----
                                my @temp=split(/\|/,$search->{'class'});
                                my address@hidden;
!                               $query.= " and ( itemtype= ?)";
                                @bind=($temp[0]);
                                for (my $i=1;$i<$count;$i++){
***************
*** 1054,1058 ****
                                        $query="select * from biblioitems,biblio
                                where 
biblio.biblionumber=biblioitems.biblionumber
!                               and biblioitems.illus like ?;
                                        
@bind=("%".$search->{'illustrator'}."%");
                        } elsif ($search->{'publisher'} ne ''){
--- 1054,1058 ----
                                        $query="select * from biblioitems,biblio
                                where 
biblio.biblionumber=biblioitems.biblionumber
!                               and biblioitems.illus like ?";
                                        
@bind=("%".$search->{'illustrator'}."%");
                        } elsif ($search->{'publisher'} ne ''){
***************
*** 1177,1181 ****
                if ($search->{'publisher'} ne ''){
                        $query.= " and (publishercode like ?)";
!                       push(@bind,"%$search->{'publisher'}%";
                }
                my $sti=$dbh->prepare($query);
--- 1177,1181 ----
                if ($search->{'publisher'} ne ''){
                        $query.= " and (publishercode like ?)";
!                       push(@bind,"%$search->{'publisher'}%");
                }
                my $sti=$dbh->prepare($query);
***************
*** 1862,1869 ****
    my $sth;
    if ($bornum eq ''){
!     $sth=$dbh->prepare("Select * from borrowers where cardnumber=?";
      $sth->execute($cardnumber);
    } else {
!     $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?";
    $sth->execute($bornum);
    }
--- 1862,1869 ----
    my $sth;
    if ($bornum eq ''){
!     $sth=$dbh->prepare("Select * from borrowers where cardnumber=?");
      $sth->execute($cardnumber);
    } else {
!     $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
    $sth->execute($bornum);
    }
***************
*** 2454,2458 ****
        my $dbh   = C4::Context->dbh;
        my $count = 0;
!       my $query,@bind;
        my $sth;
        my @results;
--- 2454,2458 ----
        my $dbh   = C4::Context->dbh;
        my $count = 0;
!       my ($query,@bind);
        my $sth;
        my @results;
***************
*** 2618,2622 ****
      my $dbh   = C4::Context->dbh;
      my $count = 0;
!     my $query,@bind;
      my $sth;
      my @results;
--- 2618,2622 ----
      my $dbh   = C4::Context->dbh;
      my $count = 0;
!     my ($query,@bind);
      my $sth;
      my @results;