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