The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

navbar

This is a navigation bar to go across the page. (Or down the side, or whatever you want to do with it.) It displays all the tables which are accessible, with a link to the list page for each one.

</%doc>

<div id="MPNavContainer"> <ul id="MPNav"> % foreach my $table ( @{ $config->{ display_tables } } ) { % my $css_active = ' id="Active"' if $table eq $request->{ table }; <li<% $css_active %>><& mplink, table => $table, base => $base, config => $config, command => 'list', label => $table, &></li> % } </ul> <br style="clear: both" /> </div>

<%args> $config $base $request </%args>