%# BEGIN LICENSE BLOCK %# %# Copyright (c) 1996-2003 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 <& /Elements/PageLayout, current_toptab => $current_toptab, current_tab => $current_tab, toptabs => $toptabs, topactions => $topactions, tabs => $tabs, actions => $actions, subactions => $subactions, title => $Title &> <%INIT> my $action; my $basetopactions = { A => { html => $m->scomp('/Elements/CreateTicket') }, B => { html => $m->scomp('/Elements/SimpleSearch') } }; my $basetabs = { A => { title => loc('Homepage'), path => '', }, B => { title => loc('Tickets'), path => 'Search/Listing.html' }, E => { title => loc('Configuration'), path => 'Admin/' }, K => { title => loc('Preferences'), path => 'User/Prefs.html' }, P => { title => loc('Approval'), path => 'Approvals/' }, }; if (!defined $toptabs) { $toptabs = $basetabs; } if (!defined $topactions) { $topactions = $basetopactions; } # Now let callbacks add their extra tabs $m->comp('/Elements/Callback', topactions => $topactions, toptabs => $toptabs, %ARGS); <%ARGS> $current_toptab => undef $current_tab => undef $toptabs => undef $topactions => undef $tabs => undef $actions => undef $subactions => undef $Title => undef