[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 address@hidden
@@ -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;