Revision 27562848
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
|
|
||
|
$form->create_links("AP", \%myconfig, "vendor");
|
||
|
|
||
|
#quote all_vendor Bug 133
|
||
|
foreach $ref (@{ $form->{all_vendor} }) {
|
||
|
$ref->{name} = $form->quote($ref->{name});
|
||
|
}
|
||
|
|
||
|
if ($form->{all_vendor}) {
|
||
|
unless ($form->{vendor_id}) {
|
||
|
$form->{vendor_id} = $form->{all_vendor}->[0]->{id};
|
||
| ... | ... | |
|
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
||
|
}
|
||
|
|
||
|
#quote selectvendor Bug 133
|
||
|
$form->{"selectvendor"} = $form->quote($form->{"selectvendor"});
|
||
|
|
||
|
$form->{exchangerate} =
|
||
|
$form->format_amount(\%myconfig, $form->{exchangerate});
|
||
|
|
||
| bin/mozilla/is.pl | ||
|---|---|---|
|
|
||
|
$cp_id = $form->{cp_id};
|
||
|
IS->get_customer(\%myconfig, \%$form);
|
||
|
#quote all_customer Bug 133
|
||
|
foreach $ref (@{ $form->{all_customer} }) {
|
||
|
$ref->{name} = $form->quote($ref->{name});
|
||
|
}
|
||
|
if ($id) {
|
||
|
$form->{id} = $id;
|
||
|
}
|
||
| ... | ... | |
|
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
||
|
}
|
||
|
|
||
|
#quote customer Bug 133
|
||
|
$form->{selectcustomer} = $form->quote($form->{selectcustomer});
|
||
|
|
||
|
#build contacts
|
||
|
if ($form->{all_contacts}) {
|
||
|
|
||
| bin/mozilla/oe.pl | ||
|---|---|---|
|
# Order entry module
|
||
|
# Quotation module
|
||
|
#======================================================================
|
||
|
use Data::Dumper;
|
||
|
|
||
|
use SL::OE;
|
||
|
use SL::IR;
|
||
| ... | ... | |
|
# get customer / vendor
|
||
|
if ($form->{type} =~ /(purchase_order|request_quotation|receive_order)/) {
|
||
|
IR->get_vendor(\%myconfig, \%$form);
|
||
|
|
||
|
#quote all_vendor Bug 133
|
||
|
foreach $ref (@{ $form->{all_vendor} }) {
|
||
|
$ref->{name} = $form->quote($ref->{name});
|
||
|
}
|
||
|
|
||
|
}
|
||
|
if ($form->{type} =~ /(sales|ship)_(order|quotation)/) {
|
||
|
IS->get_customer(\%myconfig, \%$form);
|
||
|
|
||
|
#quote all_vendor Bug 133
|
||
|
foreach $ref (@{ $form->{all_customer} }) {
|
||
|
$ref->{name} = $form->quote($ref->{name});
|
||
|
}
|
||
|
|
||
|
}
|
||
|
$form->{cp_id} = $cp_id;
|
||
|
if ($payment_id) {
|
||
| ... | ... | |
|
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
||
|
}
|
||
|
|
||
|
#quote select[customer|vendor] Bug 133
|
||
|
$form->{"select$form->{vc}"} = $form->quote($form->{"select$form->{vc}"});
|
||
|
|
||
|
#build contacts
|
||
|
if ($form->{all_contacts}) {
|
||
|
|
||
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