Working on the Koha code

diff --git a/lib/NCIP/ILS/Koha.pm b/lib/NCIP/ILS/Koha.pm
index 968a98d..da1276c 100644 (file)
--- 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;