View | Details | Raw Unified | Return to bug 9280
Collapse All | Expand All

(-)a/acqui/addorderiso2709.pl (-8 / +3 lines)
Lines 189-195 if ($op eq ""){ Link Here
189
            SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
189
            SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
190
        }
190
        }
191
        # 3rd add order
191
        # 3rd add order
192
        my $patron = C4::Members->GetMember( borrowernumber => $loggedinuser );
192
        my $patron = C4::Members::GetMember( borrowernumber => $loggedinuser );
193
        my $branch = C4::Branch->GetBranchDetail( $patron->{branchcode} );
193
        my $branch = C4::Branch->GetBranchDetail( $patron->{branchcode} );
194
        # get quantity in the MARC record (1 if none)
194
        # get quantity in the MARC record (1 if none)
195
        my $quantity = GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour')) || 1;
195
        my $quantity = GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour')) || 1;
Lines 222-233 if ($op eq ""){ Link Here
222
            my $basket     = GetBasket( $orderinfo{basketno} );
222
            my $basket     = GetBasket( $orderinfo{basketno} );
223
            my $bookseller = GetBookSellerFromId( $basket->{booksellerid} );
223
            my $bookseller = GetBookSellerFromId( $basket->{booksellerid} );
224
            $orderinfo{gstrate} = $bookseller->{gstrate};
224
            $orderinfo{gstrate} = $bookseller->{gstrate};
225
            if ( $bookseller->{listincgst} ) {
225
            $orderinfo{rrp}   = $price;
226
                $orderinfo{ecost} = $price;
226
            $orderinfo{ecost} = $orderinfo{rrp} * ( 1 - $bookseller->{discount} / 100 );
227
            } else {
228
                $orderinfo{ecost} = $price * ( 1 + $orderinfo{gstrate} );
229
            }
230
            $orderinfo{rrp} = ( $orderinfo{ecost} * 100 ) / ( 100 - $bookseller->{discount} );
231
            $orderinfo{listprice} = $orderinfo{rrp};
227
            $orderinfo{listprice} = $orderinfo{rrp};
232
            $orderinfo{unitprice} = $orderinfo{ecost};
228
            $orderinfo{unitprice} = $orderinfo{ecost};
233
            $orderinfo{total} = $orderinfo{ecost};
229
            $orderinfo{total} = $orderinfo{ecost};
234
- 

Return to bug 9280