MultipleInvestigateTo

RTIR.new/Elements/CombineRequestors
 <%perl>
 my $Requestors;
 foreach (keys(%ARGS)) {
    if (/^Requestorbox-(\S+)$/) {
      if ($Requestors ne "") {$Requestors.=",";};
      $Requestors.=$1;
    };
 }
 $m->comp("/RTIR/Create.html", Requestors => $Requestors, %ARGS);
 $m->abort;
 </%perl>
 
 diff -ru RTIR/Elements/MakeClicky RTIR.new/Elements/MakeClicky
 --- RTIR/Elements/MakeClicky	2004-02-10 21:06:47.000000000 +0000
 +++ RTIR.new/Elements/MakeClicky	2004-03-17 16:35:17.313106648 +0000
 @@ -56,6 +56,7 @@
      my ($pre,$post) = split /@/,$value,2;
      my $result = qq[<A HREF="$RT::WebPath/RTIR/Tools/Lookup.html?@{[$url_params_once]}type=email&q=$value">$value</a> ];
  if ($incident) {
 +      $result .= qq[<INPUT TYPE=CHECKBOX NAME="Requestorbox-$value" UNCHECKED>];
        $result .= qq[[<A HREF="$RT::WebPath/RTIR/Create.html?Incident=$incident&Queue=Investigations&Requestors=$value">Investigate to</a>] ];
  }
        $result .= qq[<A HREF="$RT::WebPath/RTIR/Tools/Lookup.html?@{[$url_params_once]}type=host&q=$post">($post)</a>];
 
 diff -ru RTIR/Tools/Lookup.html RTIR.new/Tools/Lookup.html
 --- RTIR/Tools/Lookup.html	2004-02-10 21:06:47.000000000 +0000
 +++ RTIR.new/Tools/Lookup.html	2004-03-17 16:50:47.991622008 +0000
 @@ -105,6 +105,10 @@
 
  % if ($q) {
  <h2>WHOIS Results</h2>
 +% if ($TicketObj && $TicketObj->QueueObj->Name eq 'Incidents') {
 +<FORM METHOD=POST ACTION="/RTIR/Elements/CombineRequestors?Incident=<%$TicketObj->Id%>&Queue=Investigations">
 +<INPUT TYPE=SUBMIT VALUE='Investigate To Selected'>
 +% }
  % }
  % if ($error){
  <b><%$error%></b>
 @@ -131,6 +135,7 @@
  <%$value|n%><br>
  %                       }
  % }
 +</form>
  % }
  % }
  % }