|
Lines 60-72
sub new {
Link Here
|
| 60 |
return; |
60 |
return; |
| 61 |
} |
61 |
} |
| 62 |
if ( !$self->{recipient} ) { |
62 |
if ( !$self->{recipient} ) { |
| 63 |
carp |
63 |
carp 'No vendor passed to order creation: basket = ' |
| 64 |
"No vendor passed to order creation: basket = $self->{basket}->basketno()"; |
64 |
. $self->{basket}->basketno; |
| 65 |
return; |
65 |
return; |
| 66 |
} |
66 |
} |
| 67 |
if ( !$self->{sender} ) { |
67 |
if ( !$self->{sender} ) { |
| 68 |
carp |
68 |
carp 'No sender ean passed to order creation: basket = ' |
| 69 |
"No sender ean passed to order creation: basket = $self->{basket}->basketno()"; |
69 |
. $self->{basket}->basketno; |
| 70 |
return; |
70 |
return; |
| 71 |
} |
71 |
} |
| 72 |
|
72 |
|
| 73 |
- |
|
|