%# Too much of everything is just enough.
%# 		-- Bob Wier

<form id="thisform" name="thisform" method="get" style="margin: 0">
<input type="hidden" name="Action" value="Save">
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="poptable" bgcolor="#87C2C2"><tr height="22"><td class="RGTop" colspan="2">

&nbsp;

% foreach my $key (qw(Name Description)) {
    <% loc($key) %>
    <input <% $Disabled %>
	name="report<% $key %>"
	value="<% $session{"report$key"} %>"
	style="width: 100px"
    >
    <& /RG/Elements/VerticalBar &>
% }

<&|/l&>Category</&>
<select <% $Disabled %> name="reportCategory">
% my $category = $session{reportCategory};
% foreach my $key (@{$DB->Categories||[]}) {
<option <% ($category eq $key) ? 'selected' : '' %> value="<% $key %>"><% $key %></option>
% }
</select>

<& /RG/Elements/VerticalBar &>

<&|/l&>Author</&>
<input disabled value="<% $session{"reportAuthor"} %>" style="width: 60px">

<& /RG/Elements/VerticalBar &>

<&|/l&>Lock</&>
<select <% $Disabled %> name="reportDisabled">
    <option value='0' <%
	$session{reportDisabled} ? '' : 'selected'
    %>><&|/l&>Unlocked</&></option>
    <option value='1' <%
	$session{reportDisabled} ? 'selected' : ''
    %>><&|/l&>Locked</&></option>
</select>

<& /RG/Elements/VerticalBar &>

<&|/l&>Data Source</&>
<select <% $Disabled %> name="reportReportSource">
% while (my $obj = $ReportSources->Next) {
    <option value="<% $obj->Id %>" <%
	($session{reportReportSource} eq $obj->Id) ? 'selected' : ''
    %>><% $obj->Name %></option>
% }
</select>

</td></tr></table>
</form>

<%INIT>
our $DB;
my $ReportSources = RTx::ReportSources->new($session{CurrentUser});
$ReportSources->UnLimit;
</%INIT>
<%ARGS>
$Id => 0
$Disabled => ''
</%ARGS>
