%# BEGIN BPS TAGGED BLOCK {{{
%#
%# COPYRIGHT:
%#
%# This software is Copyright (c) 1996-2025 Best Practical Solutions, LLC
%#                                          <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
%#
%#
%# LICENSE:
%#
%# This work is made available to you under the terms of Version 2 of
%# the GNU General Public License. A copy of that license should have
%# been provided with this software, but in any event can be snarfed
%# from www.gnu.org.
%#
%# This work is distributed in the hope that it will be useful, but
%# WITHOUT ANY WARRANTY; without even the implied warranty of
%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
%# General Public License for more details.
%#
%# You should have received a copy of the GNU General Public License
%# along with this program; if not, write to the Free Software
%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
%# 02110-1301 or visit their web page on the internet at
%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
%#
%#
%# CONTRIBUTION SUBMISSION POLICY:
%#
%# (The following paragraph is not intended to limit the rights granted
%# to you to modify and distribute this software under the terms of
%# the GNU General Public License and is only of importance to you if
%# you choose to contribute your changes and enhancements to the
%# community by submitting them to Best Practical Solutions, LLC.)
%#
%# By intentionally submitting any modifications, corrections or
%# derivatives to this work, or any other work intended for use with
%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
%# you are the copyright holder for those contributions and you grant
%# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
%# royalty-free, perpetual, license to use, copy, create derivative
%# works based on those contributions, and sublicense and distribute
%# those contributions and any derivatives thereof.
%#
%# END BPS TAGGED BLOCK }}}
% if ( $ShowForm ) {
<form action="<% $FormAction || '?' %>" method="post">
  <input type="hidden" name="Page" value="<% $Page || '' %>">
  <div class="row mt-2">
    <div class="label col-auto">
      <&|/l&>Only show saved searches for:</&>
    </div>
    <div class="value col-3">
      <select name="Type" class="form-select selectpicker">
        <option value="" <% !$Type && 'selected' %> ><% loc('(any)') %></option>
%     my %type = (
%         Asset => loc('Asset'),
%         AssetChart => loc('Asset Chart'),
%         Graph => loc('Graph'),
%         Ticket => loc('Ticket'),
%         TicketChart => loc('Ticket Chart'),
%         TicketTransaction => loc('Ticket Transaction'),
%         TicketTransactionChart => loc('Ticket Transaction Chart'),
%     );
%     for my $item ( sort keys %type ) {
        <option value="<% $item %>" <% $Type eq $item ? 'selected' : '' %> ><% $type{$item} %></option>
%     }
      </select>
    </div>
  </div>

  <div class="row mt-2">
    <div class="col-12">
      <div class="form-check">
        <input type="checkbox" class="form-check-input checkbox" id="IncludeDisabled" name="IncludeDisabled" value="1" <% $IncludeDisabled? 'checked': '' %> />
        <label class="form-check-label" for="IncludeDisabled"><&|/l&>Include disabled saved searches in listing.</&></label>
      </div>
    </div>
  </div>
  <& /Elements/Submit, Label => loc('Go!'), FullWidth => 1 &>
% }

% foreach my $object (@objects) {
%   my $saved_searches = $object->SavedSearches( Type => $Type );
%   $saved_searches->FindAllRows if $IncludeDisabled;
%   $saved_searches->RowsPerPage( $Rows ) if $Rows;
%   $saved_searches->GotoPage( $Page - 1 ) if $Page;
%   my $title;
%   if (ref $object eq 'RT::User' && $object->Id == $session{CurrentUser}->Id) {
%       $title = loc("My saved searches");
%   } else {
%       $title = loc("[_1]'s saved searches", $object->Name);
%   }
%   $title =~ s/([\\'])/\\$1/g;
%   $title = $m->interp->apply_escapes($title, 'h');
%   my $format = qq{'__Results__/TITLE:$title',};
%   $format .= '__Type__,' unless $Type;
%   if ( $ShowForm && RT::SavedSearch->new( $session{CurrentUser} )->CurrentUserCanModify($Object) ) {
%     $format .= q{__DisabledEdit__};
%     $ShowSubmit ||= 1 if $saved_searches->Count;
%   }
%   else {
%     $format .= q{__Disabled__};
%   }

<& /Elements/CollectionList,
    %ARGS,
    Format => $format,
    Collection => $saved_searches,
    PassArguments => [qw(Type IncludeDisabled RowsPerPage id)],
&>
% }
% if ( $ShowForm ) {
%   if ($ShowSubmit) {
      <& /Elements/Submit, Name => 'Update', Label => loc('Update'), FullWidth => 1, &>
%   }
</form>
% }
<%INIT>
my $ShowSubmit = 0;
my @objects = $Object ? $Object : RT::SavedSearch->new($session{CurrentUser})->ObjectsForLoading();
</%INIT>

<%ARGS>
$Rows => undef
$Page => undef
$IncludeDisabled => undef
$Type => ''
$Object => undef
$ShowForm => undef
$FormAction => undef
</%ARGS>
