[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)=@_;
    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)=@_;
    my $dbh = C4::Context->dbh;
! 
!   $dbh->do(<<EOT);
! 	UPDATE	items
! 	SET	itemlost = 0
! 	WHERE	itemnumber = $itemno
! EOT
  }