X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fam.pl;h=c6bb8e47c1ea6a6ca0bf4cfe6b30c7c4594adc0d;hb=088bf5a0944051fe84c0e8e3fff7991a2a172895;hp=c6586af5bd47e031afcce7a550a56be1e95dd214;hpb=6a8787147ad643549eb26cb4f9a373b5b354b8b9;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index c6586af5b..c6bb8e47c 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -34,6 +34,7 @@
use utf8;
use SL::Auth;
+use SL::Auth::PasswordPolicy;
use SL::AM;
use SL::CA;
use SL::Form;
@@ -503,7 +504,7 @@ sub list_account {
push(@ { $form->{AJAX} }, $pjx);
- $form->{stylesheets} = "list_accounts.css";
+ $form->use_stylesheet("list_accounts.css");
$form->{title} = $locale->text('Chart of Accounts');
$form->header;
@@ -1110,7 +1111,7 @@ sub list_business {
$form->{title} = $locale->text('Type of Business');
my @column_index = qw(description discount customernumberinit);
- push @column_index, 'salesman' if $::vertreter;
+ push @column_index, 'salesman' if $::lx_office_conf{features}->{vertreter};
my %column_header;
$column_header{description} =
qq|
|
@@ -1223,7 +1224,7 @@ sub business_header {
$form->format_amount(\%myconfig, $form->{discount} * 100);
my $salesman_code;
- if ($::vertreter) {
+ if ($::lx_office_conf{features}->{vertreter}) {
$salesman_code = qq|
|
| . $locale->text('Representative') . qq| |
@@ -1872,7 +1873,7 @@ sub buchungsgruppe_header {
}
my $linkaccounts;
- if (!$main::eur) {
+ if (!$::lx_office_conf{system}->{eur}) {
$linkaccounts = qq|
| . $locale->text('Inventory') . qq| |
@@ -2017,369 +2018,6 @@ sub swap_buchungsgruppen {
$main::lxdebug->leave_sub();
}
-sub add_payment {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- $main::auth->assert('config');
-
- $form->{title} = "Add";
-
- $form->{callback} = "am.pl?action=add_payment" unless $form->{callback};
-
- $form->{terms_netto} = 0;
- $form->{terms_skonto} = 0;
- $form->{percent_skonto} = 0;
- my @languages = AM->language(\%myconfig, $form, 1);
- map({ $_->{"language"} = $_->{"description"};
- $_->{"language_id"} = $_->{"id"}; } @languages);
- $form->{"TRANSLATION"} = \@languages;
- &payment_header;
- &form_footer;
-
- $main::lxdebug->leave_sub();
-}
-
-sub edit_payment {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- $main::auth->assert('config');
-
- $form->{title} = "Edit";
-
- AM->get_payment(\%myconfig, $form);
- $form->{percent_skonto} =
- $form->format_amount(\%myconfig, $form->{percent_skonto} * 100);
-
- &payment_header;
-
- $form->{orphaned} = 1;
- &form_footer;
-
- $main::lxdebug->leave_sub();
-}
-
-sub list_payment {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
- my $locale = $main::locale;
-
- $main::auth->assert('config');
-
- AM->payment(\%myconfig, \%$form);
-
- $form->{callback} = build_std_url("action=list_payment");
-
- my $callback = $form->escape($form->{callback});
-
- $form->{title} = $locale->text('Payment Terms');
-
- my @column_index = qw(up down description description_long terms_netto
- terms_skonto percent_skonto);
- my %column_header;
- $column_header{up} =
- qq||
- . qq||
- . qq| | |;
- $column_header{down} =
- qq||
- . qq||
- . qq| | |;
- $column_header{description} =
- qq||
- . $locale->text('Description')
- . qq| | |;
- $column_header{description_long} =
- qq||
- . $locale->text('Long Description')
- . qq| | |;
- $column_header{terms_netto} =
- qq||
- . $locale->text('Netto Terms')
- . qq| | |;
- $column_header{terms_skonto} =
- qq||
- . $locale->text('Skonto Terms')
- . qq| | |;
- $column_header{percent_skonto} =
- qq||
- . $locale->text('Skonto')
- . qq| % | |;
-
- $form->header;
-
- print qq|
-
-
-
-
- $form->{title} |
-
-
-
-
-
-
-|;
-
- map { print "$column_header{$_}\n" } @column_index;
-
- print qq|
-
-|;
-
- my $swap_link = build_std_url("action=swap_payment_terms");
-
- my $row = 0;
- my ($i, %column_data);
- foreach my $ref (@{ $form->{ALL} }) {
-
- $i++;
- $i %= 2;
-
- print qq|
-
-|;
-
- if ($row) {
- my $pref = $form->{ALL}->[$row - 1];
- $column_data{up} =
- qq|| .
- qq|| .
- qq|| .
- qq| | |;
- } else {
- $column_data{up} = qq| | |;
- }
-
- if ($row == (scalar(@{ $form->{ALL} }) - 1)) {
- $column_data{down} = qq| | |;
- } else {
- my $nref = $form->{ALL}->[$row + 1];
- $column_data{down} =
- qq|| .
- qq|| .
- qq|| .
- qq| | |;
- }
-
- $column_data{description} =
- qq|{id}", "callback=$callback") .
- qq|">| . H($ref->{description}) . qq| | |;
- $column_data{description_long} =
- qq|| . H($ref->{description_long}) . qq| | |;
- $column_data{terms_netto} =
- qq|$ref->{terms_netto} | |;
- $column_data{terms_skonto} =
- qq|$ref->{terms_skonto} | |;
- $column_data{percent_skonto} =
- qq|| .
- $form->format_amount(\%myconfig, $ref->{percent_skonto} * 100) .
- qq|% | |;
- map { print "$column_data{$_}\n" } @column_index;
-
- print qq|
-
-|;
- $row++;
- }
-
- print qq|
-
- |
-
-
-
|
-
-
-
-
-
-
-
-