X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=1fe78205cfe8aa2cf2bc633b488a2348f8db793f;hb=a14a3ff56b00e22c39a2cfb0e465f8c7764a4cd4;hp=b60c1fa53b1f4f4ca27c7c29ce0dff1989bbc518;hpb=024df846ffcf9d315f068a50f3fac8a992791902;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index b60c1fa53..1fe78205c 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} = "";
@@ -363,7 +364,9 @@ sub account_header {
|
. $locale->text('Revenue') . qq|\n
|
- . $locale->text('Expense') . qq|
+ . $locale->text('Expense') . qq|
+ |
+ . $locale->text('Costs') . qq|
|
|
@@ -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|
{callback} =
+ "$form->{script}?action=add_lead&path=$form->{path}&login=$form->{login}&password=$form->{password}"
+ unless $form->{callback};
+
+ &lead_header;
+ &form_footer;
+
+ $lxdebug->leave_sub();
+}
+
+sub edit_lead {
+ $lxdebug->enter_sub();
+
+ $form->{title} = "Edit";
+
+ AM->get_lead(\%myconfig, \%$form);
+
+ &lead_header;
+
+ $form->{orphaned} = 1;
+ &form_footer;
+
+ $lxdebug->leave_sub();
+}
+
+sub list_lead {
+ $lxdebug->enter_sub();
+
+ AM->lead(\%myconfig, \%$form);
+
+ $form->{callback} =
+ "$form->{script}?action=list_lead&path=$form->{path}&login=$form->{login}&password=$form->{password}";
+
+ $callback = $form->escape($form->{callback});
+
+ $form->{title} = $locale->text('Lead');
+
+ @column_index = qw(description cost profit);
+
+ $column_header{description} =
+ qq| | |
+ . $locale->text('Description')
+ . qq| | |;
+
+ $form->header;
+
+ print qq|
+
+
+
+
+
+
+
+
+