%# 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
<& /Admin/Elements/Tabs, 
    subtabs => $tabs, 
    current_tab => 'Admin/RTFM/index.html', 
    current_subtab => $current_tab, 
    Title => $Title &>
<%INIT>
  my $tabs = { Classes => { title => loc('Classes'),
			  path => 'Admin/RTFM/Classes/index.html',
			},
	       Global => { title => loc('Global'),
			   path => 'Admin/RTFM/Global/index.html',
			 },
               CFs => { title => loc('Custom Fields'),
                        path => 'Admin/CustomFields/index.html?'
                                .$m->comp('/Elements/QueryString', type => 'RT::FM::Class-RT::FM::Article'),
                      },
	     };
  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>
