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

(-)a/C4/Biblio.pm (-5 / +4 lines)
Lines 220-226 sub AddBiblio { Link Here
220
220
221
            # transform the data into koha-table style data
221
            # transform the data into koha-table style data
222
            SetUTF8Flag($record);
222
            SetUTF8Flag($record);
223
            my $olddata = TransformMarcToKoha( $record, $frameworkcode );
223
            my $olddata = TransformMarcToKoha( $record, $frameworkcode, 'no_items' );
224
224
225
            my $biblio = Koha::Biblio->new(
225
            my $biblio = Koha::Biblio->new(
226
                {
226
                {
Lines 2326-2332 sub TransformMarcToKoha { Link Here
2326
    foreach my $kohafield ( keys %{ $mss } ) {
2326
    foreach my $kohafield ( keys %{ $mss } ) {
2327
        my ( $table, $column ) = split /[.]/, $kohafield, 2;
2327
        my ( $table, $column ) = split /[.]/, $kohafield, 2;
2328
        next unless $tables{$table};
2328
        next unless $tables{$table};
2329
        my $val = TransformMarcToKohaOneField( $kohafield, $record );
2329
        my $val = TransformMarcToKohaOneField( $kohafield, $record, $mss->{$kohafield} );
2330
        next if !defined $val;
2330
        next if !defined $val;
2331
        my $key = _disambiguate( $table, $column );
2331
        my $key = _disambiguate( $table, $column );
2332
        $result->{$key} = $val;
2332
        $result->{$key} = $val;
Lines 2382-2391 sub _disambiguate { Link Here
2382
=cut
2382
=cut
2383
2383
2384
sub TransformMarcToKohaOneField {
2384
sub TransformMarcToKohaOneField {
2385
    my ( $kohafield, $marc ) = @_;
2385
    my ( $kohafield, $marc, $mss ) = @_;
2386
2386
2387
    my ( @rv, $retval );
2387
    my ( @rv, $retval );
2388
    my @mss = GetMarcSubfieldStructureFromKohaField($kohafield);
2388
    my @mss = $mss? @{$mss} : GetMarcSubfieldStructureFromKohaField($kohafield);
2389
    foreach my $fldhash ( @mss ) {
2389
    foreach my $fldhash ( @mss ) {
2390
        my $tag = $fldhash->{tagfield};
2390
        my $tag = $fldhash->{tagfield};
2391
        my $sub = $fldhash->{tagsubfield};
2391
        my $sub = $fldhash->{tagsubfield};
2392
- 

Return to bug 30789