From 9e00cfa4af2357cf69280d52dc794753242fe498 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 8 Jan 2008 21:15:19 +0000
Subject: [PATCH] registering api calls. added docs and doc stubs. added a
 user_picklist fetcher

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
index 90788ab075..27737fd5e6 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
@@ -33,6 +33,17 @@ sub create_picklist {
     return $picklist->id;
 }
 
+
+__PACKAGE__->register_method(
+	method => 'update_picklist',
+	api_name	=> 'open-ils.acq.picklist.update',
+	signature => q/
+        Updates a picklist
+		@param authtoken
+		@pararm picklist
+	/
+);
+
 sub update_picklist {
     my($self, $conn, $auth, $picklist) = @_;
     my $e = new_editor(xact=>1, authtoken=>$auth);
@@ -50,26 +61,71 @@ sub update_picklist {
     return 1;
 }
 
+__PACKAGE__->register_method(
+	method => 'retrieve_picklist',
+	api_name	=> 'open-ils.acq.picklist.retrieve',
+	signature => q/
+        Retrieves a picklist
+		@param authtoken
+		@pararm picklist_id
+        @param flesh Causes the linked picklist_entry objects
+            to be appended to the object
+	/
+);
+
 sub retrieve_picklist {
-    my($self, $conn, $auth, $picklist_id) = @_;
+    my($self, $conn, $auth, $picklist_id, $options) = @_;
     my $e = new_editor(authtoken=>$auth);
     return $e->die_event unless $e->checkauth;
 
-    my $picklist = $e->retrieve_acq_picklist($picklist_id)
+    my $args = ($$options{flesh}) ?  # XXX
+        { flesh => 1, flesh_fields => {XXX => ['entries']} : undef;
+
+    my $picklist = $e->retrieve_acq_picklist($picklist_id, $args)
         or return $e->die_event;
+
     return $BAD_PARAMS unless $e->requestor->id == $picklist->owner;
     return $picklist;
 }
 
+__PACKAGE__->register_method(
+	method => 'retrieve_user_picklist',
+	api_name	=> 'open-ils.acq.picklist.user.retrieve',
+	signature => q/
+        Retrieves all the picklists that belong to the requestor
+		@param authtoken
+        @param options A hash of retrieval options.  Options include 
+            "idlist", which causes the method to return a list of IDs
+            instead of objects;
+	/
+);
+
+sub retrieve_user_picklist {
+    my($self, $conn, $auth, $options) = @_;
+    my $e = new_editor(authtoken=>$auth);
+    return $e->die_event unless $e->checkauth;
+    return $e->search_acq_picklist({owner=>$e->requestor->id},{idlist=>$$options{idlist}});
+}
+
+
+__PACKAGE__->register_method(
+	method => 'delete_picklist',
+	api_name	=> 'open-ils.acq.picklist.delete',
+	signature => q/
+        Deletes a picklist
+		@param authtoken
+		@pararm picklist_id
+	/
+);
 
 sub delete_picklist {
     my($self, $conn, $auth, $picklist_id) = @_;
     my $e = new_editor(xact=>1, authtoken=>$auth);
     return $e->die_event unless $e->checkauth;
 
-    # don't let them delete someone else's picklist
     my $picklist = $e->retrieve_acq_picklist($picklist_id)
         or return $e->die_event;
+    # don't let anyone delete someone else's picklist
     return $BAD_PARAMS if $picklist->owner != $e->requestor->owner;
 
     $e->delete_acq_picklist($picklist) or return $e->die_event;
@@ -77,10 +133,33 @@ sub delete_picklist {
     return 1;
 }
 
+
+# ----------------------------------------------------------------
+# Picklist Entries
+# ----------------------------------------------------------------
+
+__PACKAGE__->register_method(
+	method => 'create_picklist_entry',
+	api_name	=> 'open-ils.acq.picklist_entry.create',
+	signature => q/
+        Creates a new picklist entry.  This method extracts the bib
+        data from the provided MARC XML.
+		@param authtoken
+		@pararm picklist_id
+		@pararm marc_xml
+		@pararm bibid ID of the existing bibliio.record_entry if appropriate
+	/
+);
+
 sub create_picklist_entry {
     my($self, $conn, $auth, $picklist_id, $marc_xml, $bibid) = @_;
     my $e = new_editor(xact=>1, authtoken=>$auth);
     return $e->die_event unless $e->checkauth;
+    return $e->die_event unless $e->allowed('CREATE_PICKLIST');
+
+    my $picklist = $e->retrieve_acq_picklist($picklist_id)
+        or return $e->die_event;
+    return $BAD_PARAMS unless $picklist->owner == $e->requestor->id;
 
     # XXX data extraction ...
 
-- 
2.11.0