The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<form action="index.html" method="POST" enctype="multipart/form-data">
Query:
<textarea name="query" rows="5" cols="80"><% $query %></textarea><br />

Report type: <select name="type">
<option value="ActivityDetail" <% $ARGS{path} =~ /ActivityDetail/ ? 'selected' : '' %>>Activity detail</option>
<option value="ActivitySummary" <% $ARGS{path} =~ /ActivitySummary/ ? 'selected' : '' %>>Activity summary</option>
<option value="ResolutionComments" <% $ARGS{path} =~ /ResolutionComments/ ? 'selected' : '' %>>Resolution comments</option>
<option value="ResolutionStatistics" <% $ARGS{path} =~ /ResolutionStatistics/ ? 'selected' : '' %>>Resolution statistics</option>
</select><br />

Start date: <input type="text" name="start" value="<% $start %>" /><br />
End date:   <input type="text" name="end"   value="<% $end   %>" /><br />
<& /Elements/Submit, Label => loc('Report') &>
</form>
<%args>
$type  => undef
$start => undef
$end   => undef
$query => undef
</%args>
<%init>
</%init>