--- branches/biomed/parse_format.pm 2005/02/28 10:39:17 683 +++ branches/biomed/parse_format.pm 2005/02/28 10:43:38 684 @@ -10,13 +10,17 @@ my $i = shift || 0; # isis repeatable number my $codepage = shift || die "parse_format must be called with codepage!"; if ($type eq "isis") { - return parse_iso_format($format,$row,$i,$codepage,'isis_sf'); + return parse_iso_format($format,$row,$i,$codepage,'hash_sf'); } elsif ($type eq "excel") { return parse_excel_format($format,$row,$i,$codepage); } elsif ($type eq "marc") { return parse_iso_format($format,$row,$i,$codepage,'marc_sf'); } elsif ($type eq "feed") { return parse_feed_format($format,$row,$i,$codepage); + } elsif ($type eq "dbf") { + return parse_iso_format($format,$row,$i,$codepage,'hash_sf'); + } else { + confess "FATAL: unknown type '$type'"; } }