1 package OpenILS::Application::Storage::Publisher::config;
2 use base qw/OpenILS::Application::Storage/;
3 use OpenILS::Application::Storage::CDBI::config;
10 $self->api_name =~ /direct\.config\.(.+)\.retrieve/o;
12 my $class = 'config::'.$1;
13 for my $rec ( $class->retrieve_all ) {
14 $client->respond( $rec->to_fieldmapper );
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/ ) {
25 __PACKAGE__->register_method(
26 method => 'retrieve_all',
27 api_name => "open-ils.storage.direct.config.$class.retrieve.all",
34 # XXX arg, with the descendancy SPs...
35 sub ranged_config_non_cat {
40 my $ctable = config::non_cataloged_type->table;
42 my $descendants = defined($binds[1]) ?
43 "actor.org_unit_full_path(?, ?)" :
44 "actor.org_unit_full_path(?)" ;
51 ON (d.id = c.owning_lib)
54 my $sth = config::non_cataloged_type->db_Main->prepare($sql);
55 $sth->execute(@binds);
57 while ( my $rec = $sth->fetchrow_hashref ) {
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});
66 $client->respond( $cnct );
71 __PACKAGE__->register_method(
72 method => 'ranged_config_non_cat',
73 api_name => 'open-ils.storage.ranged.config.non_cataloged_type.retrieve',