<%$title%>

<%$title%>
% for my $page (@pages){ <% menu_link($page) %> % }	% $m->call_next();
Jim Mahoney (mahoney@marlboro.edu) November 2 2004

 -- Debugging --------------------------------------
  directory = <% $directory %>
  $ENV{PERL5LIB} = <% $ENV{PERL5LIB} %>
  @INC = <% "@INC" %>
 ---------------------------------------------------

%# %#==================================================== %# <%init> # Set the path where perl looks for packages to include # the directory where this autohandler is, if we don't already have it my $directory = $m->current_comp->source_dir; push @INC, $directory unless grep(/$directory/,@INC); # Load the RegistrarData.pm file at run time. # (We can't say "use RegistrarData" here; that happens at compile time.) require RegistrarData; # Save the database object in a package global (i.e. "our") where # the other HTML::Mason components can get to it. our $registrar = new RegistrarData; my $title = "Registrar Database Demo"; # 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 summary register 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}; }