}
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 {
--- /dev/null
+[%- 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>