From 693c02449d937c9aff1722166c6dffbedca0097c Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 8 Aug 2008 19:43:43 +0000
Subject: [PATCH] added generic lineitem attr retrieval call

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@10317 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../perlmods/OpenILS/Application/Acq/Lineitem.pm   | 23 ++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
index 50318ab34d..e0e44897ed 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
@@ -858,6 +858,29 @@ sub set_lineitem_attr {
     return $attr->id;
 }
 
+__PACKAGE__->register_method(
+	method => 'get_lineitem_attr_defs',
+	api_name	=> 'open-ils.acq.lineitem_attr_definition.retrieve.all',
+	signature => {
+        desc => 'Retrieve lineitem attr definitions',
+        params => [
+            {desc => 'Authentication token', type => 'string'},
+        ],
+        return => {desc => 'List of attr definitions'}
+    }
+);
+
+sub get_lineitem_attr_defs {
+    my($self, $conn, $auth) = @_;
+    my $e = new_editor(authtoken=>$auth);
+    return $e->event unless $e->checkauth;
+    my %results;
+    for my $type (qw/generated marc local usr provider/) {
+        my $call = "retrieve_all_acq_lineitem_${type}_attr_definition";
+        $results{$type} = $e->$call;
+    }
+    return \%results;
+}
 
 
 1;
-- 
2.11.0