Globale Objekte nicht lokalisieren

[kivitendo-erp.git] / bin / mozilla / am.pl
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl

index 0672e7c..7549bc1 100644 (file)
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -1066,7 +1066,7 @@ sub config {
    }
  
    $form->{STYLESHEETS} = [];
-  foreach my $item (qw(lx-office-erp.css Win2000.css Mobile.css)) {
+  foreach my $item (qw(lx-office-erp.css Win2000.css Mobile.css kivitendo.css)) {
      push @{ $form->{STYLESHEETS} }, {
        'name'     => $item,
        'value'    => $item,
@@ -1124,55 +1124,17 @@ sub save_preferences {
  }
  
  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 {