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 |
- |
|
|