X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Fhtml%2FTools%2FElements%2FTabs;h=cd6d16916978e6a21bbfd8a0a8f237c90fe3de6f;hp=fc4153b98767cbe45642a781f6920512398546ae;hb=ef20b2b6b1feb47ad02b5ff7525f1a0fd11d0fa4;hpb=a513c0bef534d05f03c1242831b6f3be19b97dae diff --git a/rt/html/Tools/Elements/Tabs b/rt/html/Tools/Elements/Tabs index fc4153b98..cd6d16916 100644 --- a/rt/html/Tools/Elements/Tabs +++ b/rt/html/Tools/Elements/Tabs @@ -2,7 +2,7 @@ %# %# COPYRIGHT: %# -%# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC +%# This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC %# %# %# (Except where explicitly superseded by other copyright notices) @@ -22,7 +22,9 @@ %# %# 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., 675 Mass Ave, Cambridge, MA 02139, USA. +%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +%# 02110-1301 or visit their web page on the internet at +%# http://www.gnu.org/copyleft/gpl.html. %# %# %# CONTRIBUTION SUBMISSION POLICY: @@ -45,25 +47,35 @@ %# END BPS TAGGED BLOCK }}} <& /Elements/Tabs, tabs => $tabs, - current_toptab => 'Tools/Offline.html', + current_toptab => 'Tools/index.html', current_tab => $current_tab, Title => $Title &> <%INIT> - my $tabs = { a => { title => loc('Offline'), - path => 'Tools/Offline.html', - }, - }; +my $tabs = { + a => { + title => loc('Offline'), + path => 'Tools/Offline.html', + }, + b => { + title => loc('Reports'), + path => 'Tools/Reports/index.html', + }, + c => { + title => loc('My Day'), + path => 'Tools/MyDay.html', + }, +}; - foreach my $tab (sort keys %{$tabs}) { - if ($tabs->{$tab}->{'path'} eq $current_tab) { - $tabs->{$tab}->{"subtabs"} = $subtabs; - $tabs->{$tab}->{"current_subtab"} = $current_subtab; +$m->comp('/Elements/Callback', tabs => $tabs, %ARGS); + +foreach my $tab ( sort keys %{$tabs} ) { + if ( $tabs->{$tab}->{'path'} eq $current_tab ) { + $tabs->{$tab}->{"subtabs"} = $subtabs; + $tabs->{$tab}->{"current_subtab"} = $current_subtab; } - } +} - - <%ARGS> $subtabs => undef $current_tab => undef