Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/asset.pm

   1 package OpenILS::Application::Storage::Publisher::asset;
   2 use base qw/OpenILS::Application::Storage/;
   3 #use OpenILS::Application::Storage::CDBI::asset;
   4 #use OpenSRF::Utils::Logger qw/:level/;
   5 #use OpenILS::Utils::Fieldmapper;
   6 #
   7 #my $log = 'OpenSRF::Utils::Logger';
   8
   9 sub fleshed_copy {
  10         my $self = shift;
  11         my $client = shift;
  12         my $id = ''.shift;
  13
  14         my $cp = asset::copy->retrieve($id);
  15
  16         my $cp_fm = $cp->to_fieldmapper;
  17         $cp_fm->circ_lib( $cp->circ_lib->to_fieldmapper );
  18         $cp_fm->location( $cp->location->to_fieldmapper );
  19         return $cp_fm;
  20 }
  21 __PACKAGE__->register_method(
  22         api_name        => 'open-ils.storage.fleshed.asset.copy.retrieve',
  23         method          => 'fleshed_copy',
  24         argc            => 1,
  25 );
  26
  27 sub fleshed_copy_by_barcode {
  28         my $self = shift;
  29         my $client = shift;
  30         my $bc = ''.shift;
  31
  32         my ($cp) = asset::copy->search( { barcode => $bc } );
  33
  34         my $cp_fm = $cp->to_fieldmapper;
  35         $cp_fm->circ_lib( $cp->circ_lib->to_fieldmapper );
  36         $cp_fm->location( $cp->location->to_fieldmapper );
  37         $cp_fm->status( $cp->status->to_fieldmapper );
  38
  39         return [ $cp_fm ];
  40 }
  41 __PACKAGE__->register_method(
  42         api_name        => 'open-ils.storage.fleshed.asset.copy.search.barcode',
  43         method          => 'fleshed_copy_by_barcode',
  44         argc            => 1,
  45         stream          => 1,
  46 );
  47
  48
  49 1;