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

[svn at svn.open-ils.org]

Author: erickson
Date: 2007-08-06 19:30:26 -0400 (Mon, 06 Aug 2007)
New Revision: 7623

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
added a method to return a list of workstations objects by owning lib

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2007-08-06 22:51:22 UTC (rev 7622)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2007-08-06 23:30:26 UTC (rev 7623)
@@ -2485,7 +2485,36 @@
 	return $ws->id; # note: editor sets the id on the new object for us
 }
 
+__PACKAGE__->register_method (
+	method		=> 'workstation_list',
+	api_name		=> 'open-ils.actor.workstation.list',
+	signature	=> q/
+		Returns a list of workstations registered at the given location
+		@param authtoken The login session key
+		@param ids A list of org_unit.id's for the workstation owners
+	/);
 
+sub workstation_list {
+	my( $self, $conn, $authtoken, @orgs ) = @_;
+
+	my $e = new_editor(authtoken=>$authtoken);
+	return $e->event unless $e->checkauth;
+    my %results;
+
+    for my $o (@orgs) {
+	    return $e->event 
+            unless $e->allowed('REGISTER_WORKSTATION', $o);
+        $results{$o} = $e->search_actor_workstation({owning_lib=>$o});
+    }
+    return \%results;
+}
+
+
+
+
+
+
+
 __PACKAGE__->register_method (
 	method		=> 'fetch_patron_note',
 	api_name		=> 'open-ils.actor.note.retrieve.all',