sub gen {
my ($package, $cgi, $out) = @_;
eval {
my $session = new VShop::Session($cgi);
foreach my $request (VShop::Requests->all) {
$request->reg($session->state);
}
my $request = new VShop::Requests
$cgi->param('request');
my $body = new VShop::Element::Box(
mode => 'vertical', framed => 1);
my $msg = $request->process($session);
$body->add($msg) if defined $msg;
unless ($request->takeover) {
$request = new VShop::Requests; # returns default
}
my $main = $request->main($session);
$body->add($main);
my $nav = new VShop::Element::Box(
mode => 'vertical', framed => 1);
foreach my $request (VShop::Requests->all) {
my $box = $request->nav($session);
$nav->add($box) if defined $box;
}
|