|
Lines 1-6
Link Here
|
| 1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
| 2 |
|
2 |
|
| 3 |
# Copyright 2000-2002 Katipo Communications |
3 |
# Copyright Biblibre 2007 |
| 4 |
# |
4 |
# |
| 5 |
# This file is part of Koha. |
5 |
# This file is part of Koha. |
| 6 |
# |
6 |
# |
|
Lines 204-215
sub plugin {
Link Here
|
| 204 |
elsif ( $marcrecord->field('200') ) { |
204 |
elsif ( $marcrecord->field('200') ) { |
| 205 |
$subfield_value_a = $marcrecord->subfield( '200', 'f' ); |
205 |
$subfield_value_a = $marcrecord->subfield( '200', 'f' ); |
| 206 |
} |
206 |
} |
| 207 |
my $subfield_value_c = $marcrecord->field('210')->subfield("a") |
207 |
my $subfield_value_c; |
|
|
208 |
my $subfield_value_d; |
| 209 |
my $subfield_value_e; |
| 210 |
$subfield_value_c = $marcrecord->field('210')->subfield("a") |
| 208 |
if ( $marcrecord->field('210') ); |
211 |
if ( $marcrecord->field('210') ); |
| 209 |
my $subfield_value_d = $marcrecord->field('210')->subfield("d") |
212 |
$subfield_value_d = $marcrecord->field('210')->subfield("d") |
| 210 |
if ( $marcrecord->field('210') ); |
213 |
if ( $marcrecord->field('210') ); |
| 211 |
|
214 |
$subfield_value_e = $marcrecord->field('205')->subfield("a") |
| 212 |
my $subfield_value_e = $marcrecord->field('205')->subfield("a") |
|
|
| 213 |
if ( $marcrecord->field('205') ); |
215 |
if ( $marcrecord->field('205') ); |
| 214 |
|
216 |
|
| 215 |
my $subfield_value_h; |
217 |
my $subfield_value_h; |
|
Lines 246-252
sub plugin {
Link Here
|
| 246 |
$subfield_value_i = $marcrecord->field('500')->subfield("i"); |
248 |
$subfield_value_i = $marcrecord->field('500')->subfield("i"); |
| 247 |
} |
249 |
} |
| 248 |
|
250 |
|
| 249 |
my $subfield_value_p = $marcrecord->field('215')->subfield("a") |
251 |
my $subfield_value_p; |
|
|
252 |
$subfield_value_p = $marcrecord->field('215')->subfield("a") |
| 250 |
if ( $marcrecord->field('215') ); |
253 |
if ( $marcrecord->field('215') ); |
| 251 |
|
254 |
|
| 252 |
my $subfield_value_t; |
255 |
my $subfield_value_t; |
| 253 |
- |
|
|