Changeset 10403

Timestamp:

2005-08-03T13:23:58+12:00 (19 years ago)

Author:

chi

Message:

Modifications for tidying up the item file generated through pdftoimg.pl.

File:

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

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -572 +572 @@
     my $xml_version = 0;
     open (ITEMFILE, $filename) || die "couldn't open $filename\n";
+    
+    my $backup_filename = "backup.item";
+    open (BACKUP,">$backup_filename")|| die "couldn't write to $backup_filename\n";
     my $line = "";
     my $num = 0;
@@ -583 +586 @@
     }
     close ITEMFILE;
+    open (ITEMFILE, $filename) || die "couldn't open $filename\n";
+    #Tidy up the item file some metadata title contains \vt-vertical tab
+    while ($line = <ITEMFILE>) {
+    $line =~ s/\x0B+//ig;
+    print BACKUP ($line);
+    }
+    close ITEMFILE;
+    close BACKUP;
+    &File::Copy::copy ($backup_filename, $filename);
+    &util::rm($backup_filename);
     #print STDERR "xml version = $xml_version\n";
     my $doc_obj;
@@ -609 +622 @@
     };
     
+    
+    
     if ($@) {
         
@@ -633 +648 @@
     }
     $doc_obj = $self->{'doc_obj'};
-
     } else {
     my ($dir);