Lines 693-698
if (C4::Context->preference("OPACFRBRizeEditions")==1) {
Link Here
|
693 |
|
693 |
|
694 |
# Serial Collection |
694 |
# Serial Collection |
695 |
my @sc_fields = $record->field(955); |
695 |
my @sc_fields = $record->field(955); |
|
|
696 |
my @lc_fields = $record->field(930); |
696 |
my @serialcollections = (); |
697 |
my @serialcollections = (); |
697 |
|
698 |
|
698 |
foreach my $sc_field (@sc_fields) { |
699 |
foreach my $sc_field (@sc_fields) { |
Lines 700-708
foreach my $sc_field (@sc_fields) {
Link Here
|
700 |
|
701 |
|
701 |
$row_data{text} = $sc_field->subfield('r'); |
702 |
$row_data{text} = $sc_field->subfield('r'); |
702 |
$row_data{branch} = $sc_field->subfield('9'); |
703 |
$row_data{branch} = $sc_field->subfield('9'); |
|
|
704 |
foreach my $lc_field (@lc_fields) { |
705 |
$row_data{itemcallnumber} = $lc_field->subfield('a') |
706 |
if ($sc_field->subfield('5') eq $lc_field->subfield('5')); |
707 |
} |
703 |
|
708 |
|
704 |
if ($row_data{text} && $row_data{branch}) { |
709 |
if ($row_data{text} && $row_data{branch}) { |
705 |
push (@serialcollections, \%row_data); |
710 |
push (@serialcollections, \%row_data); |
706 |
} |
711 |
} |
707 |
} |
712 |
} |
708 |
|
713 |
|
709 |
- |
|
|