Version 3 of a demo database application.<p />

<small>
<pre>
 ---------------------------------
 Warning:

 Having several versions of a perl package with
 the same name being included by multiple people
 in the same persistent perl environment is a bad idea - 
 strange things start to happen.

 If/when you copy this code to your own directory
 to play with, please change the RegistrarDB.pm name
 to something else.

 I've also seen some apparently weird behavior 
 when the persistent perl doesn't load the most recent
 version of an edited .pm file; in some case, stopping
 and re-starting Apache has helped.

  - Jim M.

 ---------------------------------
</pre>
</small>

 The pieces include 
 <ul>

  <li><span class="bold-blue">A SQL database</span>
    <ul>
      <li>Here's the <a href="populate_tables.sql">populate_tables.sql</a> SQL code that defines it.</li>
      <li>Here's the <a href="init_db">init_db</a> script that invokes it.</li>
      <li>Click <a href="?action=initdb">here</a> to run initdb 
          and initialize the database. 
         <% $initdb_message %>  
      </li>
    </ul>
  </li><p />

  <li class="bold-blue">HTML::Mason</li>
    <ul>
      <li><a href="autohandler_html?html">autohandler</a> source</li>
      <li><a href="dhandler_html?html">dhandler</a> source</li>
      <li><a href="home.html_html">home.html</a> source</li>
      <li><a href="styles.css">styles.css</a> style sheet</li>
      <li><a href="add.html_html">add.html</a> source</li>
      <li><a href="summary.html_html">summary.html</a> source</li>
      <li><a href="register.html_html">register.html</a> source</li>
      <li><a href="search.html_html">search.html</a> source</li>
    </ul>
  </li><p />

  <li class="bold-blue">Class::DBI</li>
    <ul>
      <li><a href="RegistrarDB.pm_html">RegistrarDB.pm</a> source</li>
      <li><a href="test.pl_html">test.pl</a> source</li>
    </ul>
  </li><p />

 </ul>

%# =========================================================================
%#
<%args>
 $action => ''
</%args> 
%#
<%init>
 my $initdb_message = '';

 if ( $action =~ /initdb/ ){
   chdir $m->base_comp->source_dir;  # make sure we're in this directory
   `./init_db`;                      # run the database initialization script.
   $initdb_message = qq{<table><tr><td>
			<hr noshade size=1 /><font color="darkred">
			OK, the database is now initialized.
			</font><hr noshade size=1/>
		        </td></tr></table>};
 }

</%init>