Changeset 28604

Timestamp:

2013-11-05T18:40:59+13:00 (9 years ago)

Author:

ak19

Message:

Found some issues when wanting to add in the CDS-ISIS tutorial collection into the model-collections now that 64 bit linux can handled ISIS collections. Windows carriage return linefeed needs to be processed the same way as linux linefeed, else on Windows the ISIS file will not get parsed the same way and also result in extra newline characters, which shows up when doing diffcol.

File:

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

main/trunk/greenstone2/perllib/util.pm

@@ -1550 +1550 @@
         $path =~ s/^$re_path/$placeholder/; #case sensitive or not?
         #$path =~ s/^[\\\/]//; # remove gs_path's trailing separator left behind at the start of the path
+        # lowercase file extension, This is needed when shortfilenames are used, as case affects alphetical ordering, which affects diffcol     
+        $path =~ s/\.([A-Z]+)$/".".lc($1)/e;
         last; # done
     }