The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% 
    title = 'Article List' ;

    crumb2_name = 'Article' ;
    crumb2_href = '/cgi-bin/pages.cgi?act=arts-admin' ;
    crumb1_name = 'List' ;
%]

<p>Click on an article's 'Quick Name' to edit or create additional content.</p>

<form method="POST" name="SEARCH" id="SEARCH" action="[% cgipath %]/pages.cgi">
<input type="hidden" name="act" value="arts-admin" />
<p>Search by Title: <input type="text" name="searchname" />
[% ddpublish %] <input type="submit" value="GO" />
<p>
  <a href="[% cgipath %]/pages.cgi?act=arts-admin">view all</a>
| <a href="[% cgipath %]/pages.cgi?act=arts-add">create a new article</a></p>
</form>

<form method="post" action="[% cgipath %]/pages.cgi">
<input type="hidden" name="act" value="arts-admin" />

<table class="blocker" summary="Article List">
<tr>
    <th>Quick Name</th>
    <th>Title</th>
    <th>Status</th>
    <th>Select</th>
</tr>

[% IF data %]
[% FOREACH item = data %]

<tr>
    <td><a href="[% cgipath %]/pages.cgi?act=arts-edit&amp;articleid=[% item.articleid %]">[% item.quickname %]</a></td>
    <td>[% item.title %]</td>
    <td>[% item.publishstate %]</td>
    <td><input type="checkbox" name="LISTED" value="[% item.articleid %]" /></td>
</tr>

[% END %]
[% ELSE %]
<tr><td colspan="5" align="center">No articles listed.</td></tr>
[% END %]

</table>

<p>
<input type="hidden" name="recordid" value='' />
<input type="hidden" name='doaction' value='' />
<input type="button" value='Promote' onClick="doSubmit('Promote',0)" />
<input type="button" value='Copy'    onClick="doOnlyOne('Copy')" />
<input type="button" value='Delete'  onClick="doSubmit('Delete',0)" /></p>
</form>