lib/NCIP/ILS/Koha.pm

   1 #
   2 #===============================================================================
   3 #
   4 #         FILE: Koha.pm
   5 #
   6 #  DESCRIPTION:
   7 #
   8 #        FILES: ---
   9 #         BUGS: ---
  10 #        NOTES: ---
  11 #       AUTHOR: Chris Cormack (rangi), chrisc@catalyst.net.nz
  12 # ORGANIZATION: Koha Development Team
  13 #      VERSION: 1.0
  14 #      CREATED: 05/11/13 11:14:09
  15 #     REVISION: ---
  16 #===============================================================================
  17 package NCIP::ILS::Koha;
  18
  19 use Modern::Perl;
  20 use Object::Tiny qw{ name };
  21
  22 use C4::Members qw{ GetMemberDetails };
  23 use C4::Circulation qw { AddReturned CanBookBeIssued AddIssue }
  24
  25   sub itemdata {
  26     my $self = shift;
  27     return ( { barcode => '123', title => 'fish' }, undef );
  28 }
  29
  30 sub userdata {
  31     my $self     = shift;
  32     my $userid   = shift;
  33     my $userdata = GetMemberDetails( undef, $userid );
  34     return $userdata;
  35 }
  36
  37 sub checkin {
  38     my $self    = shift;
  39     my $barcode = shift;
  40     my $result  = AddReturn( $barcode, $branch, $exemptfine, $dropbox );
  41 }
  42
  43 sub checkout {
  44 }
  45
  46 1;