|
Lines 269-276
sub plugin {
Link Here
|
| 269 |
$subfield_value_t = $marcrecord->field('500')->subfield("a"); |
269 |
$subfield_value_t = $marcrecord->field('500')->subfield("a"); |
| 270 |
} |
270 |
} |
| 271 |
|
271 |
|
| 272 |
my $subfield_value_u = $marcrecord->field('856')->subfield("u") |
272 |
my $subfield_value_u; |
| 273 |
if ( $marcrecord->field('856') ); |
273 |
if ( $marcrecord->field('856') ) { |
|
|
274 |
$subfield_value_u = $marcrecord->field('856')->subfield("u"); |
| 275 |
} |
| 274 |
|
276 |
|
| 275 |
my $subfield_value_v; |
277 |
my $subfield_value_v; |
| 276 |
if ( ( $marcrecord->field('225') ) |
278 |
if ( ( $marcrecord->field('225') ) |
|
Lines 283-296
sub plugin {
Link Here
|
| 283 |
{ |
285 |
{ |
| 284 |
$subfield_value_v = $marcrecord->field('200')->subfield("h"); |
286 |
$subfield_value_v = $marcrecord->field('200')->subfield("h"); |
| 285 |
} |
287 |
} |
| 286 |
my $subfield_value_x = $marcrecord->field('011')->subfield("a") |
288 |
my $subfield_value_x; |
| 287 |
if ( |
289 |
if ( |
| 288 |
$marcrecord->field('011') |
290 |
$marcrecord->field('011') |
| 289 |
and not( ( $marcrecord->field('011')->subfield("y") ) |
291 |
and not( ( $marcrecord->field('011')->subfield("y") ) |
| 290 |
or ( $marcrecord->field('011')->subfield("z") ) ) |
292 |
or ( $marcrecord->field('011')->subfield("z") ) ) ) { |
| 291 |
); |
293 |
$subfield_value_x = $marcrecord->field('011')->subfield("a"); |
| 292 |
my $subfield_value_y = $marcrecord->field('013')->subfield("a") |
294 |
} |
| 293 |
if ( $marcrecord->field('013') ); |
295 |
my $subfield_value_y; |
|
|
296 |
if ( $marcrecord->field('013') ) { |
| 297 |
$subfield_value_y = $marcrecord->field('013')->subfield("a"); |
| 298 |
} |
| 294 |
if ( $marcrecord->field('010') ) { |
299 |
if ( $marcrecord->field('010') ) { |
| 295 |
$subfield_value_y = $marcrecord->field('010')->subfield("a"); |
300 |
$subfield_value_y = $marcrecord->field('010')->subfield("a"); |
| 296 |
} |
301 |
} |
|
Lines 374-380
sub plugin {
Link Here
|
| 374 |
my $record = MARC::Record::new_from_usmarc( $results->[$i] ); |
379 |
my $record = MARC::Record::new_from_usmarc( $results->[$i] ); |
| 375 |
my $rechash = TransformMarcToKoha( $dbh, $record ); |
380 |
my $rechash = TransformMarcToKoha( $dbh, $record ); |
| 376 |
my $pos; |
381 |
my $pos; |
| 377 |
my $countitems = 1 if ( $rechash->{itemnumber} ); |
382 |
my $countitems; |
|
|
383 |
if ( $rechash->{itemnumber} ) { |
| 384 |
$countitems=1; |
| 385 |
} |
| 378 |
while ( index( $rechash->{itemnumber}, '|', $pos ) > 0 ) { |
386 |
while ( index( $rechash->{itemnumber}, '|', $pos ) > 0 ) { |
| 379 |
$countitems += 1; |
387 |
$countitems += 1; |
| 380 |
$pos = index( $rechash->{itemnumber}, '|', $pos ) + 1; |
388 |
$pos = index( $rechash->{itemnumber}, '|', $pos ) + 1; |
| 381 |
- |
|
|