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

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

Return to bug 9224