%# BEGIN LICENSE BLOCK
%# 
%#  Copyright (c) 2002-2003 Jesse Vincent <jesse@bestpractical.com>
%#  
%#  This program is free software; you can redistribute it and/or modify
%#  it under the terms of version 2 of the GNU General Public License 
%#  as published by the Free Software Foundation.
%# 
%#  A copy of that license should have arrived with this
%#  software, but in any event can be snarfed from www.gnu.org.
%# 
%#  This program 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.
%# 
%# END LICENSE BLOCK

<& /RTFM/Elements/Tabs, 
    tabs => $tabs, 
    current_toptab => 'RTFM/Admin/index.html', 
    current_tab => $current_tab, 
    Title => $Title &>
<%INIT>
  my $tabs = { Classes => { title => loc('Classes'),
			  path => 'RTFM/Admin/Classes/index.html',
			},
	       CustomFields => { title => loc('Custom Fields'),
			   path => 'RTFM/Admin/CustomFields/index.html',
			 },
	       Global => { title => loc('Global'),
			   path => 'RTFM/Admin/Global/index.html',
			 },
	     };
  foreach my $tab (sort keys %{$tabs}) {
    if ($tabs->{$tab}->{'path'} eq $current_tab) {
      $tabs->{$tab}->{"subtabs"} = $subtabs;
      $tabs->{$tab}->{"current_subtab"} = $current_subtab;
    }
  }

</%INIT>


<%ARGS>
$subtabs => undef
$current_tab => undef
$current_subtab => undef
$Title => undef
</%ARGS>
