<%args> $pua_id $current_page => '' <%init> print "

Menu

\n"; print "\n"; my %pages = ('pua_details.html' => 'Manage my contact details', 'pua_rules.html' => 'Manage contact rules', 'pua_contacts.html' => 'Manage contacts'); foreach my $k (keys %pages) { my $class = $k eq $current_page ? ' class="active"' : ''; print " \n"; print " $pages{$k}\n"; print " \n"; } print "
\n";