[Koha-cvs] CVS: koha/C4 Search.pm,1.18.2.2,1.18.2.3

[Alan Millar]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv21261

Modified Files:
      Tag: rel-1-2
	Search.pm 
Log Message:
Change DBI execut on some queries to bound parameters, to eliminate
run-time errors on empty variables


Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.18.2.2
retrieving revision 1.18.2.3
diff -C2 -r1.18.2.2 -r1.18.2.3
*** Search.pm	18 May 2002 10:21:51 -0000	1.18.2.2
--- Search.pm	28 May 2002 20:39:40 -0000	1.18.2.3
***************
*** 892,898 ****
    my ($bibnum)=@_;
    my $dbh=C4Connect;
!   my $query="Select * from additionalauthors where biblionumber=$bibnum";
    my $sth=$dbh->prepare($query);
!   $sth->execute;
    my @results;
    my $i=0;
--- 892,898 ----
    my ($bibnum)=@_;
    my $dbh=C4Connect;
!   my $query="Select * from additionalauthors where biblionumber=?";
    my $sth=$dbh->prepare($query);
!   $sth->execute($bibnum);
    my @results;
    my $i=0;
***************
*** 909,915 ****
    my ($bibnum)=@_;
    my $dbh=C4Connect;
!   my $query="Select * from bibliosubtitle where biblionumber=$bibnum";
    my $sth=$dbh->prepare($query);
!   $sth->execute;
    my @results;
    my $i=0;
--- 909,915 ----
    my ($bibnum)=@_;
    my $dbh=C4Connect;
!   my $query="Select * from bibliosubtitle where biblionumber=?";
    my $sth=$dbh->prepare($query);
!   $sth->execute($bibnum);
    my @results;
    my $i=0;