[open-ils-commits] r8454 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-01-22 11:23:59 -0500 (Tue, 22 Jan 2008)
New Revision: 8454

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
added currency_type retrieval method

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-01-22 15:50:42 UTC (rev 8453)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-01-22 16:23:59 UTC (rev 8454)
@@ -321,4 +321,25 @@
 }
 
 
+__PACKAGE__->register_method(
+	method => 'retrieve_all_currency_type',
+	api_name	=> 'open-ils.acq.currency_type.all.retrieve',
+	signature => {
+        desc => 'Retrieves all currency_type objects',
+        params => [
+            {desc => 'Authentication token', type => 'string'},
+        ],
+        return => {desc => 'List of currency_type objects', type => 'list'}
+    }
+);
+
+sub retrieve_all_currency_type {
+    my($self, $conn, $auth, $budget_alloc_id) = @_;
+    my $e = new_editor(authtoken=>$auth);
+    return $e->event unless $e->checkauth;
+    return $e->event unless $e->allowed('GENERAL_ACQ');
+    return $e->retrieve_all_acq_currency_type();
+}
+
+
 1;