The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
%# One way to stop a runaway horse is to bet on him.
<%INIT>
my $Action = (
    grep defined, map { /^Action-(.+?)(?:\.[xyXY])?$/ ? $1 : undef }
    grep $ARGS{$_}, keys %ARGS
)[0] || 'Save';

@RT::Tabs = (
    'Overview'		=> '/Foundry/Home/',
#    'Diary'		=> '/Foundry/Home/Diary/',
#    'Todo'		=> '/Foundry/Home/Todo/',
    'Preferences'	=> '/Foundry/Home/Preferences/',
    'Register Project'	=> '/Foundry/Home/NewProject/',
);

$m->call_next(%ARGS, Action => $Action);

</%INIT>