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
  24 sub itemdata {
  25     my $self = shift;
  26     return ( { barcode => '123', title => 'fish' }, undef );
  27 }
  28
  29 sub userdata {
  30     my $self     = shift;
  31     my $userid   = shift;
  32     my $userdata = GetMemberDetails( undef, $userid );
  33     return $userdata;
  34 }
  35
  36 1;