handle journal names with odd characters

[reference.git] / lib / Reference / Field / Journal.pm

diff --git a/lib/Reference/Field/Journal.pm b/lib/Reference/Field/Journal.pm
index ad5639a481f6360fad582420633060dfb1e9cbe5..eb2768080eb3ad8f800b5545bc642f16a3a67b38 100644 (file)
--- a/lib/Reference/Field/Journal.pm
+++ b/lib/Reference/Field/Journal.pm
@@ -84,7 +84,7 @@ sub journal{
      local $_ = $params{output};
      if (/bibtex/) {
          my $title = $self->{reference}->{journal}->{medlineabbr} || $self->{reference}->{journal}->{title};
-         $title =~ s/\s//g;
+         $title =~ s/[^A-Za-z0-9]//g;
          return $title;
      } elsif (/medline/) {
          return $self->{reference}->{journal}->{medlineabbr} || $self->{reference}->{journal}->{title};