Revision 71e82116
Von Sven Schöling vor mehr als 12 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 1124 | 1124 |
} |
| 1125 | 1125 |
|
| 1126 | 1126 |
sub audit_control {
|
| 1127 |
$main::lxdebug->enter_sub(); |
|
| 1128 |
|
|
| 1129 |
my $form = $main::form; |
|
| 1130 |
my %myconfig = %main::myconfig; |
|
| 1131 |
my $locale = $main::locale; |
|
| 1132 |
|
|
| 1133 |
$main::auth->assert('config');
|
|
| 1134 |
|
|
| 1135 |
$form->{title} = $locale->text('Audit Control');
|
|
| 1136 |
|
|
| 1137 |
AM->closedto(\%myconfig, \%$form); |
|
| 1138 |
|
|
| 1139 |
$form->header; |
|
| 1140 |
|
|
| 1141 |
print qq| |
|
| 1142 |
<body> |
|
| 1143 |
|
|
| 1144 |
<form method=post action=am.pl> |
|
| 1145 |
|
|
| 1146 |
<table width=100%> |
|
| 1147 |
<tr><th class=listtop>$form->{title}</th></tr>
|
|
| 1148 |
<tr height="5"></tr> |
|
| 1149 |
<tr> |
|
| 1150 |
<td> |
|
| 1151 |
<table> |
|
| 1152 |
<tr> |
|
| 1153 |
<th>| . $locale->text('Close Books up to') . qq|</th>
|
|
| 1154 |
<td><input name=closedto size=11 title="$myconfig{dateformat}" value=$form->{closedto}></td>
|
|
| 1155 |
</tr> |
|
| 1156 |
</table> |
|
| 1157 |
</td> |
|
| 1158 |
</tr> |
|
| 1159 |
</table> |
|
| 1160 |
|
|
| 1161 |
<hr size=3 noshade> |
|
| 1162 |
|
|
| 1163 |
<br> |
|
| 1164 |
<input type=hidden name=nextsub value=doclose> |
|
| 1127 |
$::lxdebug->enter_sub; |
|
| 1128 |
$::auth->assert('config');
|
|
| 1165 | 1129 |
|
| 1166 |
<input type=submit class=submit name=action value="| |
|
| 1167 |
. $locale->text('Continue') . qq|">
|
|
| 1130 |
$::form->{title} = $::locale->text('Audit Control');
|
|
| 1168 | 1131 |
|
| 1169 |
</form>
|
|
| 1132 |
AM->closedto(\%::myconfig, $::form);
|
|
| 1170 | 1133 |
|
| 1171 |
</body> |
|
| 1172 |
</html> |
|
| 1173 |
|; |
|
| 1134 |
$::form->header; |
|
| 1135 |
print $::form->parse_html_template('am/audit_control');
|
|
| 1174 | 1136 |
|
| 1175 |
$main::lxdebug->leave_sub();
|
|
| 1137 |
$::lxdebug->leave_sub;
|
|
| 1176 | 1138 |
} |
| 1177 | 1139 |
|
| 1178 | 1140 |
sub doclose {
|
Auch abrufbar als: Unified diff
am/audit_control auf template umgeschrieben.