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

 (Includes bug fix for stale dbh->{sth} handle. - Jim M, 10/10)<p />

 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>
	Click <a href="?action=initdb">here</a> to 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="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">Perl::DBI Objects</li>
    <ul>
      <li><a href="RegistrarData.pm_html">RegistrarData.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>