X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fam.pl;h=d8eb1a2177a1a112cdddeb492ae960ac67e4d187;hb=c046c42244acda83029d00cb06ff636063765fb2;hp=fcaf0b2a5691949519f8ef9991e45f69405b968b;hpb=e07e9534d0c611913e31bc620c65e46701e5f000;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index fcaf0b2a5..d8eb1a217 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!'));
@@ -2416,209 +2417,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} |
-
-
-
-
-
- |
-
-
-
|
-
-
-
-
-
-
-
-