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

   1 package OpenILS::Application::Storage::Publisher::biblio;
   2 use base qw/OpenILS::Application::Storage/;
   3 use OpenILS::Application::Storage::CDBI::biblio;
   4
   5 sub get_record_entry {
   6         my $self = shift;
   7         my $client = shift;
   8         my @ids = @_;
   9
  10         for my $id ( @ids ) {
  11                 next unless ($id);
  12
  13                 my $rec = biblio::record_entry->retrieve($id);
  14                 $client->respond( $self->_cdbi2Hash( $rec ) ) if ($rec);
  15
  16                 last if ($self->api_name !~ /list/o);
  17         }
  18         return undef;
  19 }
  20 __PACKAGE__->register_method(
  21         method          => 'get_record_entry',
  22         api_name        => 'open-ils.storage.biblio.record_entry.retrieve',
  23         api_level       => 1,
  24         argc            => 1,
  25 );
  26 __PACKAGE__->register_method(
  27         method          => 'get_record_entry',
  28         api_name        => 'open-ils.storage.biblio.record_entry.retrieve.list',
  29         api_level       => 1,
  30         argc            => 1,
  31         stream          => 1,
  32 );
  33
  34 1;