use SL::Auth;
use SL::Form;
+use SL::Iconv;
use SL::Mailer;
use SL::User;
use SL::Common;
require "bin/mozilla/common.pl";
require "bin/mozilla/admin_groups.pl";
+require "bin/mozilla/admin_printer.pl";
use strict;
$form->{error_message} = $locale->text('Incorrect Password!');
adminlogin();
} else {
- $auth->create_or_refresh_session() if ($auth->session_tables_present());
+ if ($auth->session_tables_present()) {
+ $::auth->set_session_value('rpw', $::form->{rpw});
+ $::auth->create_or_refresh_session();
+ _apply_dbupgrade_scripts();
+ }
+
call_sub($locale->findsub($form->{action}));
}
- } elsif ($auth->authenticate_root($form->{rpw}, 0) == $auth->OK()) {
-
- $auth->create_or_refresh_session() if ($auth->session_tables_present());
-
- login();
} else {
# if there are no drivers bail out
$form->error($locale->text('No Database Drivers available!'))
$form->{title} = "Lx-Office ERP " . $locale->text('Administration') . " / " . $locale->text('Add User');
+# Note: Menu Style 'v3' is not compatible to all browsers!
+# "menustyle" => "old" sets the HTML Menu to default.
my $myconfig = {
"vclimit" => 200,
"countrycode" => "de",
"numberformat" => "1.000,00",
"dateformat" => "dd.mm.yy",
"stylesheet" => "lx-office-erp.css",
- "menustyle" => "v3",
+ "menustyle" => "old",
+ dbport => $::auth->{DB_config}->{port} || 5432,
+ dbuser => $::auth->{DB_config}->{user} || 'lxoffice',
+ dbhost => $::auth->{DB_config}->{host} || 'localhost',
};
+
edit_user_form($myconfig);
}
closedir TEMPLATEDIR;
@alldir = grep !/\.(html|tex|sty|odt|xml|txb)$/, @alldir;
- @alldir = grep !/^(webpages|cache|\.svn)$/, @alldir;
+ @alldir = grep !/^(webpages|\.svn)$/, @alldir;
@allhtml = reverse grep !/Default/, @allhtml;
push @allhtml, 'Default';
my $form = $main::form;
my $locale = $main::locale;
- $form->{dbport} = '5432';
- $form->{dbuser} = 'postgres';
+ $form->{dbport} = $::auth->{DB_config}->{port} || 5432;
+ $form->{dbuser} = $::auth->{DB_config}->{user} || 'lxoffice';
$form->{dbdefault} = 'template1';
- $form->{dbhost} = 'localhost';
+ $form->{dbhost} = $::auth->{DB_config}->{host} || 'localhost';
$form->{title} = "Lx-Office ERP / " . $locale->text('Database Administration');
map { $form->{$_} = $form->{"${_}_${i}"} } qw(dbname dbdriver dbhost dbport dbuser dbpasswd);
- my $controls = parse_dbupdate_controls($form, $form->{dbdriver});
-
print $form->parse_html_template("admin/dbupgrade_header");
$form->{dbupdate} = $form->{dbname};
$form->{$form->{dbname}} = 1;
User->dbupdate($form);
- User->dbupdate2($form, $controls);
+ User->dbupdate2($form, SL::DBUpgrade2->new(form => $form, dbdriver => $form->{dbdriver})->parse_dbupdate_controls);
print $form->parse_html_template("admin/dbupgrade_footer");
}
$form->error($locale->text('No action defined.'));
}
+sub _apply_dbupgrade_scripts {
+ ::end_of_request() if SL::DBUpgrade2->new(form => $::form, dbdriver => 'Pg', auth => 1)->apply_admin_dbupgrade_scripts(1);
+}
+
1;