59 |
# this is EBSCO special to support numeric subfield in |
# this is EBSCO special to support numeric subfield in |
60 |
# form of 856#3 |
# form of 856#3 |
61 |
if ($format =~ s/^(\d\d\d)#*(\w?)//) { |
if ($format =~ s/^(\d\d\d)#*(\w?)//) { |
62 |
my $tmp = cnv_cp($codepage,get_sf($row,$1,$2,$i)); |
my $tmp = cnv_cp($codepage,&$func($row,$1,$2,$i)); |
63 |
if ($tmp) { |
if ($tmp) { |
64 |
$display .= $prefix.$tmp; |
$display .= $prefix.$tmp; |
65 |
$swish .= $tmp." "; |
$swish .= $tmp." "; |
70 |
# (as opposed to 010 and 011) so they are strictly listed |
# (as opposed to 010 and 011) so they are strictly listed |
71 |
# here |
# here |
72 |
} elsif ($format =~ s/^(1[01])//) { |
} elsif ($format =~ s/^(1[01])//) { |
73 |
my $tmp = cnv_cp($codepage,get_sf($row,$1,undef,$i)); |
my $tmp = cnv_cp($codepage,&$func($row,$1,undef,$i)); |
74 |
if ($tmp) { |
if ($tmp) { |
75 |
$display .= $prefix.$tmp; |
$display .= $prefix.$tmp; |
76 |
$swish .= $tmp." "; |
$swish .= $tmp." "; |
155 |
my $i = shift; |
my $i = shift; |
156 |
my $codepage = shift; |
my $codepage = shift; |
157 |
|
|
158 |
|
# XXX feed doesn't support repeatable fields, but they really |
159 |
|
# should, This is a bug. It should be fixed! |
160 |
|
return if ($i > 0); |
161 |
|
|
162 |
my $out; |
my $out; |
163 |
my $out_swish; |
my $out_swish; |
164 |
|
|