Merge branch 'master' of git.evergreen-ils.org:Evergreen into social

[evergreen-equinox.git] / Open-ILS / src / perlmods / lib / OpenILS / Application / Circ / Holds.pm

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
index 6ce8691..f56a52d 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
@@ -795,6 +795,16 @@ sub update_hold_impl {
         return OpenILS::Event->new('BAD_PARAMS') if $hold->fulfillment_time;
         return $e->die_event unless $e->allowed('UPDATE_HOLD_REQUEST_TIME', $hold->pickup_lib);
     }
+    
+       
+       # --------------------------------------------------------------
+       # Code for making sure staff have appropriate permissons for cut_in_line
+       # This, as is, doesn't prevent a user from cutting their own holds in line 
+       # but needs to
+       # --------------------------------------------------------------        
+       if($U->is_true($hold->cut_in_line) ne $U->is_true($orig_hold->cut_in_line)) {
+               return $e->die_event unless $e->allowed('UPDATE_HOLD_REQUEST_TIME', $hold->pickup_lib);
+       }
 
     # --------------------------------------------------------------
     # if the hold is on the holds shelf or in transit and the pickup