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 #       XXX     XXX     XXX     XXX     XXX     XXX     XXX
   6 #               THIS IS NOT RIGHT! PLEASE UPDATE!!
   7 #       XXX     XXX     XXX     XXX     XXX     XXX     XXX
   8
   9 sub getBiblioFieldMaps {
  10         my $self = shift;
  11         my $client = shift;
  12         my $id = shift;
  13         $log->debug(" Executing [".$self->method."] as [".$self->api_name."]",INTERNAL);
  14
  15         if ($self->api_name =~ /by_class$/o) {
  16                 if ($id) {
  17                         return $self->_cdbi2Hash( config::metarecord_field_map->search( fieldclass => $id ) );
  18                 } else {
  19                         throw OpenSRF::EX::InvalidArg ('Please give me a Class to look up!');
  20                 }
  21         } else {
  22                 if ($id) {
  23                         return $self->_cdbi2Hash( config::metarecord_field_map->retrieve( $id ) );
  24                 } else {
  25                         return $self->_cdbi_list2AoH( config::metarecord_field_map->retrieve_all );
  26                 }
  27         }
  28 }
  29 #__PACKAGE__->register_method(
  30 #       method          => 'getBiblioFieldMaps',
  31 #       api_name        => 'open-ils.storage.config.metarecord_field',
  32 #       argc            => 1,
  33 #);
  34 #__PACKAGE__->register_method(
  35 #       method          => 'getBiblioFieldMaps',
  36 #       api_name        => 'open-ils.storage.config.metarecord_field.all',
  37 #       argc            => 0,
  38 #);
  39 #__PACKAGE__->register_method(
  40 #       method          => 'getBiblioFieldMaps',
  41 #       api_name        => 'open-ils.storage.config.metarecord_field.list.by_class',
  42 #       argc            => 1,
  43 #);
  44
  45
  46 sub getBiblioFieldMapClasses {
  47         my $self = shift;
  48         my $client = shift;
  49         my @ids = shift;
  50
  51         $log->debug(" Executing [".$self->method."] as [".$self->api_name."]",INTERNAL);
  52
  53         if ($self->api_name =~ /all/o) {
  54                 return $self->_cdbi_list2AoH( config::metarecord_field_class_map->retrieve_all );
  55         } else {
  56                 for my $id (@ids) {
  57                         next unless ($id);
  58                         $client->respond( $self->_cdbi2Hash( config::metarecord_field_class_map->retrieve( $id ) ) );
  59                         last unless ($self->api_name =~ /list/o);
  60                 }
  61                 return undef;
  62         }
  63 }
  64 #__PACKAGE__->register_method(
  65 #       method          => 'getBiblioFieldMapClasses',
  66 #       api_name        => 'open-ils.storage.config.metarecord_field_class',
  67 #       argc            => 1,
  68 #);
  69 #
  70 #__PACKAGE__->register_method(
  71 #       method          => 'getBiblioFieldMapClasses',
  72 #       api_name        => 'open-ils.storage.config.metarecord_field_class.list',
  73 #       argc            => 1,
  74 #       stream          => 1,
  75 #);
  76 #__PACKAGE__->register_method(
  77 #       method          => 'getBiblioFieldMapClasses',
  78 #       api_name        => 'open-ils.storage.config.metarecord_field_class.all',
  79 #       argc            => 0,
  80 #);
  81
  82 1;