Changeset 11932

Timestamp:

2006-06-19T14:26:42+12:00 (18 years ago)

Author:

mdewsnip

Message:

Place functions are now case-folded and some plurals are dealt with.

File:

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

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

@@ -558 +558 @@
 
         # Create place functions mapping
+        $place_function = lc($place_function);
         $place_function =~ s/\(.*\)//g;
         $place_function =~ s/^\s*//;
         $place_function =~ s/\s*$//;
+        $place_function =~ s/classroom$/classrooms/;
+        $place_function =~ s/department buildings$/department building/;
+        $place_function =~ s/faculty office$/faculty offices/;
+        $place_function =~ s/garden$/gardens/;
+        $place_function =~ s/residence halls$/residence hall/;
         next if ($place_function eq "");
         push(@{$place_function_to_ids_mapping{$place_function}}, $place_doc_obj->get_OID());