./index.cgi

#! /usr/local/bin/perl -w

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use DBI;
print header;
require "common.pl";

$head = load_template("head");
$head = str_replace('%%BODY%%', ' onLoad="startScroll();"', $head);
print $head;

$body = load_template("pages/home");
$body = str_replace("%%BOOKING%%", load_template("booking/small_booking"), $body);
$body = str_replace('%%LOGIN%%', load_template('manage/small_login'), $body);
print $body;

print load_template("foot");