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

[svn at svn.open-ils.org]

Author: erickson
Date: 2007-11-21 10:44:27 -0500 (Wed, 21 Nov 2007)
New Revision: 8103

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
to move a workstation, you need perms at original org and destination org

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2007-11-21 04:00:05 UTC (rev 8102)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2007-11-21 15:44:27 UTC (rev 8103)
@@ -2464,6 +2464,8 @@
 			    return $e->die_event unless 
                     $e->allowed('UPDATE_WORKSTATION', $existing->owning_lib); 
 
+			    return $e->die_event unless $e->allowed('UPDATE_WORKSTATION', $owner); 
+
                 $existing->owning_lib($owner);
 			    return $e->die_event unless $e->update_actor_workstation($existing);