Revision 7f683e50
Von Jan Büren vor etwa 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2018 | 2018 |
my @values; |
| 2019 | 2019 |
|
| 2020 | 2020 |
foreach my $item (qw(name department_1 department_2 street zipcode city country |
| 2021 |
contact phone fax email)) {
|
|
| 2021 |
contact cp_gender phone fax email)) {
|
|
| 2022 | 2022 |
if ($self->{"shipto$item"}) {
|
| 2023 | 2023 |
$shipto = 1 if ($self->{$item} ne $self->{"shipto$item"});
|
| 2024 | 2024 |
} |
| ... | ... | |
| 2036 | 2036 |
shiptocity = ?, |
| 2037 | 2037 |
shiptocountry = ?, |
| 2038 | 2038 |
shiptocontact = ?, |
| 2039 |
shiptocp_gender = ?, |
|
| 2039 | 2040 |
shiptophone = ?, |
| 2040 | 2041 |
shiptofax = ?, |
| 2041 | 2042 |
shiptoemail = ? |
| ... | ... | |
| 2051 | 2052 |
shiptocity = ? AND |
| 2052 | 2053 |
shiptocountry = ? AND |
| 2053 | 2054 |
shiptocontact = ? AND |
| 2055 |
shiptocp_gender = ? AND |
|
| 2054 | 2056 |
shiptophone = ? AND |
| 2055 | 2057 |
shiptofax = ? AND |
| 2056 | 2058 |
shiptoemail = ? AND |
| ... | ... | |
| 2061 | 2063 |
$query = |
| 2062 | 2064 |
qq|INSERT INTO shipto (trans_id, shiptoname, shiptodepartment_1, shiptodepartment_2, |
| 2063 | 2065 |
shiptostreet, shiptozipcode, shiptocity, shiptocountry, |
| 2064 |
shiptocontact, shiptophone, shiptofax, shiptoemail, module) |
|
| 2065 |
VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)|; |
|
| 2066 |
shiptocontact, shiptocp_gender, shiptophone, shiptofax, shiptoemail, module)
|
|
| 2067 |
VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)|;
|
|
| 2066 | 2068 |
do_query($self, $dbh, $query, $id, @values, $module); |
| 2067 | 2069 |
} |
| 2068 | 2070 |
} |
Auch abrufbar als: Unified diff
Geschlecht fuer Ansprechpartner bei abweichender Lieferadresse als Auswahlfeld in do.pl anzeigen und als hidden feld entsprechend weitergeben