Revision 27562848
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 76 | 76 |
|
| 77 | 77 |
$form->create_links("AP", \%myconfig, "vendor");
|
| 78 | 78 |
|
| 79 |
#quote all_vendor Bug 133 |
|
| 80 |
foreach $ref (@{ $form->{all_vendor} }) {
|
|
| 81 |
$ref->{name} = $form->quote($ref->{name});
|
|
| 82 |
} |
|
| 83 |
|
|
| 79 | 84 |
if ($form->{all_vendor}) {
|
| 80 | 85 |
unless ($form->{vendor_id}) {
|
| 81 | 86 |
$form->{vendor_id} = $form->{all_vendor}->[0]->{id};
|
| ... | ... | |
| 219 | 224 |
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
| 220 | 225 |
} |
| 221 | 226 |
|
| 227 |
#quote selectvendor Bug 133 |
|
| 228 |
$form->{"selectvendor"} = $form->quote($form->{"selectvendor"});
|
|
| 229 |
|
|
| 222 | 230 |
$form->{exchangerate} =
|
| 223 | 231 |
$form->format_amount(\%myconfig, $form->{exchangerate});
|
| 224 | 232 |
|
| bin/mozilla/is.pl | ||
|---|---|---|
| 138 | 138 |
|
| 139 | 139 |
$cp_id = $form->{cp_id};
|
| 140 | 140 |
IS->get_customer(\%myconfig, \%$form); |
| 141 |
#quote all_customer Bug 133 |
|
| 142 |
foreach $ref (@{ $form->{all_customer} }) {
|
|
| 143 |
$ref->{name} = $form->quote($ref->{name});
|
|
| 144 |
} |
|
| 141 | 145 |
if ($id) {
|
| 142 | 146 |
$form->{id} = $id;
|
| 143 | 147 |
} |
| ... | ... | |
| 381 | 385 |
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
| 382 | 386 |
} |
| 383 | 387 |
|
| 388 |
#quote customer Bug 133 |
|
| 389 |
$form->{selectcustomer} = $form->quote($form->{selectcustomer});
|
|
| 390 |
|
|
| 384 | 391 |
#build contacts |
| 385 | 392 |
if ($form->{all_contacts}) {
|
| 386 | 393 |
|
| 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