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

(-)a/C4/Biblio.pm (+42 lines)
Lines 99-104 BEGIN { Link Here
99
      &ModBiblio
99
      &ModBiblio
100
      &ModBiblioframework
100
      &ModBiblioframework
101
      &ModZebra
101
      &ModZebra
102
      &AddMarcFields
102
    );
103
    );
103
104
104
    # To delete something
105
    # To delete something
Lines 3681-3686 sub get_biblio_authorised_values { Link Here
3681
    return $authorised_values;
3682
    return $authorised_values;
3682
}
3683
}
3683
3684
3685
=head2 AddMarcFields
3686
3687
Adds fields to existing marcxml
3688
3689
parameters:
3690
    biblionumber
3691
    fields
3692
3693
returns: nothing
3694
3695
  $fields: { tag1 => val1, tag2 => val2, ... }
3696
  $valX  : $val for tags < 10, { subfild1 => subval1, subfild2 => subval2, ... }
3697
3698
Notes: no indicator support
3699
3700
=cut
3701
3702
sub AddMarcFields {
3703
    my ( $biblionumber, $fields ) = @_;
3704
3705
    my $rec = GetMarcBiblio($biblionumber) or die "Invalid biblionumber $biblionumber";
3706
3707
    my @fields;
3708
    while ( my ($tag, $val) = each %$fields ) {
3709
        my $newfield;
3710
        if (ref $val) {
3711
            $newfield = MARC::Field->new( $tag, '', '', %$val );
3712
        } else {
3713
            $newfield = MARC::Field->new( $tag, $val );
3714
        }
3715
        push @fields, $newfield;
3716
    }
3717
    $rec->append_fields(@fields);
3718
3719
    my $dbh    = C4::Context->dbh;
3720
    my $encoding = C4::Context->preference("marcflavour");
3721
    $dbh->do("UPDATE biblioitems SET marcxml=? WHERE biblionumber=?", undef,
3722
        $rec->as_xml_record($encoding),
3723
        $biblionumber );
3724
}
3725
3684
1;
3726
1;
3685
3727
3686
__END__
3728
__END__
(-)a/acqui/finishreceive.pl (-1 / +9 lines)
Lines 114-117 if ($quantityrec > $origquantityrec ) { Link Here
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
}
116
}
117
118
AddMarcFields( $biblionumber, { 952 => { e => $supplierid,
119
                                         d => $datereceived,
120
                                         g => $unitprice,
121
                                         v => $replacement,
122
                                     },
123
                                 } );
124
# XXX                                    w => Price effective from
125
117
    print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&supplierid=$supplierid&freight=$freight&gst=$gst&datereceived=$datereceived$error_url_str");
126
    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