Changeset 24404 for main/trunk/greenstone2/perllib/lucenebuildproc.pm

Timestamp:

2011-08-12T19:35:50+12:00 (13 years ago)

Author:

ak19

Message:

Changes to perl code to do with removing the ex. prefix: ex. is only removed if it is the sole prefix (i.e. ex.dc.* prefixes are not removed).

File:

• main/trunk/greenstone2/perllib/lucenebuildproc.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/lucenebuildproc.pm

@@ -226 +226 @@
         }
         else {
-            $submeta =~ s/^ex\.//; #strip off ex.
+            $submeta =~ s/^ex\.([^.]+)$/$1/; #strip off ex. iff it's the only metadata set prefix (will leave ex.dc.* intact)
 
             # its a metadata element