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

(-)a/C4/Biblio.pm (-3 / +13 lines)
Lines 3000-3006 sub ModBiblioMarc { Link Here
3000
3000
3001
=head2 prepare_host_field
3001
=head2 prepare_host_field
3002
3002
3003
$marcfield = prepare_host_field( $hostbiblioitem, $marcflavour );
3003
  $marcfield = prepare_host_field( $hostbiblioitem, $marcflavour );
3004
3004
Generate the host item entry for an analytic child entry
3005
Generate the host item entry for an analytic child entry
3005
3006
3006
=cut
3007
=cut
Lines 3015-3020 sub prepare_host_field { Link Here
3015
    my $field;
3016
    my $field;
3016
    my $host_field;
3017
    my $host_field;
3017
    if ( $marcflavour eq 'MARC21' || $marcflavour eq 'NORMARC' ) {
3018
    if ( $marcflavour eq 'MARC21' || $marcflavour eq 'NORMARC' ) {
3019
        my $userenv = C4::Context->userenv;
3020
        my $library;
3021
        if ( $userenv && $userenv->{'branch'} ) {
3022
            $library = Koha::Libraries->find( $userenv->{'branch'} );
3023
        }
3018
        if ( $field = $host->field('100') || $host->field('110') || $host->field('11') ) {
3024
        if ( $field = $host->field('100') || $host->field('110') || $host->field('11') ) {
3019
            my $s = $field->as_string('ab');
3025
            my $s = $field->as_string('ab');
3020
            if ($s) {
3026
            if ($s) {
Lines 3052-3058 sub prepare_host_field { Link Here
3052
            }
3058
            }
3053
        }
3059
        }
3054
        if ( $field = $host->field('001') ) {
3060
        if ( $field = $host->field('001') ) {
3055
            $sfd{w} = $field->data(),;
3061
            $sfd{w} = $field->data();
3062
            if ( $library->get_effective_marcorgcode ) {
3063
                if ( $field = $host->field('003') ) {
3064
                    $sft{w} = "(" . $field->data() . ")" . $sft{w};
3065
                }
3066
            }
3056
        }
3067
        }
3057
        $host_field = MARC::Field->new( 773, '0', ' ', %sfd );
3068
        $host_field = MARC::Field->new( 773, '0', ' ', %sfd );
3058
        return $host_field;
3069
        return $host_field;
3059
- 

Return to bug 21469