Allow sorting on Show Children pages

We have to pass through id, Queue, Statuses and SelectedTickets, so that
either means hardcoding those 4 in Elements/ShowChildren or passing
%ARGS around a lot and controlling with PassArguments.

html/RTIR/Elements/ShowChildren

@@ -57,13 +57,16 @@
 <i><% loc("Check box to unlink") %></i><br />
 % }
 <& /Elements/CollectionList,
+   %ARGS,
    Collection     => $children,
    DisplayFormat  => ($Delete? "__CheckBox__, $Format": $Format),
    Format         => $Format,
    Rows           => $Rows,
    ShowHeader     => $ShowHeader,
    OrderBy        => $OrderBy,
    ShowNavigation => 0,
+   AllowSorting   => $AllowSorting,
+   PassArguments  => $PassArguments,
 &>
 % unless( $children->Count ) {
 %   if ( $NoTicketsCaption ) {
@@ -114,4 +117,7 @@ $NoTicketsCaption => undef,
 
 $ShowHeader => 0
 $ShowStatusesSelector => 0
+
+$AllowSorting => undef
+$PassArguments => undef
 </%ARGS>

html/RTIR/Incident/Children/index.html

@@ -61,13 +61,16 @@ <h2><% loc('Total [_1]: [_2]([_3])', RT::IR::TicketType(Lifecycle => $Lifecycle)
 <input type="hidden" name="Lifecycle" value="<% $Lifecycle %>" />
 
 <& /RTIR/Elements/ShowChildren,
+    %ARGS,
     Ticket               => $Incident,
     Lifecycle            => $Lifecycle,
     Statuses             => [@Statuses],
     FullList             => RT::IR->HREFTo("Incident/Children/?Lifecycle=$Lifecycle&id=$id"),
     Delete               => $delete,
     ShowHeader           => 1,
     ShowStatusesSelector => 1,
+    AllowSorting         => 1,
+    PassArguments        => [qw(Query Format Rows Page Order OrderBy Queue id SelectedTicekts Statuses)],
 &>
 
 <& /Elements/Submit, Name => 'Unlink', Label => loc('Unlink Report') &>