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