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

<span class="subtitle">Add an issue</span>
    <form>
      <table>
	<tr>
	  <td>Journal :</td>
	  <td><select name="journal">
	      <option value="<% $journal='' %>">Make Selection</option>
% while(my $select_journal = $journal_list->next) {
      <option value="<% $journal=$select_journal->id %>"><% $select_journal->title %></option>
% }
	  </select>
	  </td>
	</tr>
	<tr>
	  <td>Date :</td>
	  <td><input name="date" type="text" value="<%$date%>" /></td>
	</tr>
	<tr>
	  <td>Expected Arrival :<br>(YYYY-MM-DD)</td>
	  <td><input name="arrival_date" type="text" value="<%$arrival_date%>" /></td>
	</tr>
	<tr>
	  <td>Issue :</td>
	  <td><input name="issue" type="text" value="<%$issue%>" /></td>
	</tr>
	<tr>
	  <td>Volume :</td>
	  <td><input name="volume" type="text" value="<%$volume%>" /></td>
	</tr>
	<tr>
	  <td>Supplements :</td>
	  <td><input name="supplements" type="text" value="<%$supplements%>" /></td>
	</tr>
	<tr>
	  <td>Status :</td>
	  <td><select name="status">
	      <option value="<% $status='' %>">Make Selection</option>
	      <option value="<% $status='0' %>">Not Recieved</option>
	      <option value="<% $status='1' %>">Recieved</option>
	  </td>
	</tr>
      </table> 
      <input name="action" type="submit" value="Add this issue" />
    </form>
    <p />



<table border="1">
<thead><span class="heading">Issue Table</span></thead>
<tr>
  <th>id</th>
  <th>Journal</th>
  <th>Date</th>
  <th>Expected Arrival</th>
  <th>Issue</th>
  <th>Volume</th>
  <th>Supplements</th>
  <th>Recieved</th>
</tr>
% while(my $issue = $issue_list->next) {
  <tr>
    <td><% $issue->id %></td>
    <td><% $issue->journal->title %></td>
    <td><% $issue->date %></td>
    <td><% $issue->arrival_date %></td>
    <td><% $issue->issue %></td>
    <td><% $issue->volume %></td>
    <td><% $issue->supplements %></td>
%  if ($issue->status){
    <td>Yes</td>
%  }
%  else{
    <td>No</td>
  </tr>
%  }
% }
</table>


<%args>
$action       => ''
$journal      => ''
$date         => ''
$arrival_date => ''
$issue        => ''
$volume       => ''
$supplements  => ''
$status       => ''
</%args>


<%init>

my $message = '';

if ($action =~ /issue/){
  if (not $journal or not $date or not $arrival_date or not $issue or not $volume or not $supplements or $status eq '' ){
     $message = "Oops - please fill in all fields.";
   }
   elsif ($arrival_date !~ /^\d{4}-\d{2}-\d{2}$/){
     $message = "Oops - please enter estimated arrival date using YYYY-MM-DD format.";
   }
   else {
    periodicals::issue->find_or_create({journal           => $journal,
                                        date              => $date,
                                        arrival_date      => $arrival_date,
                                        issue             => $issue,
                                        volume            => $volume,
                                        supplements       => $supplements,
                                        status            => $status,
                                         });

    $message = "OK, '$journal, issue $issue, volume $volume' has been added to the database.";
    $journal      = '';
    $date         = '';
    $arrival_date = '';
    $issue        = '';
    $volume       = '';
    $supplements  = '';
    $status       = '';
   }
 }


my $journal_list = periodicals::journal->retrieve_all;
my $issue_list   = periodicals::issue->retrieve_all;

</%init>