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