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

   1 package OpenILS::Application::Storage::Publisher::config;
   2 use base qw/OpenILS::Application::Storage/;
   3 use OpenILS::Application::Storage::CDBI::config;
   4
   5
   6 sub metabib_field_all {
   7         my $self = shift;
   8         my $client = shift;
   9
  10         for my $rec ( config::metabib_field->retrieve_all ) {
  11                 $client->respond( $rec->to_fieldmapper );
  12         }
  13
  14         return undef;
  15 }
  16 __PACKAGE__->register_method(
  17         method          => 'metabib_field_all',
  18         api_name        => 'open-ils.storage.direct.config.metabib_field.all',
  19         argc            => 0,
  20         stream          => 1,
  21 );
  22
  23 1;