Lines 186-192
for (my $i = 0 ; $i < $countlines ; $i++) {
Link Here
|
186 |
$line{gst} = $gst; |
186 |
$line{gst} = $gst; |
187 |
$line{total} = sprintf($cfstr, $total); |
187 |
$line{total} = sprintf($cfstr, $total); |
188 |
$line{booksellerid} = $booksellerid; |
188 |
$line{booksellerid} = $booksellerid; |
189 |
push @loop_received, \%line; |
|
|
190 |
$totalprice += $parcelitems[$i]->{'unitprice'}; |
189 |
$totalprice += $parcelitems[$i]->{'unitprice'}; |
191 |
$line{unitprice} = sprintf($cfstr, $parcelitems[$i]->{'unitprice'}); |
190 |
$line{unitprice} = sprintf($cfstr, $parcelitems[$i]->{'unitprice'}); |
192 |
|
191 |
|
Lines 195-200
for (my $i = 0 ; $i < $countlines ; $i++) {
Link Here
|
195 |
$line{surnamesuggestedby} = $suggestion->{surnamesuggestedby}; |
194 |
$line{surnamesuggestedby} = $suggestion->{surnamesuggestedby}; |
196 |
$line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby}; |
195 |
$line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby}; |
197 |
|
196 |
|
|
|
197 |
if ( $line{parent_ordernumber} != $line{ordernumber} ) { |
198 |
if ( grep { $_->{ordernumber} == $line{parent_ordernumber} } |
199 |
@parcelitems ) |
200 |
{ |
201 |
$line{cannot_cancel} = 1; |
202 |
} |
203 |
} |
204 |
|
205 |
push @loop_received, \%line; |
198 |
#double FIXME - totalfreight is redefined later. |
206 |
#double FIXME - totalfreight is redefined later. |
199 |
|
207 |
|
200 |
# FIXME - each order in a parcel holds the freight for the whole parcel. This means if you receive a parcel with items from multiple budgets, you'll see the freight charge in each budget.. |
208 |
# FIXME - each order in a parcel holds the freight for the whole parcel. This means if you receive a parcel with items from multiple budgets, you'll see the freight charge in each budget.. |