Revision f9f5330a
Von Stephan Köhler vor etwa 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; |
... | ... | |
167 | 168 |
# get customer / vendor |
168 | 169 |
if ($form->{type} =~ /(purchase_order|request_quotation|receive_order)/) { |
169 | 170 |
IR->get_vendor(\%myconfig, \%$form); |
171 |
|
|
172 |
#quote all_vendor Bug 133 |
|
173 |
foreach $ref (@{ $form->{all_vendor} }) { |
|
174 |
$ref->{name} = $form->quote($ref->{name}); |
|
175 |
} |
|
176 |
|
|
170 | 177 |
} |
171 | 178 |
if ($form->{type} =~ /(sales|ship)_(order|quotation)/) { |
172 | 179 |
IS->get_customer(\%myconfig, \%$form); |
180 |
|
|
181 |
#quote all_vendor Bug 133 |
|
182 |
foreach $ref (@{ $form->{all_customer} }) { |
|
183 |
$ref->{name} = $form->quote($ref->{name}); |
|
184 |
} |
|
185 |
|
|
173 | 186 |
} |
174 | 187 |
$form->{cp_id} = $cp_id; |
175 | 188 |
|
... | ... | |
330 | 343 |
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; |
331 | 344 |
} |
332 | 345 |
|
346 |
#quote select[customer|vendor] Bug 133 |
|
347 |
$form->{"select$form->{vc}"} = $form->quote($form->{"select$form->{vc}"}); |
|
348 |
|
|
333 | 349 |
#build contacts |
334 | 350 |
if ($form->{all_contacts}) { |
335 | 351 |
|
Auch abrufbar als: Unified diff
Bugfix 133, Quoting fuer Kunden und Lieferanten rein, Dequoting wird nicht benoetigt,
Anfuehrungsstriche brachten Verkaufs- und Einkaufsmasken durcheinander