(
'scalar --get_set_init' => [ qw(client user group printer db_cfg is_locked
all_dateformats all_numberformats all_countrycodes all_stylesheets all_menustyles all_clients all_groups all_users all_rights all_printers
- all_dbsources all_unused_dbsources all_accounting_methods all_inventory_systems all_profit_determinations all_charts) ],
+ all_dbsources all_used_dbsources all_accounting_methods all_inventory_systems all_profit_determinations all_charts) ],
);
__PACKAGE__->run_before(\&setup_layout);
$dbh->disconnect if $dbh;
- $self->render('admin/test_db_connection',
+ $self->render('admin/test_db_connection', { layout => 0 },
title => t8('Database Connection Test'),
ok => $ok,
error => $error);
$::form->{dbpasswd} ||= $::auth->{DB_config}->{password};
$::form->{dbdefault} ||= 'template1';
- $::request->layout->focus('#dbhost');
-
$self->render('admin/dbadmin', title => t8('Database Administration'));
}
sub init_all_groups { SL::DB::Manager::AuthGroup ->get_all_sorted }
sub init_all_printers { SL::DB::Manager::Printer ->get_all_sorted }
sub init_all_dateformats { [ qw(mm/dd/yy dd/mm/yy dd.mm.yy yyyy-mm-dd) ] }
-sub init_all_numberformats { [ qw(1,000.00 1000.00 1.000,00 1000,00) ] }
+sub init_all_numberformats { [ '1,000.00', '1000.00', '1.000,00', '1000,00' ] }
sub init_all_stylesheets { [ qw(lx-office-erp.css Mobile.css kivitendo.css) ] }
sub init_all_dbsources { [ sort User->dbsources($::form) ] }
-sub init_all_unused_dbsources { [ sort User->dbsources_unused($::form) ] }
+sub init_all_used_dbsources { { map { (join(':', $_->dbhost || 'localhost', $_->dbport || 5432, $_->dbname) => $_->name) } @{ $_[0]->all_clients } } }
sub init_all_accounting_methods { [ { id => 'accrual', name => t8('Accrual accounting') }, { id => 'cash', name => t8('Cash accounting') } ] }
sub init_all_inventory_systems { [ { id => 'perpetual', name => t8('Perpetual inventory') }, { id => 'periodic', name => t8('Periodic inventory') } ] }
sub init_all_profit_determinations { [ { id => 'balance', name => t8('Balancing') }, { id => 'income', name => t8('Cash basis accounting') } ] }
$::request->layout(SL::Layout::Dispatcher->new(style => 'admin'));
$::request->layout->use_stylesheet("lx-office-erp.css");
$::form->{favicon} = "favicon.ico";
+ %::myconfig = (
+ countrycode => 'de',
+ numberformat => '1.000,00',
+ dateformat => 'dd.mm.yy',
+ ) if !%::myconfig;
}
sub setup_client {
sub login_form {
my ($self, %params) = @_;
- $::request->layout->focus('#admin_password');
- $self->render('admin/adminlogin', title => t8('kivitendo v#1 administration', $::form->read_version), %params);
+ my $version = $::form->read_version;
+ $self->render('admin/adminlogin', title => t8('kivitendo v#1 administration', $version), %params, version => $version);
}
sub edit_user_form {