Changeset 30857 for main/trunk/greenstone2/perllib/plugins
- Timestamp:
- 2016-10-07T16:38:10+13:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/TextPlugin.pm
r28563 r30857 112 112 } 113 113 $title =~ /^\s*([^\n]*)/s; $title=$1; 114 $title =~ s/\t/ /g; 115 $title =~ s/\r?\n?$//s; # remove any carriage returns and/or line feeds at line end, 116 # else the metadata won't appear in GLI even though it will appear in doc.xml 114 117 if (length($title) > 100) { 115 118 $title = substr ($title, 0, 100) . "...";
Note:
See TracChangeset
for help on using the changeset viewer.