% 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 $message = '';

 if ($action =~ /person/){
   if (not $name or not $phone){
     $message = "Oops - please give both a name and phone number.";
   }
   else {
     my $newPerson = Person->create({ name=>$name, phone=>$phone });
     if (not $newPerson){
       $message = "Oops - an error occured which I was too lazy to document. \n";
     }
     else {
       $message = "OK, '$name' has been added to the database.";
       $name = '';
       $phone = '';
     }
   }
 }

</%init>