|
Lines 720-725
if (C4::Context->preference("OPACFRBRizeEditions")==1) {
Link Here
|
| 720 |
|
720 |
|
| 721 |
# Serial Collection |
721 |
# Serial Collection |
| 722 |
my @sc_fields = $record->field(955); |
722 |
my @sc_fields = $record->field(955); |
|
|
723 |
my @lc_fields = $marcflavour eq 'UNIMARC' |
| 724 |
? $record->field(930) |
| 725 |
: $record->field(852); |
| 723 |
my @serialcollections = (); |
726 |
my @serialcollections = (); |
| 724 |
|
727 |
|
| 725 |
foreach my $sc_field (@sc_fields) { |
728 |
foreach my $sc_field (@sc_fields) { |
|
Lines 727-735
foreach my $sc_field (@sc_fields) {
Link Here
|
| 727 |
|
730 |
|
| 728 |
$row_data{text} = $sc_field->subfield('r'); |
731 |
$row_data{text} = $sc_field->subfield('r'); |
| 729 |
$row_data{branch} = $sc_field->subfield('9'); |
732 |
$row_data{branch} = $sc_field->subfield('9'); |
|
|
733 |
foreach my $lc_field (@lc_fields) { |
| 734 |
$row_data{itemcallnumber} = $marcflavour eq 'UNIMARC' |
| 735 |
? $lc_field->subfield('a') # 930$a |
| 736 |
: $lc_field->subfield('h') # 852$h |
| 737 |
if ($sc_field->subfield('5') eq $lc_field->subfield('5')); |
| 738 |
} |
| 730 |
|
739 |
|
| 731 |
if ($row_data{text} && $row_data{branch}) { |
740 |
if ($row_data{text} && $row_data{branch}) { |
| 732 |
push (@serialcollections, \%row_data); |
741 |
push (@serialcollections, \%row_data); |
| 733 |
} |
742 |
} |
| 734 |
} |
743 |
} |
| 735 |
|
744 |
|
| 736 |
- |
|
|