Open-ILS/src/perlmods/lib/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 retrieve_all {
   7         my $self = shift;
   8         my $client = shift;
   9
  10         $self->api_name =~ /direct\.config\.(.+)\.retrieve/o;
  11
  12         my $class = 'config::'.$1;
  13         for my $rec ( $class->retrieve_all ) {
  14                 $client->respond( $rec->to_fieldmapper );
  15         }
  16
  17         return undef;
  18 }
  19
  20 for my $class (
  21                 qw/metabib_field standing identification_type copy_status
  22                    non_cataloged_type audience_map item_form_map item_type_map
  23                    language_map lit_form_map bib_source net_access_level/ ) {
  24
  25         __PACKAGE__->register_method(
  26                 method          => 'retrieve_all',
  27                 api_name        => "open-ils.storage.direct.config.$class.retrieve.all",
  28                 argc            => 0,
  29                 stream          => 1,
  30         );
  31 }
  32
  33
  34 # XXX arg, with the descendancy SPs...
  35 sub ranged_config_non_cat {
  36         my $self = shift;
  37         my $client = shift;
  38         my @binds = @_;
  39
  40         my $ctable = config::non_cataloged_type->table;
  41
  42         my $descendants = defined($binds[1]) ?
  43                 "actor.org_unit_full_path(?, ?)" :
  44                 "actor.org_unit_full_path(?)" ;
  45
  46
  47         my $sql = <<"   SQL";
  48                 SELECT  DISTINCT c.*
  49                   FROM  $ctable c
  50                         JOIN $descendants d
  51                                 ON (d.id = c.owning_lib)
  52         SQL
  53
  54         my $sth = config::non_cataloged_type->db_Main->prepare($sql);
  55         $sth->execute(@binds);
  56
  57         while ( my $rec = $sth->fetchrow_hashref ) {
  58
  59                 my $cnct = new Fieldmapper::config::non_cataloged_type;
  60                 $cnct->name($rec->{name});
  61                 $cnct->owning_lib($rec->{owning_lib});
  62                 $cnct->id($rec->{id});
  63                 $cnct->circ_duration($rec->{circ_duration});
  64                 $cnct->in_house($rec->{in_house});
  65
  66                 $client->respond( $cnct );
  67         }
  68
  69         return undef;
  70 }
  71 __PACKAGE__->register_method(
  72         method          => 'ranged_config_non_cat',
  73         api_name        => 'open-ils.storage.ranged.config.non_cataloged_type.retrieve',
  74         argc            => 1,
  75         stream          => 1,
  76         notes           => <<"  NOTES",
  77                 Returns
  78         NOTES
  79 );
  80
  81 1;