Changeset 13413

Timestamp:

2006-12-05T11:43:25+13:00 (17 years ago)

Author:

kjdon

Message:

added some special handling for year so that it only gets 4 digits. Also added some comments to keep emacs colouring working properly

File:

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

trunk/gsdl/perllib/plugins/BibTexPlug.pm

@@ -221 +221 @@
         $value =~ s/^"//; $value =~ s/"$//;
     }
-    $value = &process_latex($value);
-
-    # Add this line of metadata
-    $metadata{$entryname} .= "$value";
-       
+    
+    # special case for year - we only want a 4 digit year, not 
+    # "circa 2004" etc
+    if ($entryname=~ /^year$/i) {
+        if ($value=~ /(\d{4})/) {
+        $value=$1;
+        $metadata{$entryname} .= "$value";
+        }
+    } 
+    else {
+        
+        $value = &process_latex($value);
+        # Add this line of metadata
+        $metadata{$entryname} .= "$value";  
+    }
     }
 
@@ -365 +375 @@
     # Add the various fields as metadata    
     $doc_obj->add_utf8_metadata ($cursection, $name, $value); 
+    
     }
 
@@ -692 +703 @@
     # remove space (if any) between \ and letter to accent (eg {\' a})
 
-    $text =~ s@(\\[`'="^~\.])\s(\w)@$1$2@g;
-
+    $text =~ s@(\\[`'="^~\.])\s(\w)@$1$2@g; #`
+           
     # remove {} around a single character (eg \'{e})
-    $text =~ s@(\\[`'="^~\.]){(\w)}@{$1$2}@g;
+    $text =~ s@(\\[`'="^~\.]){(\w)}@{$1$2}@g; #`
 
     # \, is another way of doing cedilla \c
@@ -707 +718 @@
     if ($text =~ m|\\|) {
     # "normal" accents - ie non-alpha latex tag
-    while ($text =~ m@\\([`'="^~\.])([\w])@) {
+    while ($text =~ m@\\([`'="^~\.])([\w])@) { #`
         my $tex="$1$2"; my $char="$2";
         my $replacement=$utf8_chars{$tex};