[open-ils-commits] r8881 - trunk/Open-ILS/src/perlmods/OpenILS

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-03-06 10:41:21 -0500 (Thu, 06 Mar 2008)
New Revision: 8881

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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application.pm	2008-03-06 14:16:47 UTC (rev 8880)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application.pm	2008-03-06 15:41:21 UTC (rev 8881)
@@ -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 = @_;