Revision 27562848
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
bin/mozilla/oe.pl | ||
---|---|---|
30 | 30 |
# Order entry module |
31 | 31 |
# Quotation module |
32 | 32 |
#====================================================================== |
33 |
use Data::Dumper; |
|
33 | 34 |
|
34 | 35 |
use SL::OE; |
35 | 36 |
use SL::IR; |
... | ... | |
188 | 189 |
# get customer / vendor |
189 | 190 |
if ($form->{type} =~ /(purchase_order|request_quotation|receive_order)/) { |
190 | 191 |
IR->get_vendor(\%myconfig, \%$form); |
192 |
|
|
193 |
#quote all_vendor Bug 133 |
|
194 |
foreach $ref (@{ $form->{all_vendor} }) { |
|
195 |
$ref->{name} = $form->quote($ref->{name}); |
|
196 |
} |
|
197 |
|
|
191 | 198 |
} |
192 | 199 |
if ($form->{type} =~ /(sales|ship)_(order|quotation)/) { |
193 | 200 |
IS->get_customer(\%myconfig, \%$form); |
201 |
|
|
202 |
#quote all_vendor Bug 133 |
|
203 |
foreach $ref (@{ $form->{all_customer} }) { |
|
204 |
$ref->{name} = $form->quote($ref->{name}); |
|
205 |
} |
|
206 |
|
|
194 | 207 |
} |
195 | 208 |
$form->{cp_id} = $cp_id; |
196 | 209 |
if ($payment_id) { |
... | ... | |
367 | 380 |
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; |
368 | 381 |
} |
369 | 382 |
|
383 |
#quote select[customer|vendor] Bug 133 |
|
384 |
$form->{"select$form->{vc}"} = $form->quote($form->{"select$form->{vc}"}); |
|
385 |
|
|
370 | 386 |
#build contacts |
371 | 387 |
if ($form->{all_contacts}) { |
372 | 388 |
|
Auch abrufbar als: Unified diff
Recommit von r1183 von skoehler: Bugfix 133, Quoting fuer Kunden und Lieferanten rein, Dequoting wird nicht benoetigt, Anfuehrungsstriche brachten Verkaufs- und Einkaufsmasken durcheinander