Changeset 30857 for main/trunk/greenstone2/perllib/plugins/TextPlugin.pm

Timestamp:

2016-10-07T16:38:10+13:00 (8 years ago)

Author:

ak19

Message:

Unless new line endings (particularly carriage return characters missing line feeds) are removed from the end of the ex.Title metadata, the ex.Title is not displayed in GLI's enrich panel, even though it's stored (with the carriage return) in doc.xml.

File:

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

main/trunk/greenstone2/perllib/plugins/TextPlugin.pm

@@ -112 +112 @@
     }
     $title =~ /^\s*([^\n]*)/s; $title=$1;
+    $title =~ s/\t/ /g;
+    $title =~ s/\r?\n?$//s; # remove any carriage returns and/or line feeds at line end, 
+       # else the metadata won't appear in GLI even though it will appear in doc.xml
     if (length($title) > 100) {
     $title = substr ($title, 0, 100) . "...";