Revision d659dc18
Von Moritz Bunkus vor mehr als 7 Jahren hinzugefügt
| bin/mozilla/rp.pl | ||
|---|---|---|
| 174 | 174 |
|
| 175 | 175 |
$nextsub = "generate_$::form->{report}";
|
| 176 | 176 |
|
| 177 |
# setup vc selection |
|
| 178 |
$::form->all_vc(\%::myconfig, $::form->{vc}, $is_sales ? "AR" : "AP");
|
|
| 179 |
$vc .= "<option>$_->{name}--$_->{id}\n" for @{ $::form->{"all_$::form->{vc}"} };
|
|
| 180 |
$vc = ($vc) |
|
| 181 |
? qq|<select name=$::form->{vc} class="initial_focus"><option>\n$vc</select>|
|
|
| 182 |
: qq|<input name=$::form->{vc} size=35 class="initial_focus">|;
|
|
| 177 |
$vc = qq|<input name=$::form->{vc} size=35 class="initial_focus">|;
|
|
| 183 | 178 |
} |
| 184 | 179 |
|
| 185 | 180 |
my ($selection, $paymentaccounts); |
Auch abrufbar als: Unified diff
Berichte: $form->all_vc nicht mehr verwenden