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