projekt kivitendo

    $myconfig->{$item} = $form->{$item};

  }

  my $auth = $main::auth;

sub delete_transaction {

  $main::lxdebug->enter_sub();

  # connect to database

  my $dbh = $form->dbconnect_noauto($myconfig);

sub delete_spool {

  $main::lxdebug->enter_sub();

  # connect to database, turn AutoCommit off

  my $dbh = $form->dbconnect_noauto($myconfig);

sub print_spool {

  $main::lxdebug->enter_sub();

  # connect to database

  my $dbh = $form->dbconnect($myconfig);

  $form->throw_on_error(sub {

    eval {

      1;

    } || die $EVAL_ERROR->{error};

  });

  delete $form->{OUT};

  $main::lxdebug->leave_sub();

}

                    PLUGIN_BASE  => 'SL::Template::Plugin',

                    INCLUDE_PATH => '.:templates/webpages',

                    COMPILE_EXT  => '.tcc',

                  }) || croak;

  return $self->{__basepriv_template_obj};

  my $path;

  if ($token =~ m|^(\d+)-(\d+)-(\d+)$|) {

  }

  $main::lxdebug->leave_sub();

sub clean_temporary_directories {

  $main::lxdebug->enter_sub();

    next unless (-d $path);

    my $mtime = (stat($path))[9];

sub save_dunning {

  $main::lxdebug->enter_sub();

  # connect to database

  my $dbh = $form->dbconnect_noauto($myconfig);

  $copies        *= 1;

  $copies         = 1 unless $copies;

  my $dunning_id  = $form->{dunning_id};

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

  $in->close();

  $main::lxdebug->leave_sub();

}

  $self->set_template_options($myconfig, $form);

  my $filename          = "dunning_${dunning_id}_" . Common::unique_id() . ".pdf";

  $form->{keep_tmpfile} = 1;

  delete $form->{tmpfile};

  push @{ $form->{DUNNING_PDFS} }, $filename;

                                           'name'     => "dunning_${dunning_id}.pdf" };

  $dbh->disconnect() unless $provided_dbh;

  my $filename = Common::unique_id() . "dunning_invoice_${dunning_id}.pdf";

  $form->{keep_tmpfile} = 1;

  delete $form->{tmpfile};

  map { delete $form->{$_} } grep /^[a-z_]+_\d+$/, keys %{ $form };

  restore_form($saved_form);

  push @{ $form->{DUNNING_PDFS} }, $filename;

                                           'name'     => "dunning_invoice_${dunning_id}.pdf" };

  $dbh->disconnect() unless $provided_dbh;

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  # connect to database

  my $dbh = $form->get_standard_dbh($myconfig);

  # canonial globals. if it's not here, chances are it will get refactored someday.

  {

    no warnings 'once';

    $::menufile    = "menu.ini";

    $::sendmail    = "| /usr/sbin/sendmail -t";

    $::lxdebug     = LXDebug->new;

    my $session_result = $::auth->restore_session;

    $::auth->create_or_refresh_session;

    if ($script eq 'login' or $script eq 'admin' or $script eq 'kopf') {

      $::form->{titlebar} = "Lx-Office " . $::locale->text('Version') . " $::form->{version}";

     'PLUGIN_BASE'  => 'SL::Template::Plugin',

     'INCLUDE_PATH' => '.:templates/webpages',

     'COMPILE_EXT'  => '.tcc',

  })) || die;

}

sub parse_template {

  $main::lxdebug->enter_sub();

  my $out;

  local (*IN, *OUT);

  $self->{"cwd"} = getcwd();

  $self->{"tmpdir"} = $self->{cwd} . "/${userspath}";

sub delete_invoice {

  $main::lxdebug->enter_sub();

  # connect to database

  my $dbh = $form->dbconnect_noauto($myconfig);

  $dbh->disconnect;

  if ($rc) {

    map { unlink "$spool/$_" if -f "$spool/$_"; } @spoolfiles;

  }

        # to distinguish case A and B the variable pricegroup_id_$i is used

        # for new articles this variable isn't defined, for loaded articles it is

        # sellprice can't be used, as it already has 0,00 set

        if ($pkr->{pricegroup_id} eq $form->{"pricegroup_id_$i"} and defined $form->{"pricegroup_id_$i"}) {

          # Case A

          $pkr->{selected}  = ' selected';

                 and $pkr->{price} != 0    # only use customer pricegroup price if it has a value, else use default_sellprice

                                           # for the case where pricegroup prices haven't been set

                ) {

sub delete {

  $main::lxdebug->enter_sub();

  # connect to database

  my $dbh = $form->dbconnect_noauto($myconfig);

  $dbh->disconnect;

  if ($rc) {

    foreach $spoolfile (@spoolfiles) {

      unlink "$spool/$spoolfile" if $spoolfile;

    }

  my %params  = @_;

  my $package = "SL::Template::" . $params{type};

}

1;

      }

      # update the tables

        $form->show_generic_error($main::locale->text('A temporary file could not be created. ' .

                                                      'Please verify that the directory "#1" is writeable by the webserver.',

                                  'back_button' => 1);

      }

      close(FH);

      # remove lock file

      my $menufile =

        $self->{"menustyle"} eq "v3" ? "menuv3.pl" :

    ::end_of_request();

  }

    my $memberdir = "";

      $memberdir = $&;

    }

    $form->{title} = $locale->text('User data migration');

    $form->header();

                                                               'backupdir'  => $backupdir });

    ::end_of_request();

  $main::auth->set_session_value('rpw', $form->{rpw});

  $main::auth->create_or_refresh_session();

    # New installation -- create a standard group with full access

    my %members;

    my $group = {

  my $memberdir = "";

    $memberdir = $&;

  }

    $form->error(sprintf($locale->text('The directory "%s" could not be created:\n%s'), $backupdir, $!));

  }

  $form->error($locale->text('Could not open the old memberfile.')) if (!$in);

    }

  }

  my @member_list = sort { lc $a->{login} cmp lc $b->{login} } values %members;

  map { $_->{templates} =~ s|.*/||; } values %members;

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

  $form->{MEMBERS} = [ @members{sort { lc $a cmp lc $b } keys %members} ];

  $form->header();

  }

  # is there a templates basedir

  }

  my @all     = readdir(TEMPLATEDIR);

  closedir TEMPLATEDIR;

  @alldir = grep !/\.(html|tex|sty|odt|xml|txb)$/, @alldir;

  }

  # is there a basedir

  }

  # add base directory to $form->{templates}

  $form->{templates} =~ s|.*/||;

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

  $myconfig->save_member();

  $form->{templates}       =~ s|.*/||;

  $form->{mastertemplates} =~ s|.*/||;

  # create user template directory and copy master files

      umask(007);

      # copy templates to the directory

      my @templates = grep /$form->{mastertemplates}.*?\.(html|tex|sty|odt|xml|txb)$/,

        readdir TEMPLATEDIR;

      closedir TEMPLATEDIR;

      foreach my $file (@templates) {

        $file =~ s/\Q$form->{mastertemplates}\E-//;

        open(NEW, ">$form->{templates}/$file")

  my $form   = $main::form;

  my $locale = $main::locale;

  $form->{callback} = "admin.pl?action=list_users";

  my $form   = $main::form;

  my $locale = $main::locale;

    or $form->error($locale->text('Cannot create Lock!'));

  close(FH);

  ::end_of_request() if SL::DBUpgrade2->new(form => $::form, dbdriver => 'Pg', auth => 1)->apply_admin_dbupgrade_scripts(1);

}

1;

  $main::auth->assert('general_ledger');

    # saving the history

    if(!exists $form->{addition}) {

      $form->{snumbers} = qq|invnumber_| . $form->{invnumber};

  $form->{callback} .= "&header=1" if $form->{callback};

  $form->redirect($locale->text('Removed spoolfiles!'))

  $form->error($locale->text('Cannot remove files!'));

  $main::lxdebug->leave_sub();

    if ($form->{"checked_$i"}) {

      $form->info($locale->text('Printing ... '));

        print $locale->text('done');

        $form->redirect($locale->text('Marked entries printed!'));

      }

  my $i = 0;

  my $j = 0;

  my $spoolfile;

  foreach my $ref (@{ $form->{SPOOL} }) {

      "<td><a href=$module?action=edit&id=$ref->{id}&type=$form->{type}&callback=$callback>$ref->{quonumber}</a></td>";

    $column_data{name}      = "<td>$ref->{name}</td>";

    $column_data{spoolfile} =

<input type=hidden name="spoolfile_$i" value=$ref->{spoolfile}>

|;

      foreach my $level (values %{ $levels }) {

        next unless scalar @{ $level };

      }

    }

                      "customer_id"            => $form->{"customer_id_$i"},

                      "next_dunning_config_id" => $form->{"next_dunning_config_id_$i"},

                      "email"                  => $form->{"email_$i"}, } ];

    }

  }

    my $filename;

    if ($filename = $queued{ $form->{formname} }) {

      $form->{queued} =~ s/\Q$form->{formname} $filename\E//;

      $filename =~ s/\..*$//g;

    } else {

      $filename = time;

    }

    $filename .= ($form->{postscript}) ? '.ps' : '.pdf';

    # add type

    $form->{queued} .= " $form->{formname} $filename";

  }

  # /saving the history

  $form->{callback} = "";

  $main::auth->assert('invoice_edit');

    # saving the history

    if(!exists $form->{addition}) {

    $form->{snumbers} = qq|invnumber_| . $form->{invnumber};

    $msg = $locale->text('Quotation deleted!');

    $err = $locale->text('Cannot delete quotation!');

  }

    # saving the history

    if(!exists $form->{addition}) {

      $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};

        $form->{attachment_filename} =  $locale->quote_special_chars('filenames', $locale->text("Statement") . "_$form->{todate}.$attachment_suffix");

        $form->{attachment_filename} =~ s/\s+/_/g;

      }

    }

  $userspath, $vertreter, $webdav, $xvfb_bin

);

# Wenn Einnahmen-Überschussrechnung, dann auf 1 setzen

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

$eur = 1;

  $userspath, $vertreter, $webdav, $xvfb_bin

);

# Wenn Einnahmen-Überschussrechnung, dann auf 1 setzen

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

$eur = 1;

[task_server]

# User name to use for database access

login = mb

  package main;

  { no warnings 'once';

    $::sendmail   = "| /usr/sbin/sendmail -t";

  }

  my $login     = shift @ARGV;

  $::sendmail   = "| /usr/sbin/sendmail -t";

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

  push    @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.

}

use DBI;

use Data::Dumper;

use SL::Form;

use SL::Template;

$sendmail   = "| /usr/sbin/sendmail -t";

$| = 1;

  package main;

  { no warnings 'once';

    $::sendmail   = "| /usr/sbin/sendmail -t";

  }