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.retrieve.all',
  19         argc            => 0,
  20         stream          => 1,
  21 );
  22
  23 sub standing_all {
  24         my $self = shift;
  25         my $client = shift;
  26
  27         for my $rec ( config::standing->retrieve_all ) {
  28                 $client->respond( $rec->to_fieldmapper );
  29         }
  30
  31         return undef;
  32 }
  33 __PACKAGE__->register_method(
  34         method          => 'standing_all',
  35         api_name        => 'open-ils.storage.direct.config.standing.retrieve.all',
  36         argc            => 0,
  37         stream          => 1,
  38 );
  39
  40 sub ident_type_all {
  41         my $self = shift;
  42         my $client = shift;
  43
  44         for my $rec ( config::identification_type->retrieve_all ) {
  45                 $client->respond( $rec->to_fieldmapper );
  46         }
  47
  48         return undef;
  49 }
  50 __PACKAGE__->register_method(
  51         method          => 'ident_type_all',
  52         api_name        => 'open-ils.storage.direct.config.identification_type.retrieve.all',
  53         argc            => 0,
  54         stream          => 1,
  55 );
  56
  57 sub config_status_all {
  58         my $self = shift;
  59         my $client = shift;
  60
  61         for my $rec ( config::copy_status->retrieve_all ) {
  62                 $client->respond( $rec->to_fieldmapper );
  63         }
  64
  65         return undef;
  66 }
  67 __PACKAGE__->register_method(
  68         method          => 'config_status_all',
  69         api_name        => 'open-ils.storage.direct.config.copy_status.retrieve.all',
  70         argc            => 0,
  71         stream          => 1,
  72 );
  73
  74 1;