|
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 |
- |
|
|