projekt kivitendo

  # if we get an error back, bale out

  my $result = User->new(login => $::myconfig{login})->login($::form);

  # Auth DB needs update? If so log the user out forcefully.

    $::auth->destroy_session;

    return $self->render('login_screen/auth_db_needs_update');

  }

  # Other login errors.

    $::auth->punish_wrong_login;

    return $self->show_login_form(error => $error);

  }

use strict;

sub new {

  $main::lxdebug->enter_sub();

sub login {

  my ($self, $form) = @_;

  my %myconfig = $main::auth->read_user(login => $self->{login});

  # check if database is down

  my $dbh = $form->dbconnect_noauto;

  # we got a connection, check the version

  my ($dbversion) = $dbh->selectrow_array(qq|SELECT version FROM defaults|);

  $self->create_schema_info_table($form, $dbh);

  my $update_available = $dbupdater->update2_available($dbh);

  $dbh->disconnect;

  $form->{$_} = $::auth->client->{$_} for qw(dbname dbhost dbport dbuser dbpasswd);

  $form->{$_} = $myconfig{$_}         for qw(datestyle);

  print $form->parse_html_template("dbupgrade/footer");

}

sub dbconnect_vars {

  'The base unit does not exist or it is about to be deleted in row %d.' => 'Die Basiseinheit in Zeile %d existiert nicht oder soll gelöscht werden.',

  'The base unit does not exist.' => 'Die Basiseinheit existiert nicht.',

  'The base unit relations must not contain loops (e.g. by saying that unit A\'s base unit is B, B\'s base unit is C and C\'s base unit is A) in row %d.' => 'Die Beziehungen der Einheiten dürfen keine Schleifen beinhalten (z.B. wenn gesagt wird, dass Einheit As Basiseinheit B, Bs Basiseinheit C und Cs Basiseinheit A ist) in Zeile %d.',

  'The business has been created.' => 'Der Kunden-/Lieferantentyp wurde erfasst.',

  'The business has been deleted.' => 'Der Kunden-/Lieferantentyp wurde gelöscht.',

  'The business has been saved.' => 'Der Kunden-/Lieferantentyp wurde gespeichert.',

  'The wrong taxkeys for AP and AR transactions have been fixed.' => 'Die Probleme mit falschen Steuerschlüssel bei Kreditoren- und Debitorenbuchungen wurden behoben.',

  'The wrong taxkeys for inventory transactions for sales and purchase invoices have been fixed.' => 'Die falschen Steuerschlüssel für Warenbestandsbuchungen bei Einkaufs- und Verkaufsrechnungen wurden behoben.',

  'The wrong taxkeys have been fixed.' => 'Die Steuerschlüssel wurden nach Ihrer Auswahl korrigiert.',

  'There are #1 more open invoices for this customer with other currencies.' => 'Es gibt #1 weitere offene Rechnungen für diesen Kunden, die in anderen Währungen ausgestellt wurden.',

  'There are #1 more open invoices from this vendor with other currencies.' => 'Es gibt #1 weitere offene Rechnungen von diesem Lieferanten, die in anderen Währungen ausgestellt wurden.',

  'There are #1 unfinished follow-ups of which #2 are due.' => 'Es gibt #1 Wiedervorlage(n), von denen #2 fällig ist/sind.',

  'There is not enough left of \'#1\' in bin \'#2\' for the removal of #3.' => 'In Lagerplatz \'#2\' ist nicht genug von \'#1\' vorhanden, um #3 zu entnehmen.',

  'There was an error executing the background job.' => 'Bei der Ausführung des Hintergrund-Jobs trat ein Fehler auf.',

  'There was an error parsing the csv file: #1 in line #2.' => 'Es gab einen Fehler beim Parsen der CSV Datei: "#1" in der Zeile "#2"',

  'Therefore several settings that had to be made for each user in the past have been consolidated into the client configuration.' => 'Dazu wurden gewisse Einstellungen, die vorher bei jedem Benutzer vorgenommen werden mussten, in die Konfiguration eines Mandanten verschoben.',

  'Therefore the definition of "kg" with the base unit "g" and a factor of 1000 is valid while defining "g" with a base unit of "kg" and a factor of "0.001" is not.' => 'So ist die Definition von "kg" mit der Basiseinheit "g" und dem Faktor 1000 zulässig, die Definition von "g" mit der Basiseinheit "kg" und dem Faktor "0,001" hingegen nicht.',

  'These wrong entries cannot be fixed automatically.' => 'Diese Einträge können nicht automatisch bereinigt werden.',