Revision 71e82116
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
|
}
|
||
|
|
||
|
sub audit_control {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
|
||
|
$form->{title} = $locale->text('Audit Control');
|
||
|
|
||
|
AM->closedto(\%myconfig, \%$form);
|
||
|
|
||
|
$form->header;
|
||
|
|
||
|
print qq|
|
||
|
<body>
|
||
|
|
||
|
<form method=post action=am.pl>
|
||
|
|
||
|
<table width=100%>
|
||
|
<tr><th class=listtop>$form->{title}</th></tr>
|
||
|
<tr height="5"></tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<table>
|
||
|
<tr>
|
||
|
<th>| . $locale->text('Close Books up to') . qq|</th>
|
||
|
<td><input name=closedto size=11 title="$myconfig{dateformat}" value=$form->{closedto}></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<hr size=3 noshade>
|
||
|
|
||
|
<br>
|
||
|
<input type=hidden name=nextsub value=doclose>
|
||
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('config');
|
||
|
|
||
|
<input type=submit class=submit name=action value="|
|
||
|
. $locale->text('Continue') . qq|">
|
||
|
$::form->{title} = $::locale->text('Audit Control');
|
||
|
|
||
|
</form>
|
||
|
AM->closedto(\%::myconfig, $::form);
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
|
|;
|
||
|
$::form->header;
|
||
|
print $::form->parse_html_template('am/audit_control');
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
|
|
||
|
sub doclose {
|
||
| templates/webpages/am/audit_control.html | ||
|---|---|---|
|
[%- USE HTML %]
|
||
|
[%- USE LxERP %]
|
||
|
[%- USE T8 %]
|
||
|
[%- USE L %]
|
||
|
<body>
|
||
|
|
||
|
<h1>[% title | html %]</h1>
|
||
|
|
||
|
<form method=post action=am.pl>
|
||
|
|
||
|
<table>
|
||
|
<tr>
|
||
|
<th>[% 'Close Books up to' | $T8 %]</th>
|
||
|
<td>[% L.date_tag('closedto', closedto) %]</td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<hr size=3 noshade>
|
||
|
|
||
|
<br>
|
||
|
<input type=hidden name=nextsub value=doclose>
|
||
|
<input type=submit class=submit name=action value="[% 'Continue' | $T8 %]">
|
||
|
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
Auch abrufbar als: Unified diff
am/audit_control auf template umgeschrieben.