#!c:\Perl\bin\perl
use warnings;
use strict;
use diagnostics;
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser);
use Tie::IxHash;
use CONSTANTS;

tie my %menuHash, 'Tie::IxHash',CONSTANTS::TOP_MENU1_	=> ordered_hash_ref( CONSTANTS::TM1_SUB1_	=> CONSTANTS::KANRI_SCREEN_04_1,
		 CONSTANTS::TM1_SUB2_	=> CONSTANTS::KANRI_SCREEN_04_2,
		 CONSTANTS::TM1_SUB3_	=> CONSTANTS::KANRI_SCREEN_04_3,
		 CONSTANTS::TM1_SUB4_	=> CONSTANTS::KANRI_SCREEN_04_4 ),
	CONSTANTS::TOP_MENU2_	=> ordered_hash_ref( CONSTANTS::TM2_SUB1_	=> CONSTANTS::KANRI_SCREEN_05_1 ),
	CONSTANTS::TOP_MENU3_	=> ordered_hash_ref( CONSTANTS::TM3_SUB1_	=> CONSTANTS::KANRI_SCREEN_06_1 ),
	CONSTANTS::TOP_MENU4_	=> ordered_hash_ref( CONSTANTS::TM4_SUB1_	=> CONSTANTS::KANRI_SCREEN_07_1,
		 CONSTANTS::TM4_SUB2_	=> CONSTANTS::KANRI_SCREEN_07_2,
		 CONSTANTS::TM4_SUB3_	=> CONSTANTS::KANRI_SCREEN_07_3,
		 CONSTANTS::TM4_SUB4_	=> CONSTANTS::KANRI_SCREEN_07_4,
		 CONSTANTS::TM4_SUB5_	=> CONSTANTS::KANRI_SCREEN_07_5 ),
	CONSTANTS::TOP_MENU5_	=> ordered_hash_ref( CONSTANTS::TM5_SUB1_	=> CONSTANTS::KANRI_SCREEN_08_1 );

my $cgi = new CGI;

sub PrintMenu {
	my $upperMenu = shift;
	print "<hr>\n";
	print $cgi->start_table( { -width	=> '100%',
								-border	=> 0 });
	print "\n";
	print '<tr align="center">'."\n";
	for my $mainMenuItem ( keys %menuHash ) {
		print "<th>";
		print $mainMenuItem;
		print "</th>\n";
	}
	print "</tr>\n";
	print $cgi->end_table();
	print "<hr>\n";
	print $cgi->start_table( { -width	=> '100%',
								-border	=> 0 });
	print '<tr align="center">'."\n";
	for my $subMenuItem ( keys %{ $menuHash{$upperMenu} } ) {
		print "<th>";
		print $cgi->a( {-href	=> $menuHash{$upperMenu}{$subMenuItem},
						-target	=> '_self' },
						"$subMenuItem" );
		print "</th>\n";
	}
	print "</tr>\n";
	print $cgi->end_table();
	print "\n";
	print "<hr>\n";
}

PrintMenu( CONSTANTS::TOP_MENU1_ );