From e38f0c17bc6a1f49d510f1702b6f1718f3d4a672 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 17 Jan 2007 19:24:26 +0000
Subject: [PATCH] enforcing DELETE_COPY in addition to UPDATE_COPY when
 deleting an item

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6780 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index 4a6c79029e..eb521ded3d 100644
--- 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) {
-- 
2.11.0