X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=c84772813d2b098c8602978f85e740dafd4f79dc;hb=3d9df149ec915037561bebce349e6d49584749e0;hp=e24e7c2eb1e5a0b937dff9ec91344199e739a2c6;hpb=2f833a265b6b21799b80724c59456a876ec36ed3;p=kivitendo-erp.git diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl index e24e7c2eb..c84772813 100644 --- a/bin/mozilla/am.pl +++ b/bin/mozilla/am.pl @@ -618,137 +618,32 @@ sub edit_lead { } sub list_lead { - $main::lxdebug->enter_sub(); - - my $form = $main::form; - my %myconfig = %main::myconfig; - my $locale = $main::locale; - - $main::auth->assert('config'); - - AM->lead(\%myconfig, \%$form); - - $form->{callback} = "am.pl?action=list_lead"; - - my $callback = $form->escape($form->{callback}); - - $form->{title} = $locale->text('Lead'); - - my @column_index = qw(description cost profit); - my %column_header; - $column_header{description} = - qq|
$form->{title} | -
---|
$ref->{lead} | |; - - map { print "$column_data{$_}\n" } @column_index; - - print qq| -