|
Lines 56-61
my $rrp = $input->param('rrp');
Link Here
|
| 56 |
my $note = $input->param("note"); |
56 |
my $note = $input->param("note"); |
| 57 |
my $bookfund = $input->param("bookfund"); |
57 |
my $bookfund = $input->param("bookfund"); |
| 58 |
my $order = GetOrder($ordernumber); |
58 |
my $order = GetOrder($ordernumber); |
|
|
59 |
my $new_ordernumber = $ordernumber; |
| 59 |
|
60 |
|
| 60 |
#need old recievedate if we update the order, parcel.pl only shows the right parcel this way FIXME |
61 |
#need old recievedate if we update the order, parcel.pl only shows the right parcel this way FIXME |
| 61 |
if ($quantityrec > $origquantityrec ) { |
62 |
if ($quantityrec > $origquantityrec ) { |
|
Lines 97-103
if ($quantityrec > $origquantityrec ) {
Link Here
|
| 97 |
} |
98 |
} |
| 98 |
} |
99 |
} |
| 99 |
|
100 |
|
| 100 |
my $new_ordernumber = $ordernumber; |
|
|
| 101 |
# save the quantity received. |
101 |
# save the quantity received. |
| 102 |
if ( $quantityrec > 0 ) { |
102 |
if ( $quantityrec > 0 ) { |
| 103 |
($datereceived, $new_ordernumber) = ModReceiveOrder( |
103 |
($datereceived, $new_ordernumber) = ModReceiveOrder( |
|
Lines 163-168
ModItem(
Link Here
|
| 163 |
}, |
163 |
}, |
| 164 |
$biblionumber, |
164 |
$biblionumber, |
| 165 |
$_ |
165 |
$_ |
| 166 |
) foreach GetItemnumbersFromOrder($ordernumber); |
166 |
) foreach GetItemnumbersFromOrder($new_ordernumber); |
| 167 |
|
167 |
|
| 168 |
print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoiceid=$invoiceid"); |
168 |
print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoiceid=$invoiceid"); |
| 169 |
- |
|
|