Search Database

Title :
ISSN :

Search Results %while (my $id = shift @results){ % my $result = periodicals::journal->retrieve("$id"); % foreach ($result->issues){ % my $issue = $_; % if ($issue->status){ % } % else{ % } % } %}

id	Journal	Date	Expected Arrival	Issue	Volume	Supplements	Recieved
<% $issue->id %>	<% $issue->journal->title %>	<% $issue->date %>	<% $issue->arrival_date %>	<% $issue->issue %>	<% $issue->volume %>	<% $issue->supplements %>	Yes	No

<%args> $title => '' $ISSN => '' $action => '' @results => '' <%init> if ($action eq "New Search"){ $title = ''; $ISSN = ''; } elsif ($action eq "Search"){ my @title_results = periodicals::journal->search(title => "$title"); my @issn_results = periodicals::journal->search(issn => "$ISSN"); @results = (@title_results, @issn_results); }