lib/NCIP/Item.pm

   1 package NCIP::Item;
   2
   3 use base qw(Class::Accessor);
   4
   5 # Make accessors for the ones that makes sense
   6 NCIP::Item->mk_accessors(qw(itemid ils));
   7
   8 # Call the apppropriate subroutine in the ILS specific code and get the data
   9
  10 sub itemdata {
  11     my $self = shift;
  12     my $ils  = $self->ils;
  13     my ( $itemdata, $error ) = $ils->itemdata( $self->itemid );
  14
  15 # add anything NCIP specific not handled by the ILS to the itemdata object at this point, if no error
  16
  17     return $itemdata, $error;
  18 }
  19
  20 1;