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 |
- |
|
|