[Koha-cvs] CVS: koha/maint shiftbib.pl,1.3,1.3.2.1

[MJ Ray]

Update of /cvsroot/koha/koha/maint
In directory sc8-pr-cvs1:/tmp/cvs-serv3702/maint

Modified Files:
      Tag: rel_2_0
        shiftbib.pl 
Log Message:
DBI call fix for bug 662

Index: shiftbib.pl
===================================================================
RCS file: /cvsroot/koha/koha/maint/shiftbib.pl,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -C2 -r1.3 -r1.3.2.1
*** shiftbib.pl 5 Oct 2002 10:06:00 -0000       1.3
--- shiftbib.pl 8 Jan 2004 16:29:14 -0000       1.3.2.1
***************
*** 41,47 ****
    my $biblionumber=$input->param('biblionumber');
    my $dbh = C4::Context->dbh;
!   my $query="Select * from biblio where biblionumber=$biblionumber";
!   my $sth=$dbh->prepare($query);
!   $sth->execute;
    my $data=$sth->fetchrow_hashref;
    print "Shifting group $bi to biblio $biblionumber<br>
--- 41,46 ----
    my $biblionumber=$input->param('biblionumber');
    my $dbh = C4::Context->dbh;
!   my $sth=$dbh->prepare("Select * from biblio where biblionumber=?");
!   $sth->execute($biblionumber);
    my $data=$sth->fetchrow_hashref;
    print "Shifting group $bi to biblio $biblionumber<br>