[Rt-commit] r10460 - rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools

[ruz at bestpractical.com]

Author: ruz
Date: Wed Jan 23 20:03:49 2008
New Revision: 10460

Modified:
   rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Lookup.html

Log:
* add another Investigate button that redirects you
  to Launch Investigation instead of scripted action

Modified: rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Lookup.html
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Lookup.html	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Lookup.html	Wed Jan 23 20:03:49 2008
@@ -136,7 +136,7 @@
 % if ( $q ) {
 <h2>WHOIS Results</h2>
 % if ( $TicketObj && $TicketType eq 'Incident' ) {
-<form method="post" action="<% RT->Config->Get('WebPath') %>/RTIR/Tools/ScriptedAction.html">
+<form method="post" action="<% RT->Config->Get('WebPath') %>/RTIR/Tools/Lookup.html">
 <input type="hidden" name="incidentid" value="<% $ticket %>" />
 <input type="hidden" name="Subject" value="<% $TicketObj->Subject %>" />
 % }
@@ -183,12 +183,34 @@
     Caption => loc("Investigate to selected addresses"),
     Label => loc("Investigate"),
 &>
+<& /Elements/Submit,
+    Name => "InvestigateWithScriptedActions",
+    Caption => loc("Investigate to selected addresses"),
+    Label => loc("Investigate using scripted action"),
+&>
 % }
 
 </form>
 
 <%INIT>
 
+if ( $ARGS{'InvestigateTo'} ) {
+    my $requestors = join ', ', map /^Requestorbox-(.*)/, keys %ARGS;
+    return RT::Interface::Web::Redirect(
+        RT->Config->Get('WebURL')."RTIR/Create.html?"
+        . $m->comp('/Elements/QueryString',
+            Queue => 'Investigations',
+            Requestors => $requestors,
+            Incident => $ARGS{'incidentid'},
+        )
+    );
+} elsif ( $ARGS{'InvestigateWithScriptedActions'} ) {
+    return RT::Interface::Web::Redirect(
+        RT->Config->Get('WebURL')."RTIR/Tools/ScriptedAction.html?"
+        . $m->comp('/Elements/QueryString', %ARGS )
+    );
+}
+
 unless ( $server ) {
     # just pick the first one
     ($server) = map ref $servers->{$_}? $servers->{$_}->{'Host'}: $servers->{$_},