Lines 101-107
foreach my $issue ( @{$issues} ) {
Link Here
|
101 |
MARC::Record::new_from_xml( $marcxml, 'UTF-8', |
101 |
MARC::Record::new_from_xml( $marcxml, 'UTF-8', |
102 |
C4::Context->preference('marcflavour') ); |
102 |
C4::Context->preference('marcflavour') ); |
103 |
$issue->{normalized_upc} = GetNormalizedUPC( $marc_rec, C4::Context->preference('marcflavour') ); |
103 |
$issue->{normalized_upc} = GetNormalizedUPC( $marc_rec, C4::Context->preference('marcflavour') ); |
|
|
104 |
$issue->{normalized_oclc} = GetNormalizedOCLCNumber($marc_rec, C4::Context->preference('marcflavour')); |
104 |
} |
105 |
} |
|
|
106 |
|
105 |
} |
107 |
} |
106 |
# My Summary HTML |
108 |
# My Summary HTML |
107 |
if ($opac_summary_html) { |
109 |
if ($opac_summary_html) { |
108 |
- |
|
|