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

(-)a/C4/Biblio.pm (-4 / +9 lines)
Lines 3000-3007 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
Generate the host item entry for an analytic child entry
3004
3005
Generate the host item entry for an analytic part child entry
3005
3006
3006
=cut
3007
=cut
3007
3008
Lines 3052-3058 sub prepare_host_field { Link Here
3052
            }
3053
            }
3053
        }
3054
        }
3054
        if ( $field = $host->field('001') ) {
3055
        if ( $field = $host->field('001') ) {
3055
            $sfd{w} = $field->data(),;
3056
            $sfd{w} = $field->data();
3057
            if ( C4::Context->preference('MarcOrgCode') ) {
3058
                if ( $field = $host->field('003') ) {
3059
                    $sft{w} = "(" . $field->data() . ")" . $sft{w};
3060
                }
3061
            }
3056
        }
3062
        }
3057
        $host_field = MARC::Field->new( 773, '0', ' ', %sfd );
3063
        $host_field = MARC::Field->new( 773, '0', ' ', %sfd );
3058
        return $host_field;
3064
        return $host_field;
3059
- 

Return to bug 21469