|
Lines 155-161
sub build_sample_biblio {
Link Here
|
| 155 |
my $marcflavour = C4::Context->preference('marcflavour'); |
155 |
my $marcflavour = C4::Context->preference('marcflavour'); |
| 156 |
|
156 |
|
| 157 |
my $record = MARC::Record->new(); |
157 |
my $record = MARC::Record->new(); |
|
|
158 |
|
| 159 |
if ( $marcflavour eq 'MARC21' ) { |
| 160 |
$record->leader(' nz a22 o 4500'); |
| 161 |
C4::Charset::SetMarcUnicodeFlag( $record, 'MARC21' ); |
| 162 |
} |
| 163 |
|
| 158 |
my ( $tag, $subfield ) = $marcflavour eq 'UNIMARC' ? ( 200, 'a' ) : ( 245, 'a' ); |
164 |
my ( $tag, $subfield ) = $marcflavour eq 'UNIMARC' ? ( 200, 'a' ) : ( 245, 'a' ); |
|
|
165 |
|
| 159 |
$record->append_fields( |
166 |
$record->append_fields( |
| 160 |
MARC::Field->new( $tag, ' ', ' ', $subfield => $title ), |
167 |
MARC::Field->new( $tag, ' ', ' ', $subfield => $title ), |
| 161 |
); |
168 |
); |
| 162 |
- |
|
|