changes to support UTF-8 encoding from

[webpac] / filter / isn_swish.pm

#!/usr/bin/perl -w

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

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

1;