%# BEGIN BPS TAGGED BLOCK {{{
%#
%# COPYRIGHT:
%#
%# This software is Copyright (c) 1996-2024 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 }}}
<& /Admin/Elements/Header, Title => $title  &>
<& /Elements/Tabs &>

<& /Elements/ListActions, actions => \@actions &>

<form method="post" action="DashboardsInMenu.html" name="UpdateSearches" class="mx-auto max-width-lg">
  <& /Widgets/SearchSelection,
    pane_name => { dashboard => loc('Dashboards in menu') },
    sections  => [{
                    id    => 'dashboards',
                    label => loc("Dashboards"),
                    items => \@dashboard_components,
                }],
    selected  => \%selected,
    filters   => [],
  &>
  <input type="hidden" name="id" value="<% $id %>" />
  <input type="hidden" name="dashboard_id" value="DashboardsInMenu" />

  <& /Elements/Submit, Name => "UpdateSearches", Label => loc('Save') &>
</form>

<&|/Widgets/TitleBox, title => loc("Reset dashboards in menu"), class => "mx-auto max-width-lg" &>
<div class="mt-3 mb-1 ml-3">
  <form method="post" action="DashboardsInMenu.html">
    <input type="hidden" name="id" value="<% $id %>" />
    <input type="submit" name="ResetDashboards" class="button form-control btn btn-primary" value="<% loc('Reset dashboards to default') %>">
  </form>
</div>
</&>

<form method="post" action="DashboardsInMenu.html" name="UpdateSearches" class="mx-auto max-width-lg">
  <& /Widgets/SearchSelection,
    pane_name => { report => loc('Reports in menu') },
    sections  => [{
                  id    => 'reports',
                  label => loc("Reports"),
                  items => \@report_components,
              }],
    selected  => \%selected,
    filters   => [],
  &>
  <input type="hidden" name="id" value="<% $id %>" />
  <input type="hidden" name="dashboard_id" value="ReportsInMenu" />

  <& /Elements/Submit, Name => "UpdateSearches", Label => loc('Save') &>
</form>

<&|/Widgets/TitleBox, title => loc("Reset reports in menu"), class => "mx-auto max-width-lg" &>
<div class="mt-3 mb-1 ml-3">
  <form method="post" action="DashboardsInMenu.html">
    <input type="hidden" name="id" value="<% $id %>" />
    <input type="submit" name="ResetReports" class="button form-control btn btn-primary" value="<% loc('Reset reports to default') %>">
  </form>
</div>
</&>

<%init>
my @actions;

my $UserObj = RT::User->new($session{'CurrentUser'});
$UserObj->Load($id) || Abort("Couldn't load user '" . ($id || '') . "'");
my $title = loc("Reports menu for the user [_1]", $UserObj->Name);

if ( $ARGS{ResetDashboards} ) {
    # Empty DashboardsInMenu pref means to use system default.
    my ( $ok, $msg ) = $UserObj->SetPreferences( 'DashboardsInMenu', {} );
    push @actions, $ok ? loc( 'Preferences saved for user [_1].', $UserObj->Name ) : $msg;
}

if ( $ARGS{ResetReports} ) {
    if ( $UserObj->Preferences('ReportsInMenu') ) {
        # Empty ReportsInMenu pref means empty, not to use default,
        # thus we need to delete preference instead.
        my ( $ok, $msg ) = $UserObj->DeletePreferences('ReportsInMenu');
        push @actions, $ok ? loc( 'Preferences saved for user [_1].', $UserObj->Name ) : $msg;
    }
}

my @dashboard_components = map {{ type => 'dashboard', id => $_->id, name => $_->Name, label => $_->Name }} $m->comp("/Dashboards/Elements/ListOfDashboards", IncludeSuperuserGroups => 0 );
my @report_components = map { { %$_, name => $_->{'title'}, type => 'report', label => loc( $_->{'title'} ) } } @{ ListOfReports() };

if ($ARGS{UpdateSearches}) {
  if ( $ARGS{'dashboard_id'} eq 'DashboardsInMenu' ) {
      my @dashboard_ids;

      my $dashboard_names = ref $ARGS{'dashboard'} eq 'ARRAY' ? $ARGS{'dashboard'} : [$ARGS{'dashboard'}];
      foreach my $name ( @{$dashboard_names} ) {
          next unless $name;
          $name =~ s/dashboard-//;

          my $attribute = RT::Attribute->new( $session{'CurrentUser'} );

          my ($ret, $msg) = $attribute->LoadByCols( Name => 'Dashboard', Description => $name );
          if ( $ret ) {
              push @dashboard_ids, $attribute->Id;
          }
          else {
              RT::Logger->error( "Could not load dashboard: $msg" );
              push @actions, "Could not load dashboard $name";
          }
      }

      my ( $ok, $msg ) = $UserObj->SetPreferences( $ARGS{'dashboard_id'}, { 'dashboards' => \@dashboard_ids } );
      push @actions, $ok ? loc('Preferences saved for dashboards in menu.') : $msg;
      delete $session{'dashboards_in_menu'};
  }
  else {
    my $report_names = ref $ARGS{'report'} eq 'ARRAY' ? $ARGS{'report'} : [$ARGS{'report'}];
    my @ret;
    foreach my $report ( @report_components ) {
        last unless $report_names->[0];

        push @ret, $report if grep { $_ =~ /report-$report->{'name'}/ } @{$report_names};
    }

    my ( $ok, $msg ) = $UserObj->SetPreferences( $ARGS{'dashboard_id'}, \@ret );
    push @actions, $ok ? loc('Preferences saved for reports in menu.') : $msg;
    delete $session{'reports_in_menu'};
  }
}

my %selected;

my ($default_dashboards) = RT::System->new( $session{'CurrentUser'} )->Attributes->Named('DashboardsInMenu');
my $dashboard_pref
    = $UserObj->Preferences( 'DashboardsInMenu', $default_dashboards ? $default_dashboards->Content : () );

# prefs returns an array of Dashboard ID's
my $selected_dashboard_ids = $dashboard_pref->{'dashboards'} || [];

my @selected_dashboards;
foreach my $id ( @{$selected_dashboard_ids} ) {
    my $attribute = RT::Attribute->new( RT->SystemUser );
    my ($ret, $msg) = $attribute->Load( $id );
    unless ( $ret ) {
        RT::Logger->error( "Could not load dashboard: $id" );
        next;
    }

    push @selected_dashboards, {
      id      => $id,
      name    => $attribute->Description,
      label   => $attribute->Description,
      type    => 'dashboard'
    };
}
$selected{'dashboard'} = \@selected_dashboards;

my $report_pref = $UserObj->Preferences('ReportsInMenu');
unless ($report_pref) {
    my ($defaults) = RT::System->new( $session{'CurrentUser'} )->Attributes->Named('ReportsInMenu');
    $report_pref = $defaults ? $defaults->Content : {};
}
my @report_pref_sanitized = map { { %$_, name => $_->{'title'}, type => 'report', label => loc( $_->{'title'} ) } } @{ $report_pref };
$selected{'report'} = \@report_pref_sanitized || [];
</%init>

<%ARGS>
$id => undef
</%ARGS>
