Changeset 3112 for trunk/gsdl/perllib/plugins/BibTexPlug.pm

Timestamp:

2002-05-13T17:06:05+12:00 (22 years ago)

Author:

jrm21

Message:

minor changes to formatted values (eg if enclosed in { and } ) and added a
few extra accented characters.

File:

• trunk/gsdl/perllib/plugins/BibTexPlug.pm (modified) (6 diffs)

trunk/gsdl/perllib/plugins/BibTexPlug.pm

@@ -166 +166 @@
     $entryname = lc($1);
     $value = $2;
-    # tidy up, removing " at start and end  
-    $value =~ s/^"//;
-    $value =~ s/(",)\s*$//;
+    $value =~ s/,?\s*$//; # remove trailing comma and space
+    if ($value =~ /^"/ && $value =~ /"$/) {
+        # remove surrounding " marks
+        $value =~ s/^"//; $value =~ s/"$//;
+    }
     $value = &process_latex($value);
 
@@ -212 +214 @@
     # The author metadata will be stored as one "Creator" entry, but we
     # also want to split it into several individual "Author" fields in
-    # "Lastename, Firstnames" format so we can browse it.
+    # "Lastname, Firstnames" format so we can browse it.
     if ($entryname eq "author") { #added also comparison with editor
        
@@ -421 +423 @@
      # ring
      # dot
+     '\.c' => chr(0xc4).chr(0x8b),
+     '\.C' => chr(0xc4).chr(0x8a),
+     '\.e' => chr(0xc4).chr(0x97),
+     '\.E' => chr(0xc4).chr(0x96),
+     '\.g' => chr(0xc4).chr(0xa1),
+     '\.G' => chr(0xc4).chr(0xa0),
+     '\.I' => chr(0xc4).chr(0xb0),
+     '\.z' => chr(0xc5).chr(0xbc),
+     '\.Z' => chr(0xc5).chr(0xbb),
      # macron
      '=a' => chr(0xc4).chr(0x81),
@@ -476 +487 @@
      'h' => chr(0xc4).chr(0xa7),
 #    'H' => chr(0xc4).chr(0xa6), # !! this normally(!!?) means Hung. umlaut
+     'i' => chr(0xc4).chr(0xb1), # dotless lowercase i
      'l' => chr(0xc5).chr(0x82),
      'L' => chr(0xc5).chr(0x81),
@@ -492 +504 @@
 
     # remove {} around a single character (eg \'{e})
-    $text =~ s@(\\[`'="]){(\w)}@$1$2@;
+    $text =~ s@(\\[`'="\.]){(\w)}@$1$2@g;
 
     # remove {} around a single character for special 1 letter commands -
@@ -512 +524 @@
     }
 
+    # remove latex commands
+    $text =~ s@\\\w+{([^}]*)}@$1@g;
+
     # remove latex groupings { } (but not \{ or \} )
-    # note - need it like this for first char match - eg {xx}{yy}
-    while ($text =~ s@([^\\]){([^}]*?[^\\])}@$1$2@g) {}
-
-    # remove latex commands
-    $text =~ s@\\\w+{(.*)}@$1@g;
+    $text =~ s/([^\\])\{/$1/g;
+    $text =~ s/([^\\])\}/$1/g;
+    $text =~ s/^{//; # remove { if first char
 
     # maths mode $...$ - this is not interpreted in any way at the moment...