Changeset 27742

Timestamp:

2013-07-03T20:52:42+12:00 (11 years ago)

Author:

ak19

Message:

Remove Windows carriage returns when Greenstone assigns titles, where it can't extract any, to ensure that titles of pdftohtml docs are consistent (the same 100 chars) across windows and linux

File:

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

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

@@ -1408 +1408 @@
         $title =~ s/<\/([^>]+)><\1>//g; # (eg) </b><b> - no space
         $title =~ s/<[^>]*>/ /g; # remove all HTML tags
+        $title =~ s@\r@@g; # remove Windows carriage returns to ensure that titles of pdftohtml docs are consistent (the same 100 chars) across windows and linux
         $title = substr ($title, 0, 100);
         $title =~ s/\s\S*$/.../;