projekt kivitendo

  return $file;

}

  $main::lxdebug->enter_sub();

  my ($self, $file, $additional_params) = @_;

  $self->{title} = $title if ($title);

  $self->header();

  die("Error: $error\n");

}

  $self->{title} = $title if ($title);

  $self->header();

  die("Information: $error\n");

}

  my $self      = shift;

  my $variables = $self->prepare_html_content();

}

sub verify_paper_size {

    $form->error($locale->text('Could not write the temporary HTML file.'));

  }

  $html_file->close();

  my $cmdline =

      $form->{"stylesheet"} = "lx-office-erp.css";

      $form->{"title"} = $main::locale->text("Dataset upgrade");

      $form->header();

      $form->{dbupdate} = "db$myconfig{dbname}";

      $form->{ $form->{dbupdate} } = 1;

      if ($form->{"show_dbupdate_warning"}) {

        exit(0);

      }

        $self->{"menustyle"} eq "xml" ? "menuXML.pl" :

        "menu.pl";

      $rc = -2;

  }

  if (!defined($result)) {

    exit(0);

  } elsif (1 != $result) {

    unlink("users/nologin") if (2 == $result);

      # apply upgrade

      $main::lxdebug->message(DEBUG2, "Applying Update $control->{file}");

      if ($file_type eq "sql") {

        $self->process_query($form, $dbh, "sql/" . $form->{"dbdriver"} .

    qq|Lx-Office ERP $form->{version} | . $locale->text('Administration');

  $form->header();

}

sub login {

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

  $form->header();

}

sub add_user {

  chop $form->{all_acs};

  $form->header();

}

sub save {

    . $locale->text('Change Admin Password');

  $form->header();

}

sub change_password {

  $form->{ALLOW_DBBACKUP} = "$pg_dump_exe" ne "DISABLED";

  $form->header();

}

sub continue {

  $form->{ALL_UPDATED}  = !scalar @need_updates;

  $form->header();

}

sub dbupdate {

  $| = 1;

  foreach my $i (@update_rows) {

    restore_form($saved_form);

    my $controls = parse_dbupdate_controls($form, $form->{dbdriver});

    $form->{dbupdate}        = $form->{dbname};

    $form->{$form->{dbname}} = 1;

    User->dbupdate($form);

    User->dbupdate2($form, $controls);

  }

}

sub create_dataset {

    . $locale->text('Create Dataset');

  $form->header();

}

sub dbcreate {

    . $locale->text('Create Dataset');

  $form->header();

}

sub delete_dataset {

  $form->{DBSOURCES} = [ map { { "name", $_ } } sort @dbsources ];

  $form->header();

}

sub dbdelete {

    . $locale->text('Database Administration') . " / "

    . $locale->text('Delete Dataset');

  $form->header();

}

sub backup_dataset {

  $form->{from} = "Lx-Office Admin <${username}\@${hostname}>";

  $form->header();

}

sub backup_dataset_start {

      . $locale->text('Backup Dataset');

    $form->header();

  }

}

  }

  $form->header();

}

sub restore_dataset_start {

  $AUTOFLUSH = 1;

  $form->header();

  while (my $line = <$in>) {

    print $line;

  $in->close();

  $form->{retval} = $CHILD_ERROR >> 8;

  unlink "${tmpdir}/.pgpass", $tmp;

  rmdir $tmpdir;

  };

  # Ausgabe des Templates

  $lxdebug->leave_sub();

  };

  # Ausgabe des Templates

  $lxdebug->leave_sub();

  $form->{title} = $locale->text('Chart of Accounts');

  $form->header();

  $lxdebug->leave_sub();

  $form->{title}                            = $locale->text('Edit Preferences for #1', $form->{login});

  $form->header();

  $lxdebug->leave_sub();

}

  $form->{"title"} = sprintf($locale->text("Add and edit %s"), $form->{"unit_type"} eq "dimension" ? $locale->text("dimension units") : $locale->text("service units"));

  $form->header();

  $lxdebug->leave_sub();

}

	$form->{title} = $locale->text("History Search");

    $form->header();

	$lxdebug->leave_sub();

}

  my ($sort, $sortby) = split(/\-\-/, $form->{order});

  $sort =~ s/.*\.(.*)$/$1/;

    {"DATEN" => $form->get_history($dbh, $daten, $restriction, $form->{order}),

     "SUCCESS" => ($form->get_history($dbh, $daten, $restriction, $form->{order}) ne "0"),

     "NONEWWINDOW" => 1,

  };

  # Ausgabe des Templates

  $lxdebug->leave_sub();

}

  };

  # Ausgabe des Templates

  $lxdebug->leave_sub();

}

  $form->header();

  # Ausgabe des Templates

  $lxdebug->leave_sub();

}

  $form->{fokus}      = 'description';

  $form->header();

  $lxdebug->leave_sub();

}

  $form->{factor} = $form->format_amount(\%myconfig, $form->{factor} * 1);

  $form->header();

  $lxdebug->leave_sub();

}

  $form->{url_base} = build_std_url('callback');

  $form->header();

  $lxdebug->leave_sub();

}

  $options{"HIDDEN"} = [ map(+{ "name" => $_, "value" => $form->{$_} }, @hidden) ];

  $form->header;

  $lxdebug->leave_sub();

}

  }

  $report->set_options('top_info_text'        => join("\n", @options),

                       'output_format'        => 'HTML',

                       'title'                => $form->{title},

                       'attachment_basename'  => $locale->text('invoice_list') . strftime('_%Y%m%d', localtime time),

  }

  $report->set_options('top_info_text'        => join("\n", @options),

                       'output_format'        => 'HTML',

                       'title'                => $form->{title},

                       'attachment_basename'  => $locale->text('invoice_list') . strftime('_%Y%m%d', localtime time),

  $form->{"title"} = $locale->text("Select a Customer");

  $form->header();

  $lxdebug->leave_sub();

}

  $form->{"title"} = $locale->text("Select a Customer");

  $form->header();

  $lxdebug->leave_sub();

}

  $form->{formel} = $formel; 

  $form->{"title"} = $locale->text("Please enter values");

  $form->header();

  $lxdebug->leave_sub();

}

  $form->{title} = $locale->text("Enter longdescription");

  $form->header();

  $lxdebug->leave_sub();

}

	$form->{title} = $locale->text("History");

    $form->header();

    	"DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),

    	"SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),

      uc($sort) => 1,

  $form->{title} = $form->{vc} eq "customer" ?

    $locale->text("Customer details") : $locale->text("Vendor details");

  $form->header();

	$lxdebug->leave_sub();

}

  $form->{fokus} = 'Form.name';

  $form->header();

  $lxdebug->leave_sub();

}

  my $report = SL::ReportGenerator->new(\%myconfig, $form);

  $report->set_options('top_info_text'         => join("\n", @options),

                       'output_format'         => 'HTML',

                       'title'                 => $form->{title},

                       'attachment_basename'   => $attachment_basename . strftime('_%Y%m%d', localtime time),

  $form->{callback} ||= build_std_url("action=edit_config");

  $form->header();

  $lxdebug->leave_sub();

}

  $form->{fokus}    = "search.customer";

  $form->header();

  $lxdebug->leave_sub();

}

                                          'no_opendocument' => 1,);

  $form->header();

  $lxdebug->leave_sub();

}

  $form->{"title"} = $locale->text("Set eMail text");

  $form->header();

  $lxdebug->leave_sub();

}

    . qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|

    . qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;

  $lxdebug->leave_sub();

  $report->add_data($current_dunning_rows) if (scalar @{ $current_dunning_rows });

                       'output_format'        => 'HTML',

                       'attachment_basename'  => $locale->text('dunning_list') . strftime('_%Y%m%d', localtime time),

    );

    $form->{remove_draft} = 1;

    $form->header();

    return $lxdebug->leave_sub();

  }

  my $saved_form = save_form();

  $form->header();

  $lxdebug->leave_sub();

      . '</span></p> ';

  }

  $report->set_options('raw_bottom_info_text' => $raw_bottom_info_text);

  );

  $report->set_options('top_info_text'         => $locale->text('Options') . ': ' . join(', ', grep $_, @options),

                       'output_format'         => 'HTML',

                       'title'                 => $form->{title},

                       'attachment_basename'   => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),

  $form->{"title"} = $locale->text("Language Values");

  $form->header();

  $lxdebug->leave_sub();

}

  push @HIDDENS,      { 'name' => 'taxaccount2',  'value' => $form->{taxaccounts} };

  $form->header();

  $lxdebug->leave_sub();

}

  @dont_hide_key{@dont_hide_key_list} = (1) x @dont_hide_key_list;

  @hidden_keys = sort grep { !$dont_hide_key{$_} } grep { !ref $form->{$_} } keys %$form;

  $lxdebug->leave_sub();

}

    remove_draft_checked => $form->{remove_draft} ? "checked" : ''

  );

  if ($options{inline}) {

    $lxdebug->leave_sub();

  $form->{date} = clock_line();

  $form->{menu} = acc_menu();

}

     is_pur_ord      => scalar ($form->{type} =~ /purchase_order$/),

  );

  $lxdebug->leave_sub();

}

  $form->{oldinvtotal} = $form->{invtotal};

     %TMPL_VAR,

     webdav          => $webdav,

     print_options   => print_options(inline => 1),

  }

  $report->set_options('top_info_text'        => join("\n", @options),

                       'output_format'        => 'HTML',

                       'title'                => $form->{title},

                       'attachment_basename'  => $attachment_basename . strftime('_%Y%m%d', localtime time),

  $form->{VARIABLES} = [ map { { "key" => $_, "value" => $form->{$_} } } grep { ref $_ eq "" } keys %{ $form } ];

  $form->header();

  $lxdebug->leave_sub();

    push @ROWS, { ROW1 => \@ROW1, ROW2 => \@ROW2, HIDDENS => \@HIDDENS, colspan => $colspan, };

  }

  if (0 != ($form->{sellprice_total} * 1)) {

    $form->{marge_percent} = ($form->{sellprice_total} - $form->{lastcost_total}) / $form->{sellprice_total} * 100;

  $form->{title} = $locale->text('PDF export -- options');

  $form->header();

  $lxdebug->leave_sub();

}

  $form->{title} = $locale->text('CSV export -- options');

  $form->header();

  $lxdebug->leave_sub();

}

  $report->add_data(create_aging_subtotal_row(\%totals, \@columns, \@periods, 'listtotal'));

  if ($form->{arap} eq 'ar') {

    $report->set_options('raw_top_info_text'    => $raw_top_info_text,

                         'raw_bottom_info_text' => $raw_bottom_info_text);

  }

# $locale->text('Nov')

# $locale->text('Dec')

#############################

  };

        taxnumber => $myconfig{taxnumber},

    };

  } else

  { 

  };

  # Ausgabe des Templates

  $lxdebug->leave_sub();

}

  };

  # Ausgabe des Templates

  $lxdebug->leave_sub();

      }

      # is this a template call?

        my $newfile = "$basedir/templates/webpages/$1_master.html";

        if (-f $newfile) {

#           &scanhtmlfile($newfile);

sub myshowerror {

  my ($msg) = @_;

  return 2;

}

    map({ push(@unknown_parts, { "name" => $_, "NEW_UNITS" => $ddbox }); }

        sort({ lc($a) cmp lc($b) } keys(%unknown_dimension_units)));

    return 2;

  } else {

  }

  if (scalar(keys(%unknown_service_units)) != 0) {

    map({ push(@unknown_services, { "name" => $_, "NEW_UNITS" => $ddbox }); }

        sort({ lc($a) cmp lc($b) } keys(%unknown_service_units)));

    return 2;

  } else {

  }

  return 0;

    my $service_units = retrieve_units(\%dbup_myconfig, $form, "service");

    my $service_ddbox = unit_select_data($service_units);

    return 2;

  } else {

    return 1;

  }

}

  my $res;

  if ($form->{"action2"} eq "add_unit") {

    $res = update_units_add_unit();

sub myshowerror {

  my ($msg) = @_;

  return 2;

}

  my @coas = map(+{ "name" => $_ }, @valid_coas);

  return 2;

}

sub myshowerror {

  my ($msg) = @_;

  return 2;

}

    return create_standard_buchungsgruppen_skr04();

  }

  return 1;

}

sub myshowerror {

  my ($msg) = @_;

  return 2;

}

    return update_steuersaetze_skr04();

  }

  return 1;

}

    $entry->{"eur"} = $main::eur;

  }

}

sub create_buchungsgruppen {

  my ($acc_inventory, $acc_income, $acc_expense) = retrieve_accounts();

  if (scalar(@{$parts})) {

    display_create_bgs_dialog("parts", $parts,

                              $buchungsgruppen);

    return 2;

  } else {

  }

  if (scalar(@{$services})) {

                              $buchungsgruppen);

    return 2;

  } else {

  }

  if (scalar(@{$assemblies})) {

                              $buchungsgruppen);

    return 2;

  } else {

  }

  return 1;

}

  if (@warnings) {

    @warnings = map(+{ "message" => $_ }, @warnings);

  }

  return 1;