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

<span class="subtitle">Add a journal</span>
    <form>
      <table>
	<tr>
	  <td>ISSN :</td> 
	  <td><input name="ISSN" type="text" value="<%$ISSN%>" /></td>
	</tr>
	<tr>
	  <td>Title :</td> 
	  <td><input name="title" type="text" value="<%$title%>" /></td>
	</tr>
	<tr>
	  <td>Frequency :</td>
	  <td><select name="journal_frequency">
	      <option value="<% $journal_frequency='' %>">Make Selection</option>
% while(my $frequency = $frequency_list->next) {
      <option value="<% $journal_frequency=$frequency->id %>"><% $frequency->frequency %></option>
% }
	  </select>
	  </td>
	</tr>
	<tr>
	  <td>Subject :</td>
	  <td><input name="subject" type="text" value="<%$subject%>" /></td>
	</tr>
	<tr>
	  <td>Publisher :</td>
	  <td><select name="journal_publisher">
	      <option value="<% $journal_publisher='' %>">Make Selection</option>
% while(my $publisher = $publisher_list->next) {
      <option value="<% $journal_publisher=$publisher->id %>"><% $publisher->name %></option>
% }
	  </select>
	  </td>
	</tr>
	<tr>
	  <td>Vendor :</td>
	  <td><select name="journal_vendor">
	      <option value="<% $journal_vendor='' %>">Make Selection</option>
% while(my $vendor = $vendor_list->next) {
      <option value="<% $journal_vendor=$vendor->id %>"><% $vendor->name %></option>
% }
	  </select>
	  </td>
	</tr>
	<tr>
	  <td>Cost :</td>
	  <td><input name="cost" type="text" value="<%$cost%>" /></td>
	</tr>
	<tr>
	  <td>Bought :<br>(YYYY-MM-DD)</td>
	  <td><input name="bought" type="text" value="<%$bought%>" /></td>
	</tr>
	<tr>
	  <td>Renewed :<br>(YYYY-MM-DD)</td>
	  <td><input name="renewed" type="text" value="<%$renewed%>" /></td>
	</tr>
	<tr>
	  <td>Subscription Ends :<br>(YYYY-MM-DD)</td>
	  <td><input name="subscription_ends" type="text" value="<%$subscription_ends%>" /></td>
	</tr>
	<tr>
	  <td>Cancellable :</td>
	  <td><select name="cancellable">
	      <option value="<% $cancellable='' %>">Make Selection</option>
	      <option value="<% $cancellable='No' %>">No</option>
	      <option value="<% $cancellable='Yes' %>">Yes</option>
	  </td>
	</tr>
	<tr>
	  <td>Notes :</td>
	  <td><input name="journal_notes" type="text" value="<%$journal_notes%>" /></td>
	</tr>
      </table> 
      <input name="action" type="submit" value="Add this journal" />
    </form>
    <p />

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

<span class="subtitle">Add a publisher</span>
    <form>
      <table>
	<tr>
	  <td>Publisher ID:</td>
	  <td><input name="publisher_id" type="text" value="<%$publisher_id%>" /></td>
	</tr>
	<tr>
	  <td>Name:</td>
	  <td><input name="publisher_name" type="text" value="<%$publisher_name%>" /></td>
	</tr>
	<tr>
	  <td>Address 1:</td>
	  <td><input name="address1" type="text" value="<%$address1%>" /></td>
	</tr>
	<tr>
	  <td>Address 2:</td>
	  <td><input name="address2" type="text" value="<%$address2%>" /></td>
	</tr>
	<tr>
	  <td>Notes:</td>
	  <td><input name="publisher_notes" type="text" value="<%$publisher_notes%>" /></td>
	</tr>
      </table>
      <input name="action" type="submit" value="Add this publisher" />
    </form>

<span class="subtitle">Add a vendor</span>
    <form>
      <table>
	<tr>
	  <td>Vendor ID:</td>
	  <td><input name="vendor_id" type="text" value="<%$vendor_id%>" /></td>
	</tr>
	<tr>
	  <td>Name:</td>
	  <td><input name="vendor_name" type="text" value="<%$vendor_name%>" /></td>
	</tr>
	<tr>
	  <td>Notes:</td>
	  <td><input name="vendor_notes" type="text" value="<%$vendor_notes%>" /></td>
	</tr>
      </table>
      <input name="action" type="submit" value="Add this vendor" />
    </form>

%#
%# ========================================================================
%#
<%args>
 $action            => ''
 $ISSN              => ''
 $title             => ''
 $journal_frequency => ''
 $subject           => ''
 $journal_publisher => ''
 $journal_vendor    => ''
 $cost              => ''
 $bought            => ''
 $renewed           => ''
 $subscription_ends => ''
 $cancellable       => ''
 $journal_notes     => ''
 $new_frequency     => ''
 $publisher_id      => ''
 $publisher_name    => ''
 $address1          => ''
 $address2          => ''
 $publisher_notes   => ''
 $vendor_id         => ''
 $vendor_name       => ''
 $vendor_notes      => ''
</%args>

<%init>

 my $message = '';

 if ($action =~ /journal/){
   if (not $ISSN or not $title or not $journal_frequency or not $subject or not $journal_publisher or not $journal_vendor or not $cost or not $bought or not $renewed or not $subscription_ends or not $cancellable){
     $message = "Oops - please fill in all fields for Journal.";
   }
   else {
    periodicals::journal->find_or_create({issn              => $ISSN,
                                          title             => $title,
                                          frequency         => $journal_frequency,
                                          subject           => $subject,
                                          publisher         => $journal_publisher,
                                          vendor            => $journal_vendor,
                                          cost              => $cost,
                                          bought            => $bought,
                                          renewed           => $renewed,
                                          subscription_ends => $subscription_ends,
                                          cancellable       => $cancellable,
                                          notes             => $journal_notes,
                                         });

    $message = "OK, '$title' has been added to the database.";
    $ISSN              = '';
    $title             = '';
    $journal_frequency = '';
    $subject           = '';
    $journal_publisher = '';
    $journal_vendor    = '';
    $cost              = '';
    $bought            = '';
    $renewed           = '';
    $subscription_ends = '';
    $cancellable       = '';
    $journal_notes     = '';
   }
 }

 if ($action =~ /frequency/){
   if (not $new_frequency){
      $message = "Oops - please provide a frequency.";
    }
   else {
     periodicals::frequency->find_or_create({frequency => $new_frequency});

     $message = "OK, '$new_frequency' has been added to the database.";
     $new_frequency = '';
   }
 }

 if ($action =~ /publisher/){
   if (not $publisher_id or not $publisher_name or not $address1 or not $address2){
     $message = "Oops - please provide an ID, Name, and Address for Publisher.";
   }
   else {
    periodicals::publisher->find_or_create({publisher_id => $publisher_id,
                                            name         => $publisher_name,
                                            address1     => $address1,
                                            address2     => $address2,
                                            notes        => $publisher_notes,
                                           });

    $message = "OK, '$publisher_name' has been added to the database.";
    $publisher_id     = '';
    $publisher_name   = '';
    $address1         = '';
    $address2         = '';
    $publisher_notes = '';
   }
 }

 if ($action =~ /vendor/){
   if (not $vendor_id or not $vendor_name){
     $message = "Oops - please provide an ID and Name for Vendor.";
   }
   else {
    periodicals::vendor->find_or_create({vendor_id => $vendor_id,
                                            name   => $vendor_name,
                                            notes  => $vendor_notes,
                                           });

    $message = "OK, '$vendor_name' has been added to the database.";
    $vendor_id     = '';
    $vendor_name   = '';
    $vendor_notes = '';
   }
 }

my $journal_list   = periodicals::journal->retrieve_all;
my $frequency_list = periodicals::frequency->retrieve_all;
my $publisher_list = periodicals::publisher->retrieve_all;
my $vendor_list    = periodicals::vendor->retrieve_all;

</%init>