X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=bin%2Fmozilla%2Fam.pl;h=80f05084be3ee47923acc7892b19d768e5ba2cab;hb=db68b6fd72b9f0d7d8be953746c0e7d6154f5eaf;hp=d25eb7e308977f6f49a232dfe6d1d4a4949a39af;hpb=9a795b8553bd43a379646bc6244c618e570556e9;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index d25eb7e30..80f05084b 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!'));
@@ -2091,7 +2092,6 @@ sub delete_printer {
$lxdebug->leave_sub();
}
-
sub add_payment {
$lxdebug->enter_sub();
@@ -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} |
-
-
-
-
-
- |
-
-
-
|
-
-
-
-
-
-
-
-