Lines 153-172
if ($quantityrec > $origquantityrec ) {
Link Here
|
153 |
} |
153 |
} |
154 |
} |
154 |
} |
155 |
|
155 |
|
156 |
update_item( $_ ) foreach GetItemnumbersFromOrder( $ordernumber ); |
156 |
ModItem( |
157 |
|
157 |
{ |
158 |
print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoiceid=$invoiceid"); |
|
|
159 |
|
160 |
################################ End of script ################################ |
161 |
|
162 |
sub update_item { |
163 |
my ( $itemnumber ) = @_; |
164 |
|
165 |
ModItem( { |
166 |
booksellerid => $booksellerid, |
158 |
booksellerid => $booksellerid, |
167 |
dateaccessioned => $datereceived, |
159 |
dateaccessioned => $datereceived, |
168 |
price => $unitprice, |
160 |
price => $unitprice, |
169 |
replacementprice => $rrp, |
161 |
replacementprice => $rrp, |
170 |
replacementpricedate => $datereceived, |
162 |
replacementpricedate => $datereceived, |
171 |
}, $biblionumber, $itemnumber ); |
163 |
}, |
172 |
} |
164 |
$biblionumber, |
|
|
165 |
$_ |
166 |
) foreach GetItemnumbersFromOrder($ordernumber); |
167 |
|
168 |
print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoiceid=$invoiceid"); |
173 |
- |
|
|