X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fam.pl;h=6ff99978453acc03e40ff4ae863face873e03087;hb=9fd46de37d7906b7c104c17112b34bae7d534d67;hp=fcaf0b2a5691949519f8ef9991e45f69405b968b;hpb=e07e9534d0c611913e31bc620c65e46701e5f000;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index fcaf0b2a5..6ff999784 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -1110,7 +1110,7 @@ sub list_business {
|;
$discount =
- $form->format_amount(\%myconfig, $ref->{discount} * 100, 1, " ");
+ $form->format_amount(\%myconfig, $ref->{discount} * 100);
$description =
($ref->{salesman})
? "$ref->{description}"
@@ -1216,6 +1216,7 @@ sub save_business {
$lxdebug->enter_sub();
$form->isblank("description", $locale->text('Description missing!'));
+ $form->{discount} = $form->parse_amount(\%myconfig, $form->{discount}) / 100;
AM->save_business(\%myconfig, \%$form);
$form->redirect($locale->text('Business saved!'));
@@ -1645,7 +1646,7 @@ sub list_buchungsgruppe {
$column_data{up} =
qq|
| .
qq|| .
- qq| | .
+ qq| | .
qq| | |;
} else {
$column_data{up} = qq| | |;
@@ -1658,7 +1659,7 @@ sub list_buchungsgruppe {
$column_data{down} =
qq|| .
qq|| .
- qq| | .
+ qq| | .
qq| | |;
}
@@ -2091,7 +2092,6 @@ sub delete_printer {
$lxdebug->leave_sub();
}
-
sub add_payment {
$lxdebug->enter_sub();
@@ -2213,7 +2213,7 @@ sub list_payment {
$column_data{up} =
qq|| .
qq|| .
- qq| | .
+ qq| | .
qq| | |;
} else {
$column_data{up} = qq| | |;
@@ -2226,7 +2226,7 @@ sub list_payment {
$column_data{down} =
qq|| .
qq|| .
- qq| | .
+ qq| | .
qq| | |;
}
@@ -2416,209 +2416,6 @@ sub swap_payment_terms {
$lxdebug->leave_sub();
}
-sub add_sic {
- $lxdebug->enter_sub();
-
- $form->{title} = "Add";
-
- $form->{callback} =
- "$form->{script}?action=add_sic&path=$form->{path}&login=$form->{login}&password=$form->{password}"
- unless $form->{callback};
-
- &sic_header;
- &form_footer;
-
- $lxdebug->leave_sub();
-}
-
-sub edit_sic {
- $lxdebug->enter_sub();
-
- $form->{title} = "Edit";
-
- AM->get_sic(\%myconfig, \%$form);
-
- &sic_header;
-
- $form->{orphaned} = 1;
- &form_footer;
-
- $lxdebug->leave_sub();
-}
-
-sub list_sic {
- $lxdebug->enter_sub();
-
- AM->sic(\%myconfig, \%$form);
-
- $form->{callback} =
- "$form->{script}?action=list_sic&path=$form->{path}&login=$form->{login}&password=$form->{password}";
-
- $callback = $form->escape($form->{callback});
-
- $form->{title} = $locale->text('Standard Industrial Codes');
-
- @column_index = qw(code description);
-
- $column_header{code} =
- qq|| . $locale->text('Code') . qq| | |;
- $column_header{description} =
- qq|| . $locale->text('Description') . qq| | |;
-
- $form->header;
-
- print qq|
-
-
-
-
- $form->{title} |
-
-
-
-
-
- |
-
-
-
|
-
-
-
-
-
-
-
-