projekt kivitendo

use SL::DB::Printer;

use SL::Helper::Flash;

use SL::Locale::String qw(t8);

use SL::User;

use Rose::Object::MakeMethods::Generic

(

                                  all_dateformats all_numberformats all_countrycodes all_stylesheets all_menustyles all_clients all_groups all_users all_rights all_printers) ],

);

sub action_unlock_system {

  my ($self) = @_;

  flash_later('info', t8('Lockfile removed!'));

  $self->redirect_to(action => 'show');

}

sub action_lock_system {

  my ($self) = @_;

}

#

#

sub init_db_cfg            { $::lx_office_conf{'authentication/database'}                                                    }

sub init_client            { SL::DB::Manager::AuthClient->find_by(id => ($::form->{id} || ($::form->{client}  || {})->{id})) }

sub init_user              { SL::DB::AuthUser  ->new(id => ($::form->{id} || ($::form->{user}    || {})->{id}))->load        }

sub init_group             { SL::DB::AuthGroup ->new(id => ($::form->{id} || ($::form->{group}   || {})->{id}))->load        }

# Process a Perl script which updates the database.

# If the script returns 1 then the update was successful.

# All other return codes are fatal errors.

sub process_perl_script {

  $::lxdebug->enter_sub();

    print $::form->parse_html_template("dbupgrade/error", { file  => $filename, error => $error });

    ::end_of_request();

  } elsif (1 != $result) {

    ::end_of_request();

  }

    form     => $::form,

    auth     => 1

  );

=head1 OVERVIEW

Perl scripts are executed via L<eval>. If L<eval> returns falsish then

an error is expected. There are two special return values: If the

script returns C<1> then the update was successful. Return code C<2>

end current upgrade process". All other return codes are fatal errors.

Inside the Perl script several local variables exist that can be used:

  eval {

    pre_request_checks(script => $script, action => $action, routing_type => $routing_type, script_name => $script_name);

        && !is_admin_request(script => $script, script_name => $script_name, routing_type => $routing_type)) {

      $::form->error($::locale->text('System currently down for maintenance!'));

    }

use SL::DBUtils;

use SL::Iconv;

use SL::Inifile;

use strict;

  }

  # update the tables

  # ignore HUP, QUIT in case the webserver times out

  $SIG{HUP}  = 'IGNORE';

  $self->dbupdate2($form, $dbupdater);

  SL::DBUpgrade2->new(form => $::form, auth => 1)->apply_admin_dbupgrade_scripts(0);

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

  'A lower-case character is required.' => 'Ein Kleinbuchstabe ist vorgeschrieben.',

  'A special character is required (valid characters: #1).' => 'Ein Sonderzeichen ist vorgeschrieben (gültige Zeichen: #1).',

  'A temporary directory could not be created:' => 'Ein temporäres Verzeichnis konnte nicht erstellt werden:',

  'A temporary file could not be created:' => 'Eine temporäre Datei konnte nicht erstellt werden:',

  'A unit with this name does already exist.' => 'Eine Einheit mit diesem Namen existiert bereits.',

  'A valid taxkey is missing!'  => 'Einen gültiger Steuerschlüssel fehlt!',

  'Cancel'                      => 'Abbrechen',

  'Cancel Accounts Payables Transaction' => 'Kreditorenbuchung stornieren',

  'Cancel Accounts Receivables Transaction' => 'Debitorenbuchung stornieren',

  'Cannot delete account!'      => 'Konto kann nicht gelöscht werden!',

  'Cannot delete customer!'     => 'Kunde kann nicht gelöscht werden!',

  'Cannot delete default account!' => 'Das Standard-Konto kann nicht gelöscht werden!',

  'Close Flash'                 => 'Schließen',

  'Close SEPA exports'          => 'SEPA-Export abschließen',

  'Close Window'                => 'Fenster Schließen',

  'Closed'                      => 'Geschlossen',

  'Collective Orders only work for orders from one customer!' => 'Sammelaufträge funktionieren nur für Aufträge von einem Kunden!',

  'Column name'                 => 'Spaltenname',

  'Filter date by'              => 'Datum filtern nach',

  'Filter for customer variables' => 'Filter für benutzerdefinierte Kundenvariablen',

  'Filter for item variables'   => 'Filter für benutzerdefinierte Artikelvariablen',

  'Finish'                      => 'Abschließen',

  'First 20 Lines'              => 'Nur erste 20 Datensätze',

  'Fix transaction'             => 'Buchung korrigieren',

  'Loading...'                  => 'Wird geladen...',

  'Local Tax Office Preferences' => 'Angaben zum Finanzamt',

  'Lock System'                 => 'System sperren',

  'Lockfile created!'           => 'System gesperrt!',

  'Lockfile removed!'           => 'System entsperrt!',

  'Login'                       => 'Anmelden',

  'No Company Address given'    => 'Keine Firmenadresse hinterlegt!',

  'No Company Name given'       => 'Kein Firmenname hinterlegt!',

  'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden',

  'No Dataset selected!'        => 'Keine Datenbank ausgewählt!',

  'No Vendor was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Händler gefunden',

  'No action defined.'          => 'Keine Aktion definiert.',

  'Valid'                       => 'Gültig',

  'Valid from'                  => 'Gültig ab',

  'Valid until'                 => 'gültig bis',

  'Value'                       => 'Wert',

  'Variable'                    => 'Variable',

  'Variable Description'        => 'Datenfeldbezeichnung',