use IsisDB module instead of OpenIsis -- this will fix various problems in
[webpac] / filter / isn_swish.pm
index b174fb9..e82e6e7 100755 (executable)
@@ -6,9 +6,8 @@ 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;
 }