Changeset 12450

Timestamp:

2006-08-16T11:28:22+12:00 (18 years ago)

Author:

mdewsnip

Message:

Fixed up place references case 0: the "magic words".

File:

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

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

@@ -1004 +1004 @@
         $place_reference_first_sentence = $1;
     }
-    if ($place_reference_first_sentence =~ / (collection|collections|papers|archives|database|letter|memo|inventory|photographs)\W/i) {
+    if ($place_reference_first_sentence =~ /\b(collection|collections|papers|archives|database|letter|memo|inventory|photographs)\b/i) {
         # Don't bother trying to parse the reference
     }