[otrs-cvs] otrs/Kernel/Modules AdminQueue.pm,1.87,1.88

Comments:
Update of /home/cvs/otrs/Kernel/Modules
In directory lancelot:/tmp/cvs-serv26352/Kernel/Modules

Modified Files:
	AdminQueue.pm 
Log Message:
Improved level check.

Author: mg

Index: AdminQueue.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/Modules/AdminQueue.pm,v
retrieving revision 1.87
retrieving revision 1.88
diff -2 -u -d -r1.87 -r1.88
--- AdminQueue.pm	5 Dec 2012 11:11:47 -0000	1.87
+++ AdminQueue.pm	5 Dec 2012 13:34:25 -0000	1.88
@@ -514,5 +514,5 @@
 
     # get max queue level
-    my $MaxQueueLevel = $Self->{ConfigObject}->Get('Ticket::Frontend::MaxQueueLevel') || 5;
+    my $MaxParentLevel = ( $Self->{ConfigObject}->Get('Ticket::Frontend::MaxQueueLevel') || 5 ) - 1;
 
     # verify if queue list should be a list or a tree
@@ -522,5 +522,5 @@
             Name => 'ParentQueueID',
             Selected       => $ParentQueue,
-            MaxLevel       => $MaxQueueLevel,
+            MaxLevel       => $MaxParentLevel,
             OnChangeSubmit => 0,
         );
@@ -534,5 +534,5 @@
             my @QueueNameLevel = split( ::, $QueueName );
             my $QueueLevel     = $#QueueNameLevel + 1;
-            if ( $QueueLevel > $MaxQueueLevel ) {
+            if ( $QueueLevel > $MaxParentLevel ) {
                 delete $CleanHash{$Key};
             }
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log