Changeset 12683

Timestamp:

2006-09-06T09:25:05+12:00 (18 years ago)

Author:

kjdon

Message:

check for a byte order marker and strip it

File:

• trunk/gsdl/perllib/plugins/PagedImgPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -575 +575 @@
     close ITEMFILE;
     open (ITEMFILE, $filename) || die "couldn't open $filename\n";
+    $line = <ITEMFILE>;
+    $line =~ s/^\xEF\xBB\xBF//; # strip BOM
+    $line =~ s/\x0B+//ig;
+    $line =~ s/&/&amp;/g;
+    print BACKUP ($line);
     #Tidy up the item file some metadata title contains \vt-vertical tab
     while ($line = <ITEMFILE>) {
@@ -585 +590 @@
     &File::Copy::copy ($backup_filename, $filename);
     &util::rm($backup_filename);
-    #print STDERR "xml version = $xml_version\n";
+
     my $doc_obj;
     if ($xml_version) {