[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.38,1.39

[Andrew Arensburger]

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

Modified Files:
        Circ2.pm 
Log Message:
Replaced several prepare()/execute()/finish() sequences with do().


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -r1.38 -r1.39
*** Circ2.pm    5 Oct 2002 09:54:13 -0000       1.38
--- Circ2.pm    6 Oct 2002 00:00:29 -0000       1.39
***************
*** 287,301 ****
      $tbr = $dbh->quote($tbr);
      #new entry in branchtransfers....
!     my $query = "insert into branchtransfers (itemnumber, frombranch, 
datearrived, tobranch) 
!                                       values($itm, $fbr, now(), $tbr)";
!     my $sth = $dbh->prepare($query);
!     $sth->execute; 
!     $sth->finish;
      #update holdingbranch in items .....
!     # FIXME - Use $dbh->do()
!     $query = "update items set datelastseen = now(), holdingbranch=$tbr where 
items.itemnumber=$itm";
!     $sth = $dbh->prepare($query);
!     $sth->execute; 
!     $sth->finish;
      return;
  }
--- 287,303 ----
      $tbr = $dbh->quote($tbr);
      #new entry in branchtransfers....
!     $dbh->do(<<EOT);
!       INSERT INTO     branchtransfers
!                       (itemnumber, frombranch, datearrived, tobranch) 
!       VALUES          ($itm, $fbr, now(), $tbr)
! EOT
! 
      #update holdingbranch in items .....
!     $dbh->do(<<EOT);
!       UPDATE  items
!       SET     datelastseen  = now(),
!               holdingbranch = $tbr
!       WHERE   items.itemnumber = $itm
! EOT
      return;
  }
***************
*** 566,574 ****
    my ($itemno)address@hidden;
    my $dbh = C4::Context->dbh;
!   # FIXME - Use $dbh->do();
!   my $query="update items set itemlost=0 where itemnumber=$itemno";
!   my $sth=$dbh->prepare($query);
!   $sth->execute;
!   $sth->finish;
  }
  
--- 568,577 ----
    my ($itemno)address@hidden;
    my $dbh = C4::Context->dbh;
! 
!   $dbh->do(<<EOT);
!       UPDATE  items
!       SET     itemlost = 0
!       WHERE   itemnumber = $itemno
! EOT
  }