% 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 />
 Not done yet.



%#
%# ========================================================================
%#
<%args>
 $action => ''
 $name   => ''
 $phone  => ''
</%args>
%#
<%init>
 #my $registrar = new RegistrarData;
 our $registrar;
 my $message = '';

 if ($action =~ /person/){
   if (not $name or not $phone){
     $message = "Oops - please give both a name and phone number.";
   }
   else {
     $registrar->addPerson( name => $name, phone => $phone );
     if ($registrar->getError){
       $message = "Oops - database error: '" . $registrar->error . "'\n";
     }
     else {
       $message = "OK, '$name' has been added to the database.";
       $name = '';
       $phone = '';
     }
   }
 }

</%init>