projekt kivitendo

  $dunning_id     =~ s|[^\d]||g;

  $form->error($main::locale->text('Could not spawn ghostscript.')) unless $in;

  if ($form->{media} eq 'printer') {

  {

    no warnings 'once';

    $::menufile    = "menu.ini";

    $::lxdebug     = LXDebug->new;

    $::auth        = SL::Auth->new;

    $::form        = undef;

  my %temp_form   = ( %{ $form }, 'myconfig_email' => $email );

  my $template    = SL::Template::create(type => 'PlainText', form => \%temp_form);

    $main::lxdebug->leave_sub();

    return "$sendmail : $!";

  }

    $psfile .= ".ps";

  }

  if ($?) {

    $self->{"error"} = $form->cleanup();

    $self->cleanup();

    $pdffile .= ".pdf";

  }

  if ($?) {

    $self->{"error"} = $form->cleanup();

    $self->cleanup();

}

sub _get_latex_path {

}

sub get_mime_type() {

  my $pid = fork();

  if (0 == $pid) {

    $main::lxdebug->message(LXDebug->DEBUG2(), "  Child execing\n");

  }

  sleep(3);

  $main::lxdebug->message(LXDebug->DEBUG2(), "  parent dont sleeping\n");

        exit if ($new_pid);

        my $ssres = setsid();

        $main::lxdebug->message(LXDebug->DEBUG2(), "  Child execing\n");

                       "-minimized", "-norestore", "-nologo", "-nolockcheck",

                       "-headless",

                       "-accept=socket,host=localhost,port=" .

  my @cmdline;

  if (!$main::openofficeorg_daemon) {

                "-minimized", "-norestore", "-nologo", "-nolockcheck",

                "-headless",

                "file:${filename}.odt",

  $form->{title} = "Lx-Office ERP " . $locale->text('Database Administration') . " / " . $locale->text('Backup Dataset');

    $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.'));

  }

  $form->{title} = "Lx-Office ERP " . $locale->text('Database Administration') . " / " . $locale->text('Backup Dataset');

    $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.'));

  }

  push @args, ("-p", $form->{dbport}) if ($form->{dbport});

  push @args, $form->{dbname};

  my $name = "dataset_backup_$form->{dbname}_" . strftime("%Y%m%d", localtime()) . ".tar";

  if ($form->{destination} ne "email") {

  $form->{title} = "Lx-Office ERP " . $locale->text('Database Administration') . " / " . $locale->text('Restore Dataset');

    $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.'));

  }

  $form->{title} = "Lx-Office ERP " . $locale->text('Database Administration') . " / " . $locale->text('Restore Dataset');

    $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.'));

  }

  push @args, ("-p", $form->{dbport}) if ($form->{dbport});

  push @args, $tmp;

  my $in = IO::File->new("$cmd 2>&1 |");

  _build_cfg_options('numberformat', ('1,000.00', '1000.00', '1.000,00', '1000,00'));

  my @formats = ();

    push(@formats, { "name" => $locale->text("PDF (OpenDocument/OASIS)"),

                     "value" => "opendocument_pdf" });

  }

        if ($form->{media} ne 'email');

  push @FORMAT, grep $_,

     && !$options{no_opendocument_pdf}) ?

      opthash("opendocument_pdf",    $form->{DF}{"opendocument_pdf"},  $locale->text("PDF (OpenDocument/OASIS)")) : undef,

    ($main::latex_templates) ?

use Cwd;

our (

);

# Wenn Einnahmen-Überschussrechnung, dann auf 1 setzen

# Wenn Bilanzierung (z.B. GmbH), dann auf 0 setzen

$eur = 1;

# set language for login and admin

# currently "de" (German), "de_DE" (new German) and "en" (English, not perfect) are available

$language = "de";

# Die folgenden zwei Variablen legen Pfade zu Programmen fest, die benoetigt

# werden, um OpenDocument-Vorlagen in PDFs umzuwandeln.

# Soll OpenOffice dauerhaft gestartet bleiben? Die Konvertierung nachfolgender

# Dokumente geht dann schneller. Allerdings wird auf dem System ein

# installiertes Python mit den Python-UNO-Bindings benoetigt, die Bestandteil

$openofficeorg_daemon = 1;

$openofficeorg_daemon_port = 2002;

# Das charset, in dem die Daten in der Datenbank abgelegt sind.

$dbcharset = 'UTF-8'; # Für UNICODE UTF-8

# $dbcharset = "ISO-8859-15";

1;

use Cwd;

our (

);

# Wenn Einnahmen-Überschussrechnung, dann auf 1 setzen

# Wenn Bilanzierung (z.B. GmbH), dann auf 0 setzen

$eur = 1;

# set language for login and admin

# currently "de" (German), "de_DE" (new German) and "en" (English, not perfect) are available

$language = "de";

# Die folgenden zwei Variablen legen Pfade zu Programmen fest, die benoetigt

# werden, um OpenDocument-Vorlagen in PDFs umzuwandeln.

# Soll OpenOffice dauerhaft gestartet bleiben? Die Konvertierung nachfolgender

# Dokumente geht dann schneller. Allerdings wird auf dem System ein

# installiertes Python mit den Python-UNO-Bindings benoetigt, die Bestandteil

$openofficeorg_daemon = 1;

$openofficeorg_daemon_port = 2002;

# Das charset, in dem die Daten in der Datenbank abgelegt sind.

$dbcharset = 'UTF-8'; # Für UNICODE UTF-8

# $dbcharset = "ISO-8859-15";

1;

# Path to the old memberfile (ignored on new installations)

memberfile = users/members

[environment]

# Add the following paths to the PATH environment variable.

path = /usr/local/bin:/usr/X11R6/bin:/usr/X11/bin

  package main;

  eval { require "config/lx-erp.conf"; };

  eval { require "config/lx-erp-local.conf"; } if -f "config/lx-erp-local.conf";

  my $login     = shift @ARGV;

  $::lxdebug    = LXDebug->new();

  require "config/lx-erp.conf";

  package main;

  eval { require "config/lx-erp.conf";       1; } or die $EVAL_ERROR;

  eval { require "config/lx-erp-local.conf"; 1; } or die $EVAL_ERROR if -f "config/lx-erp-local.conf";