Revision 848ff82d
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 122 | 122 |
|
| 123 | 123 |
$form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";
|
| 124 | 124 |
|
| 125 |
# vendors |
|
| 126 |
if (@{ $form->{all_vendor} }) {
|
|
| 127 |
$form->{vendor} = "$form->{vendor}--$form->{vendor_id}";
|
|
| 128 |
map { $form->{selectvendor} .= "<option>$_->{name}--$_->{id}\n" }
|
|
| 129 |
(@{ $form->{all_vendor} });
|
|
| 130 |
} |
|
| 131 |
|
|
| 132 | 125 |
# departments |
| 133 | 126 |
if ($form->{all_departments}) {
|
| 134 | 127 |
$form->{selectdepartment} = "<option>\n";
|
| ... | ... | |
| 230 | 223 |
$form->{radier} =
|
| 231 | 224 |
($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
|
| 232 | 225 |
|
| 233 |
#quote selectvendor Bug 133 |
|
| 234 |
$form->{"selectvendor"} = $form->quote($form->{"selectvendor"});
|
|
| 235 |
|
|
| 236 |
#substitute \n and \r to \s (bug 543) |
|
| 237 |
$form->{"selectvendor"} =~ s/[\n\r]/ /g;
|
|
| 238 |
|
|
| 239 | 226 |
$form->{exchangerate} =
|
| 240 | 227 |
$form->format_amount(\%myconfig, $form->{exchangerate});
|
| 241 | 228 |
|
| ... | ... | |
| 353 | 340 |
push(@values, $item->{name}.qq|--|.$item->{"id"});
|
| 354 | 341 |
$labels{$item->{name}.qq|--|.$item->{"id"}} = $item->{"name"};
|
| 355 | 342 |
} |
| 343 |
|
|
| 344 |
$form->{selectvendor} = ($myconfig{vclimit} > scalar(@values));
|
|
| 345 |
|
|
| 356 | 346 |
my $vendors = qq| |
| 357 | 347 |
<th align="right">| . $locale->text('Vendor') . qq|</th>
|
| 358 | 348 |
<td>| . |
| 359 |
NTI($cgi->popup_menu('-name' => 'vendor', '-default' => $form->{"vendor"},
|
|
| 349 |
(($myconfig{vclimit} <= scalar(@values))
|
|
| 350 |
? qq|<input type="text" value="| . H($form->{vendor}) . qq|" name="vendor">|
|
|
| 351 |
: (NTI($cgi->popup_menu('-name' => 'vendor', '-default' => $form->{oldvendor},
|
|
| 360 | 352 |
'-onChange' => 'document.getElementById(\'update_button\').click();', |
| 361 |
'-values' => \@values, '-labels' => \%labels, '-style' => 'width: 250px')) . qq| |
|
| 353 |
'-values' => \@values, '-labels' => \%labels, '-style' => 'width: 250px')))) . qq|
|
|
| 362 | 354 |
<input type="button" value="?" onclick="show_vc_details('vendor')">
|
| 363 | 355 |
</td>|; |
| 364 | 356 |
|
| ... | ... | |
| 457 | 449 |
$vendors |
| 458 | 450 |
<input type="hidden" name="vendor_id" value="$form->{vendor_id}">
|
| 459 | 451 |
<input type="hidden" name="oldvendor" value="$form->{oldvendor}">
|
| 460 |
<input type="hidden" name="selectvendor" value= "1">
|
|
| 452 |
<input type="hidden" name="selectvendor" value= "$form->{selectvendor}">
|
|
| 461 | 453 |
$contact |
| 462 | 454 |
<tr> |
| 463 | 455 |
<td align="right">| . $locale->text('Credit Limit') . qq|</td>
|
Auch abrufbar als: Unified diff
Einkaufsrechnungen:
1. Es wird wieder die Eingabezeile für den Lieferantennamen angezeigt, wenn mehr als das vom Benutzer eingestellte Listenlimit an Lieferanten vorhanden sind.
2. Überflüssigen Code entfernt.