--- trunk/parse_format.pm 2003/07/13 13:22:50 90 +++ trunk/parse_format.pm 2003/07/14 17:08:37 105 @@ -59,7 +59,7 @@ # this is EBSCO special to support numeric subfield in # form of 856#3 if ($format =~ s/^(\d\d\d)#*(\w?)//) { - my $tmp = cnv_cp($codepage,get_sf($row,$1,$2,$i)); + my $tmp = cnv_cp($codepage,&$func($row,$1,$2,$i)); if ($tmp) { $display .= $prefix.$tmp; $swish .= $tmp." "; @@ -70,7 +70,7 @@ # (as opposed to 010 and 011) so they are strictly listed # here } elsif ($format =~ s/^(1[01])//) { - my $tmp = cnv_cp($codepage,get_sf($row,$1,undef,$i)); + my $tmp = cnv_cp($codepage,&$func($row,$1,undef,$i)); if ($tmp) { $display .= $prefix.$tmp; $swish .= $tmp." "; @@ -155,6 +155,10 @@ my $i = shift; my $codepage = shift; + # XXX feed doesn't support repeatable fields, but they really + # should, This is a bug. It should be fixed! + return if ($i > 0); + my $out; my $out_swish;