Changeset 28355 for main/trunk/greenstone2/perllib/plugins
- Timestamp:
- 2013-10-04T19:52:18+13:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm
r27509 r28355 407 407 my ($filename) = @_; 408 408 409 open (ITEMFILE, $filename) || die "couldn't open $filename\n";409 open (ITEMFILE, "<:encoding(UTF-8)", $filename) || die "couldn't open $filename\n"; 410 410 my $backup_filename = "backup.item"; 411 411 open (BACKUP,">$backup_filename")|| die "couldn't write to $backup_filename\n"; 412 binmode(BACKUP, ":utf8"); 412 413 my $line = ""; 413 414 $line = <ITEMFILE>; 414 $line =~ s/^\xEF\xBB\xBF//; # strip BOM 415 $line =~ s/\x0B+//ig; 415 #$line =~ s/^\xEF\xBB\xBF//; # strip BOM in text file read in as a sequence of bytes (not unicode aware strings) 416 $line =~ s/^\x{FEFF}//; # strip BOM in file opened *as UTF-8*. Strings in the file just read in are now unicode-aware, 417 # this means the BOM is now a unicode codepoint instead of a byte sequence 418 # See http://en.wikipedia.org/wiki/Byte_order_mark and http://perldoc.perl.org/5.14.0/perlunicode.html 419 $line =~ s/\x{0B}+//ig; # removing \vt-vertical tabs using the unicode codepoint for \vt 416 420 $line =~ s/&/&/g; 417 421 print BACKUP ($line); 418 422 #Tidy up the item file some metadata title contains \vt-vertical tab 419 423 while ($line = <ITEMFILE>) { 420 $line =~ s/\x 0B+//ig;424 $line =~ s/\x{0B}+//ig; # removing \vt-vertical tabs using the unicode codepoint for \vt 421 425 $line =~ s/&/&/g; 422 426 print BACKUP ($line); … … 657 661 my $self = shift (@_); 658 662 my ($filename_full_path, $dir, $block_hash) = @_; 663 659 664 660 665 open (ITEMFILE, $filename_full_path) || die "couldn't open $filename_full_path to work out which files to block\n";
Note:
See TracChangeset
for help on using the changeset viewer.