<%$title%>
% for my $page (@pages){ <% menu_link($page) %> % }	% $m->call_next();
Daniel Garcia-Galili (dgg@marlboro.edu) December 2 2004

%# %#==================================================== %# <%init> # Set the path where PERL looks for packages to include the # directory where this autohandler is, if it's not already there. my $directory = $m->current_comp->source_dir; push @INC, $directory unless grep(/$directory/,@INC); my $title = "Periodicals_DB v0.02"; require periodicals::periodicals; require periodicals::journal; require periodicals::frequency; require periodicals::publisher; require periodicals::vendor; require periodicals::issue; # These are the pages that show up in the menu on the left of the screen. # The URL for each is its name with .html appended. my @pages = qw( home add_entries edit_entries show_tables manage_issues search ); # Given one of the entries in that @page list, # return the HTML string that links to that page, # or a string that shows we're already visiting that page. sub menu_link { my ($page) = @_; return $m->base_comp->name =~ /$page/ ? qq{$page} : qq{$page}; }