From: Chris Cormack <chris@bigballofwax.co.nz>
Date: Sat, 4 Jan 2014 23:45:20 +0000 (+1300)
Subject: Working on the Koha code
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=98def892dc4b45f761f4d4d338d0571ead767b7f;p=NCIPServer.git

Working on the Koha code
---

diff --git a/lib/NCIP/ILS/Koha.pm b/lib/NCIP/ILS/Koha.pm
index 968a98d..da1276c 100644
--- a/lib/NCIP/ILS/Koha.pm
+++ b/lib/NCIP/ILS/Koha.pm
@@ -20,8 +20,9 @@ use Modern::Perl;
 use Object::Tiny qw{ name };
 
 use C4::Members qw{ GetMemberDetails };
+use C4::Circulation qw { AddReturned CanBookBeIssued AddIssue }
 
-sub itemdata {
+  sub itemdata {
     my $self = shift;
     return ( { barcode => '123', title => 'fish' }, undef );
 }
@@ -33,4 +34,13 @@ sub userdata {
     return $userdata;
 }
 
+sub checkin {
+    my $self    = shift;
+    my $barcode = shift;
+    my $result  = AddReturn( $barcode, $branch, $exemptfine, $dropbox );
+}
+
+sub checkout {
+}
+
 1;