enforcing DELETE_COPY in addition to UPDATE_COPY when deleting an item

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index 4a6c790..eb521de 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -1067,6 +1067,9 @@ sub delete_rec {
 sub delete_copy {
        my( $editor, $override, $vol, $copy ) = @_;
 
+   return $editor->event unless 
+      $editor->allowed('DELETE_COPY',copy_perm_org($vol, $copy));
+
        my $stat = $U->copy_status($copy->status)->id;
 
        unless($override) {