[Rt-devel] [IMO BUG] With AdminQueue right

[Ruslan U. Zakirov]

	Hello.
If user has AdminQueue right on Queue then he can disable it.

Patch:

--- lib/RT/Queue_Overlay.pm     2004-02-13 20:31:23.000000000 +0300
+++ lib/RT/Queue_Overlay.pm.new 2004-04-23 11:30:17.000000000 +0400
@@ -305,6 +305,16 @@

  =cut

+sub SetDisabled {
+    my $self = shift;
+    my $value = shift;
+
+    unless ( $self->CurrentUser->HasRight(Right => 'AdminQueue', Object 
=> $RT::System) ) {
+        return ( 0, $self->loc("Permission Denied") );
+    }
+    return ( $self->_Set( Field => 'Disabled', Value => $value ) );
+}
+
  # }}}

  # {{{ sub Load