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 278-283
sub plugin {
Link Here
|
278 |
{ |
290 |
{ |
279 |
$subfield_value_v = $marcrecord->field('200')->subfield("h"); |
291 |
$subfield_value_v = $marcrecord->field('200')->subfield("h"); |
280 |
} |
292 |
} |
|
|
293 |
|
281 |
my $subfield_value_x; |
294 |
my $subfield_value_x; |
282 |
if ( |
295 |
if ( |
283 |
$marcrecord->field('011') |
296 |
$marcrecord->field('011') |
Lines 301-306
sub plugin {
Link Here
|
301 |
$subfield_value_e =~ s/'/\\'/g; |
314 |
$subfield_value_e =~ s/'/\\'/g; |
302 |
$subfield_value_h =~ s/'/\\'/g; |
315 |
$subfield_value_h =~ s/'/\\'/g; |
303 |
$subfield_value_i =~ s/'/\\'/g; |
316 |
$subfield_value_i =~ s/'/\\'/g; |
|
|
317 |
$subfield_value_l =~ s/'/\\'/g; |
318 |
$subfield_value_n =~ s/'/\\'/g; |
319 |
$subfield_value_o =~ s/'/\\'/g; |
304 |
$subfield_value_p =~ s/'/\\'/g; |
320 |
$subfield_value_p =~ s/'/\\'/g; |
305 |
$subfield_value_t =~ s/'/\\'/g; |
321 |
$subfield_value_t =~ s/'/\\'/g; |
306 |
$subfield_value_u =~ s/'/\\'/g; |
322 |
$subfield_value_u =~ s/'/\\'/g; |
Lines 319-324
sub plugin {
Link Here
|
319 |
subfield_value_e => "$subfield_value_e", |
335 |
subfield_value_e => "$subfield_value_e", |
320 |
subfield_value_h => "$subfield_value_h", |
336 |
subfield_value_h => "$subfield_value_h", |
321 |
subfield_value_i => "$subfield_value_i", |
337 |
subfield_value_i => "$subfield_value_i", |
|
|
338 |
subfield_value_l => "$subfield_value_l", |
339 |
subfield_value_n => "$subfield_value_n", |
340 |
subfield_value_o => "$subfield_value_o", |
322 |
subfield_value_p => "$subfield_value_p", |
341 |
subfield_value_p => "$subfield_value_p", |
323 |
subfield_value_t => "$subfield_value_t", |
342 |
subfield_value_t => "$subfield_value_t", |
324 |
subfield_value_u => "$subfield_value_u", |
343 |
subfield_value_u => "$subfield_value_u", |