fixed perm logic error

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5382 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm
index d32c757..f481983 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm
@@ -469,7 +469,9 @@ sub container_update {
        my ( $dbcontainer, $evt ) = $U->fetch_container_e($e, $container->id, $class);
        return $evt if $evt;
 
-       return $e->event unless $e->allowed('UPDATE_CONTAINER');
+       if( $e->requestor->id ne $container->owner ) {
+               return $e->event unless $e->allowed('UPDATE_CONTAINER');
+       }
 
        my $stat;
        if( $class eq 'copy' ) {