Lines 142-148
for (my $i = 0 ; $i < $countlines ; $i++) {
Link Here
|
142 |
$line{gst} = $gst; |
142 |
$line{gst} = $gst; |
143 |
$line{total} = sprintf($cfstr, $total); |
143 |
$line{total} = sprintf($cfstr, $total); |
144 |
$line{booksellerid} = $booksellerid; |
144 |
$line{booksellerid} = $booksellerid; |
145 |
push @loop_received, \%line; |
|
|
146 |
$totalprice += $parcelitems[$i]->{'unitprice'}; |
145 |
$totalprice += $parcelitems[$i]->{'unitprice'}; |
147 |
$line{unitprice} = sprintf($cfstr, $parcelitems[$i]->{'unitprice'}); |
146 |
$line{unitprice} = sprintf($cfstr, $parcelitems[$i]->{'unitprice'}); |
148 |
|
147 |
|
Lines 151-156
for (my $i = 0 ; $i < $countlines ; $i++) {
Link Here
|
151 |
$line{surnamesuggestedby} = $suggestion->{surnamesuggestedby}; |
150 |
$line{surnamesuggestedby} = $suggestion->{surnamesuggestedby}; |
152 |
$line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby}; |
151 |
$line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby}; |
153 |
|
152 |
|
|
|
153 |
if ( $line{parent_ordernumber} != $line{ordernumber} ) { |
154 |
if ( grep { $_->{ordernumber} == $line{parent_ordernumber} } |
155 |
@parcelitems ) |
156 |
{ |
157 |
$line{cannot_cancel} = 1; |
158 |
} |
159 |
} |
160 |
|
161 |
push @loop_received, \%line; |
154 |
#double FIXME - totalfreight is redefined later. |
162 |
#double FIXME - totalfreight is redefined later. |
155 |
|
163 |
|
156 |
# 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.. |
164 |
# 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.. |