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

(-)a/C4/Items.pm (-2 / +1 lines)
Lines 458-465 sub ModItemFromMarc { Link Here
458
458
459
=head2 ModItem
459
=head2 ModItem
460
460
461
  ModItem({ column => $newvalue }, $biblionumber, 
461
  ModItem({ column => $newvalue }, $biblionumber, $itemnumber);
462
                  $itemnumber[, $original_item_marc]);
463
462
464
Change one or more columns in an item record and update
463
Change one or more columns in an item record and update
465
the MARC representation of the item.
464
the MARC representation of the item.
(-)a/acqui/finishreceive.pl (-6 / +21 lines)
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
- 

Return to bug 5473