Changeset 13879

Timestamp:

2007-02-08T16:35:38+13:00 (17 years ago)

Author:

kjdon

Message:

fixed a bug in converttotype option handling

File:

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

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -158 +158 @@
     my $type = "unknown";
 
-
-    if ($converttotype ne "" && $filename =~ m/$converttotype$/) {
-
+    if ($converttotype ne "" && $filename !~ m/$converttotype$/) {
     $originalfilename = $filename;
     $filename = &util::get_tmp_filename() . ".$converttotype";
@@ -172 +170 @@
 
     $type = $converttotype;
+    $file =~ s/\..*$/\.$type/;
     }