% if ($message) {
 <table><tr><td class="message">
   <% $message %>
 </td></tr></table>
 <p />
% }

<span class="subtitle">Add a person</span>
    <form>
      <table>
	<tr>
	  <td>name :</td> 
	  <td><input name="name" type="text" value="<%$name%>" /></td>
	</tr>
	<tr>
	  <td>phone :</td> 
	  <td><input name="phone" type="text" value="<%$phone%>" /></td>
	</tr>
      </table> 
      <input name="action" type="submit" value="Add this person" />
    </form>
    <p />

<span class="subtitle">Add a course</span><br />
    <form>
      <table>
	<tr>
	  <td>title :</td>
	  <td><input name="title" type="text" value="<%$title%>" /></td>
	</tr>
	  <td>time :</td>
	  <td><input name="time" type="text" value="<%$time%>" /></td>
	</tr>
	  <td>term :</td>
	  <td><input name="term" type="text" value="<%$term%>" /></td>
	</tr>
	  <td>place :</td>
	  <td><input name="place" type="text" value="<%$place%>" /></td>
	</tr>
	  <td>credits :</td>
	  <td><input name="credits" type="text" value="<%$credits%>" /></td>
	</tr>
      </table>
      <input name="action" type="submit" value="Add this course" />
    </form>



%#
%# ========================================================================
%#
<%args>
 $action  => ''
 $name    => ''
 $phone   => ''
 $title   => ''
 $time    => ''
 $term    => ''
 $place   => ''
 $credits => ''
</%args>
%#
<%init>
 our $dggRegistrar;
 my $message = '';

 if ($action =~ /person/){
   if (not $name or not $phone){
     $message = "Oops - please give both a name and phone number.";
   }
   elsif ($name !~ /^[\w -.]*$/){
     $message = "Oops - please use only alpha-numerics, spaces, and underbars for name.";
   }
   elsif ($phone !~ /^[\d -]*$/){
     $message = "Oops - please use only numbers, spaces, and hyphens for phone.";
   }
   else {
     $dggRegistrar->addPerson( name => $name, phone => $phone );
     if ($dggRegistrar->getError){
       $message = "Oops - database error: '" . $dggRegistrar->error . "'\n";
     }
     else {
       $message = "OK, '$name' has been added to the database.";
       $name = '';
       $phone = '';
     }
   }
 }
 elsif ($action =~ /course/){
    if (not $title or not $time or not $term or not $place or not $credits){
      $message = "Oops - please include all course information.";
    }
    else {
      $dggRegistrar->addCourse( title => $title, time => $time, term => $term, place => $place, credits => $credits );
      if ($dggRegistrar->getError){
        $message = "Oops - database error: '" . $dggRegistrar->error . "'\n";
      }
      else {
        $message = "OK, '$title' has been added to the database.";
        $title = '';
        $time = '';
        $term = '';
        $place = '';
        $credits = '';
      }
    }
 }

</%init>