[otrs-cvs] CVS: otrs/Kernel/Modules AdminQueue.pm,1.24,1.25

[cvs-log at otrs.org]

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

Modified Files:
	AdminQueue.pm 
Log Message:
fixed bug in parent queue selection

Index: AdminQueue.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/Modules/AdminQueue.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -r1.24 -r1.25
*** AdminQueue.pm	20 Jun 2006 13:27:51 -0000	1.24
--- AdminQueue.pm	22 Jun 2006 07:38:03 -0000	1.25
***************
*** 216,226 ****
          $Param{Name} = $Queue[$#Queue];
      }
      $Param{'QueueOption'} = $Self->{LayoutObject}->AgentQueueListOption(
!         Data => {
!           $Self->{DBObject}->GetTableData(
!             What => 'id, name',
!             Table => 'queue',
!             Valid => 1,
!           ),
            '' => '-',
          },
--- 216,240 ----
          $Param{Name} = $Queue[$#Queue];
      }
+ 
+     my %Data = $Self->{DBObject}->GetTableData(
+         What => 'id, name',
+         Table => 'queue',
+         Valid => 1,
+     );
+     my $QueueName = '';
+     foreach my $Key (keys %Data) {
+         if ($Param{QueueID} eq $Key) {
+             $QueueName = $Data{$Param{QueueID}};
+             last;
+         }
+     }
+     my %CleanHash = %Data;
+     foreach my $Key (keys %Data) {
+         if ($CleanHash{$Key} eq $QueueName || $CleanHash{$Key} =~ /^$QueueName\:\:/) {
+             delete($CleanHash{$Key});
+         }
+     }
      $Param{'QueueOption'} = $Self->{LayoutObject}->AgentQueueListOption(
!         Data => {%CleanHash,
            '' => '-',
          },