Koordination der Seitengenerierung

lib/VShop/Page.pm

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; }