|
Lines 599-605
sub GetNormalizedUPC {
Link Here
|
| 599 |
foreach my $field (@fields) { |
599 |
foreach my $field (@fields) { |
| 600 |
my $indicator = $field->indicator(1); |
600 |
my $indicator = $field->indicator(1); |
| 601 |
my $upc = _normalize_match_point($field->subfield('a')); |
601 |
my $upc = _normalize_match_point($field->subfield('a')); |
| 602 |
if ($upc && $indicator == 1 ) { |
602 |
if ($upc && $indicator eq '1' ) { |
| 603 |
return $upc; |
603 |
return $upc; |
| 604 |
} |
604 |
} |
| 605 |
} |
605 |
} |
|
Lines 658-664
sub GetNormalizedEAN {
Link Here
|
| 658 |
foreach my $field (@fields) { |
658 |
foreach my $field (@fields) { |
| 659 |
my $indicator = $field->indicator(1); |
659 |
my $indicator = $field->indicator(1); |
| 660 |
my $ean = _normalize_match_point($field->subfield('a')); |
660 |
my $ean = _normalize_match_point($field->subfield('a')); |
| 661 |
if ( $ean && $indicator == 3 ) { |
661 |
if ( $ean && $indicator eq '3' ) { |
| 662 |
return $ean; |
662 |
return $ean; |
| 663 |
} |
663 |
} |
| 664 |
} |
664 |
} |
| 665 |
- |
|
|