<input type=hidden name=selecttaxkey value="$form->{selecttaxkey}">
</tr>|;
- #print(STDERR Dumper($form->{NEWACCOUNT}));
if (@{ $form->{NEWACCOUNT} }) {
if (!$form->{new_chart_valid}) {
$form->{selectnewaccount} = "<option value=></option>";
<input type=hidden name=inventory_accno_id value=$form->{inventory_accno_id}>
<input type=hidden name=income_accno_id value=$form->{income_accno_id}>
<input type=hidden name=expense_accno_id value=$form->{expense_accno_id}>
-<input type=hidden name=fxgain_accno_id values=$form->{fxgain_accno_id}>
-<input type=hidden name=fxloss_accno_id values=$form->{fxloss_accno_id}>
+<input type=hidden name=fxgain_accno_id value=$form->{fxgain_accno_id}>
+<input type=hidden name=fxloss_accno_id value=$form->{fxloss_accno_id}>
<table border=0 width=100%>
<tr>
<input type=hidden name=password value=$form->{password}>
<br>|;
-#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|
<input type=submit class=submit name=action value="|
$lxdebug->leave_sub();
}
+sub add_lead {
+ $lxdebug->enter_sub();
+
+ $form->{title} = "Add";
+
+ $form->{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|<th class=listheading width=100%>|
+ . $locale->text('Description')
+ . qq|</th>|;
+
+ $form->header;
+
+ print qq|
+<body>
+
+<table width=100%>
+ <tr>
+ <th class=listtop>$form->{title}</th>
+ </tr>
+ <tr height="5"></tr>
+ <tr class=listheading>
+|;
+
+ map { print "$column_header{$_}\n" } @column_index;
+
+ print qq|
+ </tr>
+|;
+
+ foreach $ref (@{ $form->{ALL} }) {
+
+ $i++;
+ $i %= 2;
+
+ print qq|
+ <tr valign=top class=listrow$i>
+|;
+
+ $lead = $ref->{lead};
+
+ $column_data{description} =
+ qq|<td><a href=$form->{script}?action=edit_lead&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{lead}</td>|;
+
+ map { print "$column_data{$_}\n" } @column_index;
+
+ print qq|
+ </tr>
+|;
+ }
+
+ print qq|
+ <tr>
+ <td><hr size=3 noshade></td>
+ </tr>
+</table>
+
+<br>
+<form method=post action=$form->{script}>
+
+<input name=callback type=hidden value="$form->{callback}">
+
+<input type=hidden name=type value=lead>
+
+<input type=hidden name=path value=$form->{path}>
+<input type=hidden name=login value=$form->{login}>
+<input type=hidden name=password value=$form->{password}>
+
+<input class=submit type=submit name=action value="|
+ . $locale->text('Add') . qq|">|;
+
+ if ($form->{menubar}) {
+ require "$form->{path}/menu.pl";
+ &menubar;
+ }
+
+ print qq|
+ </form>
+
+ </body>
+ </html>
+|;
+
+ $lxdebug->leave_sub();
+}
+
+sub lead_header {
+ $lxdebug->enter_sub();
+
+ $form->{title} = $locale->text("$form->{title} Lead");
+
+ # $locale->text('Add Lead')
+ # $locale->text('Edit Lead')
+
+ $form->{description} =~ s/\"/"/g;
+
+ $description =
+ qq|<input name=description size=50 value="$form->{lead}">|;
+
+ $form->header;
+
+ print qq|
+<body>
+
+<form method=post action=$form->{script}>
+
+<input type=hidden name=id value=$form->{id}>
+<input type=hidden name=type value=lead>
+
+<table width=100%>
+ <tr>
+ <th class=listtop colspan=2>$form->{title}</th>
+ </tr>
+ <tr height="5"></tr>
+ <tr>
+ <th align=right>| . $locale->text('Description') . qq|</th>
+ <td>$description</td>
+ </tr>
+ <td colspan=2><hr size=3 noshade></td>
+ </tr>
+</table>
+|;
+
+ $lxdebug->leave_sub();
+}
+
+sub save_lead {
+ $lxdebug->enter_sub();
+
+ $form->isblank("description", $locale->text('Description missing!'));
+ AM->save_lead(\%myconfig, \%$form);
+ $form->redirect($locale->text('lead saved!'));
+
+ $lxdebug->leave_sub();
+}
+
+sub delete_lead {
+ $lxdebug->enter_sub();
+
+ AM->delete_lead(\%myconfig, \%$form);
+ $form->redirect($locale->text('lead deleted!'));
+
+ $lxdebug->leave_sub();
+}
+
sub add_business {
$lxdebug->enter_sub();
}
}
- #print(STDERR Dumper($delete_units));
- #print(STDERR Dumper($new_units));
-
AM->save_units(\%myconfig, $form, $form->{"unit_type"}, $new_units, \@delete_units);
$form->{"saved_message"} = $locale->text("The units have been saved.");
projects / kivitendo-erp.git / blobdiff