Lines 241-246
sub plugin {
Link Here
|
241 |
$subfield_value_i = $marcrecord->field('500')->subfield("i"); |
241 |
$subfield_value_i = $marcrecord->field('500')->subfield("i"); |
242 |
} |
242 |
} |
243 |
|
243 |
|
|
|
244 |
my $subfield_value_l; |
245 |
$subfield_value_l = $marcrecord->field('200')->subfield("d") |
246 |
if ( $marcrecord->field('200') ); |
247 |
|
248 |
my $subfield_value_n; |
249 |
$subfield_value_n = $marcrecord->field('210')->subfield("c") |
250 |
if ( $marcrecord->field('210') ); |
251 |
|
252 |
my $subfield_value_o; |
253 |
$subfield_value_o = $marcrecord->field('200')->subfield("e") |
254 |
if ( $marcrecord->field('200') ); |
255 |
|
244 |
my $subfield_value_p; |
256 |
my $subfield_value_p; |
245 |
$subfield_value_p = $marcrecord->field('215')->subfield("a") |
257 |
$subfield_value_p = $marcrecord->field('215')->subfield("a") |
246 |
if ( $marcrecord->field('215') ); |
258 |
if ( $marcrecord->field('215') ); |
Lines 301-306
sub plugin {
Link Here
|
301 |
$subfield_value_e =~ s/'/\\'/g; |
313 |
$subfield_value_e =~ s/'/\\'/g; |
302 |
$subfield_value_h =~ s/'/\\'/g; |
314 |
$subfield_value_h =~ s/'/\\'/g; |
303 |
$subfield_value_i =~ s/'/\\'/g; |
315 |
$subfield_value_i =~ s/'/\\'/g; |
|
|
316 |
$subfield_value_l =~ s/'/\\'/g; |
317 |
$subfield_value_n =~ s/'/\\'/g; |
318 |
$subfield_value_o =~ s/'/\\'/g; |
304 |
$subfield_value_p =~ s/'/\\'/g; |
319 |
$subfield_value_p =~ s/'/\\'/g; |
305 |
$subfield_value_t =~ s/'/\\'/g; |
320 |
$subfield_value_t =~ s/'/\\'/g; |
306 |
$subfield_value_u =~ s/'/\\'/g; |
321 |
$subfield_value_u =~ s/'/\\'/g; |
Lines 319-324
sub plugin {
Link Here
|
319 |
subfield_value_e => "$subfield_value_e", |
334 |
subfield_value_e => "$subfield_value_e", |
320 |
subfield_value_h => "$subfield_value_h", |
335 |
subfield_value_h => "$subfield_value_h", |
321 |
subfield_value_i => "$subfield_value_i", |
336 |
subfield_value_i => "$subfield_value_i", |
|
|
337 |
subfield_value_l => "$subfield_value_l", |
338 |
subfield_value_n => "$subfield_value_n", |
339 |
subfield_value_o => "$subfield_value_o", |
322 |
subfield_value_p => "$subfield_value_p", |
340 |
subfield_value_p => "$subfield_value_p", |
323 |
subfield_value_t => "$subfield_value_t", |
341 |
subfield_value_t => "$subfield_value_t", |
324 |
subfield_value_u => "$subfield_value_u", |
342 |
subfield_value_u => "$subfield_value_u", |