--- /home/fpscha/otrs/Kernel/Output/HTML/Agent.pm	Sun Jul 13 16:02:08 2003
+++ /usr/local/otrs/Kernel/Output/HTML/Agent.pm	Wed Sep 17 16:31:18 2003
@@ -925,6 +933,13 @@
         Data => $Param{NextStates},
         Name => 'NewStateID',
     );
+    # get MoveQueuesStrg
+    $Param{MoveQueuesStrg} = $Self->OptionStrgHashRef(
+        Name => 'DestQueueID',
+        SelectedID => $Param{SelectedMoveQueue},
+        Data => $Param{MoveQueues},
+        OnChangeSubmit => 0,
+    );
     # get output back
     return $Self->Output(TemplateFile => 'AgentNote', Data => \%Param);
 }
--- /home/fpscha/otrs/Kernel/Output/HTML/Standard/AgentNote.dtl	Fri Apr 11 15:14:08 2003
+++ /usr/local/otrs/Kernel/Output/HTML/MECON/AgentNote.dtl	Wed Sep 17 16:29:10 2003
@@ -97,6 +97,9 @@
     <td>$Text{"Time units"}$Text{"$Config{"TimeUnits"}"}:</td>
     <td><input type="text" name="TimeUnits" value="" size="3"></td>
   </tr>
+  <tr>
+    <td>$Text{"Next Queue"}:</td><td>$Data{"MoveQueuesStrg"}</td>
+  </tr>
 # --
 # is ticket state used?
 # --
--- /home/fpscha/otrs/Kernel/Modules/AgentNote.pm	Thu Jun 26 16:08:57 2003
+++ /usr/local/otrs/Kernel/Modules/AgentNote.pm	Wed Sep 17 16:34:36 2003
@@ -100,6 +100,20 @@
             Result => 'HASH',
         );
         $NextStates{''} = '-';
+        # move queues
+        my $SelectedMoveQueue = $Self->{TicketObject}->GetQueueIDOfTicketID(
+            TicketID => $Self->{TicketID},
+        );
+        my %MoveQueues = ();
+        if ($Self->{ConfigObject}->Get('MoveInToAllQueues')) {
+            %MoveQueues = $Self->{QueueObject}->GetAllQueues();
+        }
+        else {
+            %MoveQueues = $Self->{QueueObject}->GetAllQueues(
+                UserID => $Self->{UserID},
+                Type => 'rw',
+            );
+        }
         $Output .= $Self->{LayoutObject}->AgentNote(
             TicketID => $Self->{TicketID},
             QueueID => $Self->{QueueID},
@@ -107,6 +121,8 @@
             NoteSubject => $Self->{ConfigObject}->Get('DefaultNoteSubject'),
             NoteTypes => \%NoteTypes,
             NextStates => \%NextStates,
+            MoveQueues => \%MoveQueues,
+            SelectedMoveQueue => $SelectedMoveQueue,
         );
         $Output .= $Self->{LayoutObject}->Footer();
         return $Output;
@@ -117,6 +133,7 @@
             $Self->{ParamObject}->GetParam(Param => 'Body');
         my $ArticleTypeID = $Self->{ParamObject}->GetParam(Param => 'NoteID');
         my $TimeUnits = $Self->{ParamObject}->GetParam(Param => 'TimeUnits') || 0; 
+        my $DestQueueID = $Self->{ParamObject}->GetParam(Param => 'DestQueueID') || '';
         if (my $ArticleID = $Self->{TicketObject}->CreateArticle(
             TicketID => $Self->{TicketID},
             ArticleTypeID => $ArticleTypeID,
@@ -165,6 +182,16 @@
                   UserID => $Self->{UserID},
               );
           } 
+          # --
+          # set queue
+          # --
+          if ($DestQueueID) {
+            $Self->{TicketObject}->MoveByTicketID(
+              TicketID => => $Self->{TicketID},
+              UserID => $Self->{UserID},
+              QueueID => $DestQueueID,
+            );
+          }
           # --
           # redirect
           # --