X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fam.pl;h=9abf79883f5127cc672663e0fa5956ae83416b91;hb=b5c3b69626032bd48dfdce13d9795acf2eff89fd;hp=0030eb51b81a580174b8ba24367854a8be70eb77;hpb=2ff2f6c9c9f95845ddb83d1cef264e580977759c;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 0030eb51b..9abf79883 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -46,8 +46,6 @@ use SL::Printer;
use CGI::Ajax;
use CGI;
-use Data::Dumper;
-
require "bin/mozilla/common.pl";
use strict;
@@ -822,251 +820,6 @@ sub delete_lead {
$main::lxdebug->leave_sub();
}
-sub add_business {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
-
- $main::auth->assert('config');
-
- $form->{title} = "Add";
-
- $form->{callback} = "am.pl?action=add_business" unless $form->{callback};
-
- &business_header;
- &form_footer;
-
- $main::lxdebug->leave_sub();
-}
-
-sub edit_business {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- $form->{title} = "Edit";
-
- AM->get_business(\%myconfig, \%$form);
-
- &business_header;
-
- $form->{orphaned} = 1;
- &form_footer;
-
- $main::lxdebug->leave_sub();
-}
-
-sub list_business {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
- my $locale = $main::locale;
-
- $main::auth->assert('config');
-
- AM->business(\%myconfig, \%$form);
-
- $form->{callback} = "am.pl?action=list_business";
-
- my $callback = $form->escape($form->{callback});
-
- $form->{title} = $locale->text('Type of Business');
-
- my @column_index = qw(description discount customernumberinit);
- push @column_index, 'salesman' if $::lx_office_conf{features}->{vertreter};
- my %column_header;
- $column_header{description} =
- qq|
|
- . $locale->text('Description')
- . qq| | |;
- $column_header{discount} =
- qq||
- . $locale->text('Discount')
- . qq| % | |;
- $column_header{customernumberinit} =
- qq||
- . $locale->text('Customernumberinit')
- . qq| | |;
- $column_header{salesman} =
- qq||
- . $locale->text('Representative')
- . qq| | |;
-
- $form->header;
-
- print qq|
-
-
-
-
- $form->{title} |
-
-
-
-
-
-
-|;
-
- map { print "$column_header{$_}\n" } @column_index;
-
- print qq|
-
-|;
-
- my ($i, %column_data);
- foreach my $ref (@{ $form->{ALL} }) {
-
- $i++;
- $i %= 2;
-
- print qq|
-
-|;
-
- my $discount = $form->format_amount(\%myconfig, $ref->{discount} * 100);
- my $description = $ref->{description};
- $column_data{description} = qq|$description | |;
- $column_data{discount} = qq|$discount | |;
- $column_data{customernumberinit} =
- qq|$ref->{customernumberinit} | |;
- $column_data{salesman} = '' . ($ref->{salesman} ? $::locale->text('Yes') : $::locale->text('No')) . ' | ';
-
- map { print "$column_data{$_}\n" } @column_index;
-
- print qq|
-
-|;
- }
-
- print qq|
-
- |
-
-
-
|
-
-
-
-
-
-
-
-