|
Lines 76-81
if ( any { $order->{$_} ne $tplorder{$_} } qw(quantity quantityreceived notes rr
Link Here
|
| 76 |
if ($quantityrec > $origquantityrec ) { |
76 |
if ($quantityrec > $origquantityrec ) { |
| 77 |
# now, add items if applicable |
77 |
# now, add items if applicable |
| 78 |
if (C4::Context->preference('AcqCreateItem') eq 'receiving') { |
78 |
if (C4::Context->preference('AcqCreateItem') eq 'receiving') { |
|
|
79 |
|
| 79 |
my @tags = $input->param('tag'); |
80 |
my @tags = $input->param('tag'); |
| 80 |
my @subfields = $input->param('subfield'); |
81 |
my @subfields = $input->param('subfield'); |
| 81 |
my @field_values = $input->param('field_value'); |
82 |
my @field_values = $input->param('field_value'); |
|
Lines 105-117
if ($quantityrec > $origquantityrec ) {
Link Here
|
| 105 |
$itemhash{$item}->{'ind_tag'}, |
106 |
$itemhash{$item}->{'ind_tag'}, |
| 106 |
$itemhash{$item}->{'indicator'},'ITEM'); |
107 |
$itemhash{$item}->{'indicator'},'ITEM'); |
| 107 |
my $record=MARC::Record::new_from_xml($xml, 'UTF-8'); |
108 |
my $record=MARC::Record::new_from_xml($xml, 'UTF-8'); |
| 108 |
my ($biblionumber,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$biblionumber); |
109 |
my (undef,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$biblionumber); |
| 109 |
} |
110 |
} |
| 110 |
} |
111 |
} |
| 111 |
|
112 |
|
| 112 |
# save the quantity received. |
113 |
# save the quantity received. |
| 113 |
if( $quantityrec > 0 ) { |
114 |
$datereceived = ModReceiveOrder($biblionumber,$ordernumber, $quantityrec ,$user,$unitprice,$invoiceno,$freight,$replacement,undef,$datereceived); |
| 114 |
$datereceived = ModReceiveOrder($biblionumber,$ordernumber, $quantityrec ,$user,$unitprice,$invoiceno,$freight,$replacement,undef,$datereceived); |
115 |
} |
| 115 |
} |
116 |
|
|
|
117 |
update_item( $_ ) foreach GetItemnumbersFromOrder( $ordernumber ); |
| 118 |
|
| 119 |
print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&supplierid=$supplierid&freight=$freight&gst=$gst&datereceived=$datereceived$error_url_str"); |
| 120 |
|
| 121 |
################################ End of script ################################ |
| 122 |
|
| 123 |
sub update_item { |
| 124 |
my ( $itemnumber ) = @_; |
| 125 |
|
| 126 |
ModItem( { |
| 127 |
booksellerid => $supplierid, |
| 128 |
dateaccessioned => $datereceived, |
| 129 |
price => $unitprice, |
| 130 |
replacementprice => $replacement, |
| 131 |
replacementpricedate => $datereceived, |
| 132 |
}, $biblionumber, $itemnumber ); |
| 116 |
} |
133 |
} |
| 117 |
print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&supplierid=$supplierid&freight=$freight&gst=$gst&datereceived=$datereceived$error_url_str"); |
|
|
| 118 |
- |