Changeset 13416

Timestamp:

2006-12-05T15:48:23+13:00 (17 years ago)

Author:

kjdon

Message:

remove surrounding {} as well as surrounding "" from value

File:

• trunk/gsdl/perllib/plugins/BibTexPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BibTexPlug.pm

@@ -220 +220 @@
         # remove surrounding " marks
         $value =~ s/^"//; $value =~ s/"$//;
-    }
-    
+    } elsif ($value =~ /^\{/ && $value =~ /\}$/) {
+        # remove surrounding {} marks
+        $value =~ s/^\{//; $value =~ s/\}$//;
+    }
     # special case for year - we only want a 4 digit year, not 
     # "circa 2004" etc