1 package OpenILS::Application;
2 use OpenSRF::Application;
3 use UNIVERSAL::require;
4 use base qw/OpenSRF::Application/;
5 use OpenILS::Utils::Fieldmapper;
8 # version format is "x-y-z", for example "2-0-0" for Evergreen 2.0.0
9 # For branches, format is "x-y"
13 __PACKAGE__->register_method(
14 api_name => 'opensrf.open-ils.system.ils_version',
16 method => 'ils_version',
19 __PACKAGE__->register_method(
20 api_name => 'opensrf.open-ils.fetch_idl.file',
22 method => 'get_idl_file',
25 use OpenSRF::Utils::SettingsClient;
26 return OpenSRF::Utils::SettingsClient->new->config_value('IDL');
29 sub publish_fieldmapper {
30 my ($self,$client,$class) = @_;
32 return $Fieldmapper::fieldmap unless (defined $class);
33 return undef unless (exists($$Fieldmapper::fieldmap{$class}));
34 return {$class => $$Fieldmapper::fieldmap{$class}};
36 __PACKAGE__->register_method(
37 api_name => 'opensrf.open-ils.system.fieldmapper',
39 method => 'publish_fieldmapper',
47 $class = ref($class) || $class;
49 $args{package} ||= $class;
50 __PACKAGE__->SUPER::register_method( %args );
52 if (exists($dup_args{authoritative}) and $dup_args{authoritative}) {
53 (my $name = $dup_args{api_name}) =~ s/$/.authoritative/o;
54 if ($name ne $dup_args{api_name}) {
55 $dup_args{real_api_name} = $dup_args{api_name};
56 $dup_args{method} = 'authoritative_wrapper';
57 $dup_args{api_name} = $name;
58 $dup_args{package} = __PACKAGE__;
59 __PACKAGE__->SUPER::register_method( %dup_args );
64 sub authoritative_wrapper {
66 if (!$OpenILS::Utils::CStoreEditor::_loaded) {
67 die "Couldn't load OpenILS::Utils::CStoreEditor!" unless 'OpenILS::Utils::CStoreEditor'->use;
74 my $method = $self->method_lookup($self->{real_api_name});
77 local $OpenILS::Utils::CStoreEditor::always_xact = 1;
79 $client->respond( $_ ) for ( $method->run(@args) );
81 OpenILS::Utils::CStoreEditor->flush_forced_xacts();