Revision e3bd5746
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/ct.pl | ||
|---|---|---|
| 57 | 57 |
"$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
| 58 | 58 |
unless $form->{callback};
|
| 59 | 59 |
|
| 60 |
CT->taxaccounts(\%myconfig, \%$form);
|
|
| 60 |
CT->populate_drop_down_boxes(\%myconfig, \%$form);
|
|
| 61 | 61 |
|
| 62 | 62 |
&form_header; |
| 63 | 63 |
&form_footer; |
| ... | ... | |
| 567 | 567 |
# $locale->text('Edit Vendor')
|
| 568 | 568 |
|
| 569 | 569 |
CT->get_tuple(\%myconfig, \%$form); |
| 570 |
CT->populate_drop_down_boxes(\%myconfig, \%$form); |
|
| 570 | 571 |
|
| 571 | 572 |
# format " into " |
| 572 | 573 |
map { $form->{$_} =~ s/\"/"/g } keys %$form;
|
| ... | ... | |
| 712 | 713 |
<td><select id=delivery_id name=delivery_id onChange="get_delivery(['shipto_id__' + this.value, 'from__' + from.value, 'to__' + to.value, 'id__' + cvid.value, 'db__' + db.value], ['delivery'])">$form->{selectshipto}</select></td>
|
| 713 | 714 |
</tr>|; |
| 714 | 715 |
|
| 715 |
foreach $item (split / /, $form->{taxaccounts}) {
|
|
| 716 |
if (($form->{tax}{$item}{taxable}) || !($form->{id})) {
|
|
| 717 |
$taxable .= |
|
| 718 |
qq| <input name="tax_$item" value=1 class=checkbox type=checkbox checked> <b>$form->{tax}{$item}{description}</b>|;
|
|
| 719 |
} else {
|
|
| 720 |
$taxable .= |
|
| 721 |
qq| <input name="tax_$item" value=1 class=checkbox type=checkbox> <b>$form->{tax}{$item}{description}</b>|;
|
|
| 722 |
} |
|
| 723 |
} |
|
| 724 |
|
|
| 725 |
##LINET |
|
| 726 |
$taxable = ""; |
|
| 727 |
|
|
| 728 |
if ($taxable) {
|
|
| 729 |
$tax = qq| |
|
| 730 |
<tr> |
|
| 731 |
<th align=right>| . $locale->text('Taxable') . qq|</th>
|
|
| 732 |
<td colspan=2> |
|
| 733 |
<table> |
|
| 734 |
<tr> |
|
| 735 |
<td>$taxable</td> |
|
| 736 |
<td><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
|
|
| 737 |
<th align=left>| . $locale->text('Tax Included') . qq|</th>
|
|
| 738 |
</tr> |
|
| 739 |
</table> |
|
| 740 |
</td> |
|
| 741 |
</tr> |
|
| 742 |
|; |
|
| 743 |
} |
|
| 744 | 716 |
$form->{selectbusiness} = qq|<option>\n|;
|
| 745 | 717 |
map {
|
| 746 | 718 |
$form->{selectbusiness} .=
|
| ... | ... | |
| 1208 | 1180 |
|
| 1209 | 1181 |
print qq| |
| 1210 | 1182 |
<input name=id type=hidden id=cvid value=$form->{id}>
|
| 1211 |
<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
|
|
| 1212 | 1183 |
<input name=business_save type=hidden value="$form->{selectbusiness}">
|
| 1213 | 1184 |
<input name=title_save type=hidden value="$form->{title}">
|
| 1214 | 1185 |
|
Auch abrufbar als: Unified diff
Restfunktionalität von customertax und vendortax entfernt.