# $Id$
# Common functions for the HotelGate project
# Copyright (C) 2005 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; exactly version 2 of June 1991 is required
# 
# 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.
# 
# 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA


package product::hotelgate::Lib;
require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
our $CVS_ID=q$Id$;
use strict;
use warnings;

use My::Web;
use Carp qw(cluck confess);

use Exporter;
our @EXPORT=qw();
Wrequire 'product::Lib';
our @ISA=qw(product::Lib Exporter);


sub menu($;%)
{
my($class,%args)=@_;

	my $r="";
	$r.='<table border="0" class="margin-center"><tr>'."\n";
		$r.='<td>';
			$r.='<table border="1" style="border-collapse: collapse; border-style: solid; border-width: 1px;">'."\n";
				$r.='<tr>'."\n";
					$r.='<td style="padding: 5px; font-weight: bold;">'."\n";
						my $ListItem=product::Lib->name_to_hashref($W->{"product_name"});
						$r.=product::Lib->title($ListItem);
					$r.='</td>'."\n";
				$r.='</tr>'."\n";
			$r.='</table>';
		$r.='</td>';
		$r.='<td>';
			$r.='<table border="1" style="border-collapse: collapse; border-style: solid;" class="margin-center">'."\n";
				$r.='<tr>'."\n";
					my @sections=(
							"Index"=>"Overview",
							"Case"=>"Deployment",
							"Screenshot"=>"Screenshots",
							"Spec"=>"Specification",
							"Order"=>"Order",
							);
					while (@sections) {
						my $section_path=shift @sections;
						my $section_name=shift @sections;
						my $chosen=($My::Web::W->{"__PACKAGE__"} eq "product::hotelgate::".$section_path);
						$r.='<td style="padding: 5px;">';
							$r.=(($chosen || "") ? "<b>$section_name</b>"
									: My::Web::a_href("./".($section_path eq "Index" ? "" : $section_path.".pm"),$section_name,
											"attr"=>'style="text-decoration: inherit; /* revoke underline */;"'));
						$r.="</td>\n";
						}
				$r.='</tr>'."\n";
			$r.='</table>'."\n";
		$r.='</td>'."\n";
	$r.='</tr></table>'."\n";
	if (!$args{"novskip"}) {
		Wrequire 'WebConfig';
		$r.=WebConfig->vskip_hr();
		}
	return $r;
}

sub init($%)
{
my($class,%args)=@_;

	$args{"__PACKAGE__"}||=caller();
	my $W=$class->SUPER::init(
			%args,
			"novskip"=>1,
			);
	print $class->menu(%args);
	return $W;
}

1;