{ source => "intro.png", href => "/", next => 'create', }, create => { source => "create.png", href => "/create.bml", prev => 'about', next => 'profile', }, profile => { source => "profile.png", href => "/editinfo.bml", prev => 'create', next => 'update', }, update => { source => "update.png", href => "/update.bml", prev => 'profile', next => 'modify', }, modify => { source => "modify.png", href => "/modify.bml", prev => 'update', next => 'friends', }, friends => { source => "friends.jpg", href => "/friends/", prev => 'modify', next => 'comms', }, comms => { source => "comms.jpg", href => "/community/", prev => 'friends', next => 'clients', }, clients => { source => "clients.png", href => "/download/", prev => 'comms', next => 'support', }, support => { source => "support.png", href => "/support/", prev => 'clients', next => 'sitemap', }, sitemap => { source => "sitemap.png", href => "/site/", prev => 'support', }, }; my $display = sub { my ($page, $code) = @_; $ret .= ''; $ret .= "\n"; if ($page->{'prev'}) { $ret .= ""; if ($page->{'next'}) { $ret .= "
"; $ret .= ""; $ret .= "
{'prev'}\">"; $ret .= $ML{'.nav.prev'} . ""; } $ret .= "" . $ML{".$code.title"} . "{'next'}\">"; $ret .= $ML{'.nav.next'} . ""; } $ret .= "
" . $ML{".$code.caption"}; $ret .= "
"; return $ret; }; unless (defined $FORM{'page'} and exists $tour->{$FORM{'page'}}) { $body = $display->($tour->{'intro'}, "intro"); $title = BML::ml('.title', { 'title' => $ML{'.intro.title'} }); } else { $body = $display->($tour->{$FORM{'page'}}, $FORM{'page'}); $title = BML::ml('.title', { 'title' => $ML{".$FORM{'page'}.title"} }); } return; _code?> body=> page?>