[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.97,1.98

[Chris Cormack]

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

Modified Files:
	Circ2.pm 
Log Message:
Marks the item borrowed now on the items table


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.97
retrieving revision 1.98
diff -C2 -r1.97 -r1.98
*** Circ2.pm	31 Aug 2005 23:11:19 -0000	1.97
--- Circ2.pm	22 Sep 2005 23:30:37 -0000	1.98
***************
*** 87,90 ****
--- 87,106 ----
  }
  
+ =head2 itemborrowed
+ 
+ &itemseen($itemnum)
+ Mark item as borrowed. Is called when an item is issued.
+ C<$itemnum> is the item number
+ 
+ =cut
+ 
+ sub itemborrowed {
+ 	my ($itemnum) = @_;
+ 	my $dbh = C4::Context->dbh;
+ 	my $sth = $dbh->prepare("update items set itemlost=0, datelastborrowed  = now() where items.itemnumber = ?");
+ 	$sth->execute($itemnum);
+ 	return;
+ }
+ 
  sub listitemsforinventory {
  	my ($minlocation,$maxlocation,$datelastseen,$offset,$size) = @_;
***************
*** 891,894 ****
--- 907,911 ----
  		$sth->finish;
  		&itemseen($iteminformation->{'itemnumber'});
+ 	        itemborrowed($iteminformation->{'itemnumber'});
  		# If it costs to borrow this book, charge it to the patron's account.
  		my ($charge,$itemtype)=calc_charges($env, $iteminformation->{'itemnumber'}, $borrower->{'borrowernumber'});