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

[Paul POULAIN]

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

Modified Files:
        shiftbib.pl 
Log Message:
synch'ing with rel_2_0

Index: shiftbib.pl
===================================================================
RCS file: /cvsroot/koha/koha/maint/shiftbib.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** shiftbib.pl 5 Oct 2002 10:06:00 -0000       1.3
--- shiftbib.pl 12 Jan 2004 16:55:48 -0000      1.4
***************
*** 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>