|
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 |
- |
|
|