From dd07adec0da76b60ca0c4f5c0d11a807f3d6ffc2 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 22 Aug 2002 05:08:21 +0000
Subject: [PATCH] Fixed a bug where administrators couldn't delete images or
 attachments in user submission systems.

---
 lib/WebGUI/Wobject/UserSubmission.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Wobject/UserSubmission.pm b/lib/WebGUI/Wobject/UserSubmission.pm
index 16eaecf77..85ac10a47 100644
--- a/lib/WebGUI/Wobject/UserSubmission.pm
+++ b/lib/WebGUI/Wobject/UserSubmission.pm
@@ -279,7 +279,7 @@ sub www_copy {
 sub www_deleteAttachment {
 	my ($owner);
 	($owner) = WebGUI::SQL->quickArray("select userId from UserSubmission_submission where submissionId=$session{form}{sid}");
-        if ($owner == $session{user}{userId}) {
+        if ($owner == $session{user}{userId} || WebGUI::Privilege::isInGroup($_[0]->get("groupToApprove"))) {
                 WebGUI::SQL->write("update UserSubmission_submission set attachment='' where submissionId=$session{form}{sid}");
                 return $_[0]->www_editSubmission();
         } else {
@@ -291,7 +291,7 @@ sub www_deleteAttachment {
 sub www_deleteImage {
 	my ($owner);
 	($owner) = WebGUI::SQL->quickArray("select userId from UserSubmission_submission where submissionId=$session{form}{sid}");
-        if ($owner == $session{user}{userId}) {
+        if ($owner == $session{user}{userId} || WebGUI::Privilege::isInGroup($_[0]->get("groupToApprove"))) {
                 WebGUI::SQL->write("update UserSubmission_submission set image='' where submissionId=$session{form}{sid}");
                 return $_[0]->www_editSubmission();
         } else {