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

(-)a/acqui/finishreceive.pl (-13 / +8 lines)
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
- 

Return to bug 9224