Changeset 2980

Timestamp:

2002-02-20T16:38:08+13:00 (22 years ago)

Author:

jrm21

Message:

Added converted_to, which tells us what format the last input file we had
was converted into, in case it is not the same as the format we were ask to
output. (eg pdftohtml fails, but pdftotext or anytotext works).

File:

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

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -198 +198 @@
 
     # store the *actual* output type and return the output filename
+    # it's possible we requested conversion to html, but only to text succeeded
+
     $self->{'convert_to_ext'} = $output_type;
+    if ($output_type =~ /html/i) {
+    $self->{'converted_to'} = "HTML";
+    } elsif ($output_type =~ /te?xt/i) {
+    $self->{'converted_to'} = "TEXT";
+    }
     my $output_filename = $tmp_filename;
 
@@ -304 +311 @@
     my $tmp_tailname = File::Basename::basename($conv_filename);
     
-    my $convert_to = $self->{'convert_to'};
+    my $converted_to = $self->{'converted_to'};
     my $ret_val;    
 
-    if ($convert_to eq "TEXT")
+    if ($converted_to eq "TEXT")
     {