+require "bin/mozilla/admin_groups.pl";
+require "bin/mozilla/admin_printer.pl";
+
+use strict;
+
+# parserhappy(R):
+
+# $locale->text('periodic')
+# $locale->text('income')
+# $locale->text('perpetual')
+# $locale->text('balance')
+
+our $cgi;
+our $form;
+our $locale;
+our $auth;
+
+my @valid_dateformats = qw(mm/dd/yy dd/mm/yy dd.mm.yy yyyy-mm-dd);
+my @valid_numberformats = ('1,000.00', '1000.00', '1.000,00', '1000,00');
+my @all_stylesheets = qw(lx-office-erp.css Mobile.css kivitendo.css);
+my @all_menustyles = (
+ { id => 'old', title => $::locale->text('Old (on the side)') },
+ { id => 'v3', title => $::locale->text('Top (CSS)') },
+ { id => 'neu', title => $::locale->text('Top (Javascript)') },
+);
+
+sub run {
+ $::lxdebug->enter_sub;
+ my $session_result = shift;
+
+ $form = $::form;
+ $locale = $::locale;
+ $auth = $::auth;
+
+ $::request->{layout} = SL::Layout::Dispatcher->new(style => 'admin');
+ $::request->{layout}->use_stylesheet("lx-office-erp.css");
+ $form->{favicon} = "favicon.ico";
+
+ if ($form->{action}) {
+ if ($auth->authenticate_root($form->{'{AUTH}admin_password'}) != $auth->OK()) {
+ $auth->punish_wrong_login;
+ $form->{error} = $locale->text('Incorrect Password!');
+ $auth->delete_session_value('admin_password');
+ adminlogin();
+ } else {
+ if ($auth->session_tables_present()) {
+ delete $::form->{'{AUTH}admin_password'};
+ _apply_dbupgrade_scripts();
+ }