X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=7084aa388b7c52c0f181b9546efc3ec768f8d0d3;hb=bdaa8c2f669c9ddcc2f0c8989fed52559d59be43;hp=a21cfbbfd789166aceb5bdd5136cf7939e9a1eeb;hpb=5bfd9281b2152b84f444469eec2674dc8fc4f631;p=kivitendo-erp.git diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl index a21cfbbfd..7084aa388 100644 --- a/bin/mozilla/am.pl +++ b/bin/mozilla/am.pl @@ -40,6 +40,8 @@ use Data::Dumper; 1; +require "$form->{path}/common.pl"; + # end of main sub add { &{"add_$form->{type}"} } @@ -92,14 +94,13 @@ sub account_header { $form->{description} =~ s/\"/"/g; if (@{ $form->{TAXKEY} }) { - $form->{selecttaxkey} = ""; @@ -330,8 +331,8 @@ sub account_header { {inventory_accno_id}> {income_accno_id}> {expense_accno_id}> -{fxgain_accno_id}> -{fxloss_accno_id}> +{fxgain_accno_id}> +{fxloss_accno_id}>
|
@@ -479,7 +482,6 @@ sub form_footer {
{password}>
|; -#print(STDERR "$form->{type} TYPE $form->{new_chart_valid} CHART_VALID\n"); if ((!$form->{id}) || ($form->{id} && $form->{orphaned}) || (($form->{type} eq "account") && (!$form->{new_chart_valid}))) { print qq| |; } - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - print qq| @@ -823,11 +820,6 @@ sub gifi_footer { } } - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - print qq| @@ -998,14 +990,8 @@ sub list_department { {password}> |; - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } + . $locale->text('Add') . qq|"> - print qq| |
$form->{title} | +
---|
{script}?action=edit_lead&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{lead} | |; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| +