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