[Koha-cvs] koha/C4/Circulation Circ2.pm [dev_week]

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	07/05/15 20:44:52

Modified files:
	C4/Circulation : Circ2.pm 

Log message:
	issuingrules: adding new itemborrowed() sub from katipo, used in issuebook()

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Circ2.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.87.2.14.2.21&r2=1.87.2.14.2.22

Patches:
Index: Circ2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Attic/Circ2.pm,v
retrieving revision 1.87.2.14.2.21
retrieving revision 1.87.2.14.2.22
diff -u -b -r1.87.2.14.2.21 -r1.87.2.14.2.22
--- Circ2.pm	15 May 2007 20:42:47 -0000	1.87.2.14.2.21
+++ Circ2.pm	15 May 2007 20:44:52 -0000	1.87.2.14.2.22
@@ -3,7 +3,7 @@
 
 package C4::Circulation::Circ2;
 
-# $Id: Circ2.pm,v 1.87.2.14.2.21 2007/05/15 20:42:47 sushi Exp $
+# $Id: Circ2.pm,v 1.87.2.14.2.22 2007/05/15 20:44:52 sushi Exp $
 
 #package to deal with Returns
 #written 3/11/99 by olwen at katipo.co.nz
@@ -95,6 +95,24 @@
 	return;
 }
 
+=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);
+    warn "itemborrowed";
+    return;
+}
+
+
 sub listitemsforinventory {
 	my ($minlocation,$maxlocation,$datelastseen,$offset,$size) = @_;
 	my $dbh = C4::Context->dbh;