%# BEGIN LICENSE BLOCK %# %# Copyright (c) 1996-2002 Jesse Vincent %# %# (Except where explictly superceded by other copyright notices) %# %# 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. %# %# %# Unless otherwise specified, all modifications, corrections or %# extensions to this work which alter its source code become the %# property of Best Practical Solutions, LLC when submitted for %# inclusion in the work. %# %# %# END LICENSE BLOCK <& /RTIR/Elements/Header, Title => "RTIR at a glance", Refresh => $session{'home_refresh_interval'} &> <& /Elements/Tabs &> <& /Elements/ListActions, actions => \@results &> <& /Elements/MyRT, Portlets => $portlets &> <%INIT> # XXX: this should be automated!!! unless ( exists $session{'my_rtir_portlets'} ) { my ($d_portlets) = RT::System->new( $session{'CurrentUser'} )->Attributes->Named('RTIR_HomepageSettings'); $session{'my_rtir_portlets'} = $session{'CurrentUser'}->UserObj->Preferences( 'RTIR_HomepageSettings', $d_portlets->Content ); } my $portlets = $session{'my_rtir_portlets'}; if ( defined $q && length $q ) { my $query = RT::IR->ParseSimpleSearch( Query => $q, CurrentUser => $session{'CurrentUser'}, ); return RT::Interface::Web::Redirect( RT->Config->Get('WebURL') .'RTIR/Search/Results.html?Query=' . $m->interp->apply_escapes( $query, 'u' ) ); } my @results; if ( $HomeRefreshInterval ) { $session{'home_refresh_interval'} = $HomeRefreshInterval; push @results, loc( 'Updated refresh interval.'); } <%ARGS> $HomeRefreshInterval => undef $q => undef