filter to checked documents

[webpac] / filter / isn_swish.pm

diff --git a/filter/isn_swish.pm b/filter/isn_swish.pm
index a2202bd..e82e6e7 100755 (executable)
--- a/filter/isn_swish.pm
+++ b/filter/isn_swish.pm
@@ -2,13 +2,12 @@
 
 # example filter to convert ISBN and ISSN to hyphen and non-hyphen version
 
-sub filter {
+sub isn_swish {
        my @out;
        foreach my $nr1 (@_) {
                push @out,$nr1; # save original
-               my $nr2 = $nr1;
-               $nr2 =~ s/\-//g;
-               push @out,$nr2; # save version without hyphens
+               $nr1 =~ s/\-//g;
+               push @out,$nr1; # save version without hyphens
        }
        return @out;
 }