@@ -357,10 +359,14 @@ sub account_header {
. $locale->text('Asset') . qq|\n
|
. $locale->text('Liability') . qq|\n
+ |
+ . $locale->text('Equity') . qq|\n
|
. $locale->text('Revenue') . qq|\n
|
- . $locale->text('Expense') . qq|
+ . $locale->text('Expense') . qq|
+ |
+ . $locale->text('Costs') . qq|
|
|
@@ -426,7 +432,7 @@ sub account_header {
{IC_sale}> |
. $locale->text('Revenue') . qq|\n
{IC_cogs}> |
- . $locale->text('COGS') . qq|\n
+ . $locale->text('Expense') . qq|\n
{IC_taxpart}> |
. $locale->text('Tax') . qq|
|
@@ -476,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|
+
+
+
+
+
+
+
+
+