[open-ils-commits] r8882 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-03-06 10:42:11 -0500 (Thu, 06 Mar 2008)
New Revision: 8882

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application.pm
Log:
added a common IDL fetching method

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application.pm	2008-03-06 15:41:21 UTC (rev 8881)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application.pm	2008-03-06 15:42:11 UTC (rev 8882)
@@ -14,6 +14,16 @@
     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 = @_;