rt/share/html/Elements/MyRT

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2016 Best Practical Solutions, LLC
   6 %#                                          <sales@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  13 %# This work is made available to you under the terms of Version 2 of
  14 %# the GNU General Public License. A copy of that license should have
  15 %# been provided with this software, but in any event can be snarfed
  16 %# from www.gnu.org.
  17 %#
  18 %# This work is distributed in the hope that it will be useful, but
  19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 %# General Public License for more details.
  22 %#
  23 %# You should have received a copy of the GNU General Public License
  24 %# along with this program; if not, write to the Free Software
  25 %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  26 %# 02110-1301 or visit their web page on the internet at
  27 %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
  28 %#
  29 %#
  30 %# CONTRIBUTION SUBMISSION POLICY:
  31 %#
  32 %# (The following paragraph is not intended to limit the rights granted
  33 %# to you to modify and distribute this software under the terms of
  34 %# the GNU General Public License and is only of importance to you if
  35 %# you choose to contribute your changes and enhancements to the
  36 %# community by submitting them to Best Practical Solutions, LLC.)
  37 %#
  38 %# By intentionally submitting any modifications, corrections or
  39 %# derivatives to this work, or any other work intended for use with
  40 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  41 %# you are the copyright holder for those contributions and you grant
  42 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  43 %# royalty-free, perpetual, license to use, copy, create derivative
  44 %# works based on those contributions, and sublicense and distribute
  45 %# those contributions and any derivatives thereof.
  46 %#
  47 %# END BPS TAGGED BLOCK }}}
  48 % $m->callback( ARGSRef => \%ARGS, CallbackName => 'BeforeTable' );
  49 <table class="myrt">
  50 <tr valign="top">
  51
  52 <td class="boxcontainer">
  53 % $show_cb->($_) foreach @$body;
  54 </td>
  55
  56 % if ( $sidebar ) {
  57 <td class="boxcontainer">
  58 % $show_cb->($_) foreach @$sidebar;
  59 </td>
  60 % }
  61
  62 </tr></table>
  63 % $m->callback( ARGSRef => \%ARGS, CallbackName => 'AfterTable' );
  64 <%INIT>
  65
  66 my %allowed_components = map {$_ => 1} @{RT->Config->Get('HomepageComponents')};
  67
  68 my $user = $session{'CurrentUser'}->UserObj;
  69 unless ( $Portlets ) {
  70     my ($defaults) = RT::System->new($session{'CurrentUser'})->Attributes->Named('HomepageSettings');
  71     $Portlets = $user->Preferences(
  72         HomepageSettings => $defaults ? $defaults->Content : {}
  73     );
  74 }
  75
  76 $m->callback( CallbackName => 'MassagePortlets', Portlets => $Portlets );
  77
  78 my ($body, $sidebar) = @{$Portlets}{qw(body sidebar)};
  79 unless( $body && @$body ) {
  80     $body = $sidebar || [];
  81     $sidebar = undef;
  82 }
  83 $sidebar = undef unless $sidebar && @$sidebar;
  84
  85 my $Rows = $user->Preferences( 'SummaryRows', ( RT->Config->Get('DefaultSummaryRows') || 10 ) );
  86
  87 my $show_cb = sub {
  88     my $entry = shift;
  89     my $type  = $entry->{type};
  90     my $name = $entry->{'name'};
  91     if ( $type eq 'component' ) {
  92         if (!$allowed_components{$name}) {
  93             $m->out( $m->interp->apply_escapes( loc("Invalid portlet [_1]", $name), "h" ) );
  94         }
  95         else {
  96             $m->comp( $name, %{ $entry->{arguments} || {} } );
  97         }
  98     } elsif ( $type eq 'system' ) {
  99         $m->comp( '/Elements/ShowSearch', Name => $name, Override => { Rows => $Rows } );
 100     } elsif ( $type eq 'saved' ) {
 101         $m->comp( '/Elements/ShowSearch', SavedSearch => $name, Override => { Rows => $Rows } );
 102     } else {
 103         $RT::Logger->error("unknown portlet type '$type'");
 104     }
 105 };
 106
 107 </%INIT>
 108 <%ARGS>
 109 $Portlets => undef
 110 </%ARGS>