Revision f2eba9e7
Von Werner Hahn vor etwa 7 Jahren hinzugefügt
SL/ShopConnector/Shopware.pm | ||
---|---|---|
47 | 47 |
billing_email => $import->{data}->{customer}->{email}, |
48 | 48 |
billing_fax => $import->{data}->{billing}->{fax}, |
49 | 49 |
billing_firstname => $import->{data}->{billing}->{firstName}, |
50 |
billing_greeting => ($import->{data}->{billing}->{salutation} eq 'mr' ? 'Herr' : 'Frau'), |
|
50 |
#billing_greeting => ($import->{data}->{billing}->{salutation} eq 'mr' ? 'Herr' : 'Frau'),
|
|
51 | 51 |
billing_lastname => $import->{data}->{billing}->{lastName}, |
52 | 52 |
billing_phone => $import->{data}->{billing}->{phone}, |
53 | 53 |
billing_street => $import->{data}->{billing}->{street}, |
... | ... | |
60 | 60 |
customer_email => $import->{data}->{customer}->{email}, |
61 | 61 |
customer_fax => $import->{data}->{billing}->{fax}, |
62 | 62 |
customer_firstname => $import->{data}->{billing}->{firstName}, |
63 |
customer_greeting => ($import->{data}->{billing}->{salutation} eq 'mr' ? 'Herr' : 'Frau'), |
|
63 |
#customer_greeting => ($import->{data}->{billing}->{salutation} eq 'mr' ? 'Herr' : 'Frau'),
|
|
64 | 64 |
customer_lastname => $import->{data}->{billing}->{lastName}, |
65 | 65 |
customer_phone => $import->{data}->{billing}->{phone}, |
66 | 66 |
customer_street => $import->{data}->{billing}->{street}, |
... | ... | |
74 | 74 |
delivery_email => "", |
75 | 75 |
delivery_fax => $import->{data}->{shipping}->{fax}, |
76 | 76 |
delivery_firstname => $import->{data}->{shipping}->{firstName}, |
77 |
delivery_greeting => ($import->{data}->{shipping}->{salutation} eq 'mr' ? 'Herr' : 'Frau'), |
|
77 |
#delivery_greeting => ($import->{data}->{shipping}->{salutation} eq 'mr' ? 'Herr' : 'Frau'),
|
|
78 | 78 |
delivery_lastname => $import->{data}->{shipping}->{lastName}, |
79 | 79 |
delivery_phone => $import->{data}->{shipping}->{phone}, |
80 | 80 |
delivery_street => $import->{data}->{shipping}->{street}, |
... | ... | |
170 | 170 |
#'payment_id' => 7345,# TODO hardcoded |
171 | 171 |
); |
172 | 172 |
my $customer = SL::DB::Customer->new(%address); |
173 |
$main::lxdebug->dump(0, 'WH:CUSTOMER ',\$customer); |
|
174 | 173 |
|
175 | 174 |
$customer->save; |
176 | 175 |
my $snumbers = "customernumber_" . $customer->customernumber; |
... | ... | |
199 | 198 |
$ordnumber++; |
200 | 199 |
} |
201 | 200 |
} |
202 |
my $shop = $self->config->description; |
|
203 |
|
|
204 |
my @fetched_orders = ($shop,$i); |
|
205 |
|
|
206 |
return \@fetched_orders; |
|
201 |
my $shop = $self->config->description; |
|
202 |
my @fetched_orders = ($shop,$i); |
|
203 |
return \@fetched_orders; |
|
207 | 204 |
}; |
208 | 205 |
|
209 | 206 |
sub get_categories { |
... | ... | |
340 | 337 |
customerGroupKey => 'EK', |
341 | 338 |
}, |
342 | 339 |
], |
343 |
attribute => { attr1 => $cvars->{botanischer_name}->{value}, } ,
|
|
340 |
#attribute => { attr1 => $cvars->{CVARNAME}->{value}, } , #HowTo handle attributes
|
|
344 | 341 |
}, |
345 |
supplier => $part->{microfiche}, |
|
342 |
supplier => 'Is needed by Shopware', #$part->{microfiche},
|
|
346 | 343 |
descriptionLong => $shop_part->{shop_description}, |
347 | 344 |
active => $shop_part->active, |
348 | 345 |
images => [ @upload_img ], |
Auch abrufbar als: Unified diff
Shopmdul: Kundenspezifische Änderungen raus. Beim Shopwareconnector fehlt noch der Hersteller