[Koha-cvs] CVS: koha/C4 Maintainance.pm,1.13,1.14

[Chris Cormack]

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

Modified Files:
	Maintainance.pm 
Log Message:
Fixing some bogus sql


Index: Maintainance.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Maintainance.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** Maintainance.pm	22 Dec 2003 19:16:58 -0000	1.13
--- Maintainance.pm	15 Mar 2004 20:24:13 -0000	1.14
***************
*** 80,85 ****
    my ($sub,$num,$offset)=@_;
    my $dbh = C4::Context->dbh;
!   my $query="Select * from bibliosubject where subject like '?%' group by subject";
!   my @bind = ($sub);
    # FIXME - Make $num and $offset optional.
    # If $num was given, make sure $offset was, too.
--- 80,85 ----
    my ($sub,$num,$offset)=@_;
    my $dbh = C4::Context->dbh;
!   my $query="Select * from bibliosubject where subject like ? group by subject";
!   my @bind = ("$sub%");
    # FIXME - Make $num and $offset optional.
    # If $num was given, make sure $offset was, too.
***************
*** 157,162 ****
    my ($title)=@_;
    my $dbh = C4::Context->dbh;
!   my $sth=$dbh->prepare("Select * from deletedbiblio where title like '?%' order by title");
!   $sth->execute($title);
    my @results;
    my $i=0;
--- 157,162 ----
    my ($title)=@_;
    my $dbh = C4::Context->dbh;
!   my $sth=$dbh->prepare("Select * from deletedbiblio where title like ? order by title");
!   $sth->execute("$title%");
    my @results;
    my $i=0;