Lines 138-157
if ($quantityrec > $origquantityrec ) {
Link Here
|
138 |
|
138 |
|
139 |
} |
139 |
} |
140 |
|
140 |
|
141 |
update_item( $_ ) foreach GetItemnumbersFromOrder( $ordernumber ); |
141 |
ModItem( |
142 |
|
142 |
{ |
143 |
print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoiceid=$invoiceid"); |
|
|
144 |
|
145 |
################################ End of script ################################ |
146 |
|
147 |
sub update_item { |
148 |
my ( $itemnumber ) = @_; |
149 |
|
150 |
ModItem( { |
151 |
booksellerid => $booksellerid, |
143 |
booksellerid => $booksellerid, |
152 |
dateaccessioned => $datereceived, |
144 |
dateaccessioned => $datereceived, |
153 |
price => $unitprice, |
145 |
price => $unitprice, |
154 |
replacementprice => $rrp, |
146 |
replacementprice => $rrp, |
155 |
replacementpricedate => $datereceived, |
147 |
replacementpricedate => $datereceived, |
156 |
}, $biblionumber, $itemnumber ); |
148 |
}, |
157 |
} |
149 |
$biblionumber, |
|
|
150 |
$_ |
151 |
) foreach GetItemnumbersFromOrder($ordernumber); |
152 |
|
153 |
print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoiceid=$invoiceid"); |
158 |
- |
|
|