Changeset 12432

Timestamp:

2006-08-11T12:56:10+12:00 (18 years ago)

Author:

mdewsnip

Message:

Added another case when parsing place references: if a magic word is in the first sentence.

File:

• trunk/cic-hcap/perllib/plugins/CICPlug.pm (modified) (1 diff)

trunk/cic-hcap/perllib/plugins/CICPlug.pm

@@ -997 +997 @@
     &new_metadata_entry($place_doc_obj, "Reference", $place_reference);
 
+    # Case 0: A magic word in the first sentence
+    my $place_reference_first_sentence = $place_reference;
+    if ($place_reference =~ /^(.*?)\./) {
+        $place_reference_first_sentence = $1;
+    }
+    if ($place_reference_first_sentence =~ / (collection|collections|papers|archives|database|letter|memo|inventory|photographs)\W/i) {
+        # Don't bother trying to parse the reference
+    }
     # Case 1: Author (possibly empty), then title in italics or quotes
-    if ($place_reference =~ /^(.*?)<i>(.*?)<\/i>/ || $place_reference =~ /^(.*)"(.*?)"/) {
+    elsif ($place_reference =~ /^(.*?)<i>(.*?)<\/i>/ || $place_reference =~ /^(.*)"(.*?)"/) {
         &new_metadata_entry($place_doc_obj, "ReferenceAuthor", $1);
         &new_metadata_entry($place_doc_obj, "ReferenceTitle", $2);