added a common IDL fetching method
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 6 Mar 2008 15:41:21 +0000 (15:41 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 6 Mar 2008 15:41:21 +0000 (15:41 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@8881 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application.pm

index d9b8872..ea61918 100644 (file)
@@ -14,6 +14,16 @@ __PACKAGE__->register_method(
     method      => 'ils_version',
 );
 
+__PACKAGE__->register_method(
+    api_name => 'opensrf.open-ils.fetch_idl.file',
+    api_level => 1,
+    method => 'get_idl_file',
+);
+sub get_idl_file {
+    use OpenSRF::Utils::SettingsClient;
+    return OpenSRF::Utils::SettingsClient->new->config_value('IDL');
+}
+
 sub register_method {
     my $class = shift;
     my %args = @_;