add filter="name" for fields (to correct strane input data or make variations

[webpac] / filter / isn_swish.pm

#!/usr/bin/perl -w

# example filter to convert ISBN and ISSN to hyphen and non-hyphen version

sub filter {
        my @out;
        foreach my $nr1 (@_) {
                push @out,$nr1; # save original
                my $nr2 = $nr1;
                $nr2 =~ s/\-//g;
                push @out,$nr2; # save version without hyphens
        }
        return @out;
}

1;