Changeset 3086 for trunk/gsdl/perllib/plugins/BasPlug.pm

Timestamp:

2002-04-22T13:00:48+12:00 (22 years ago)

Author:

nzdl

Message:

* empty log message *

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -725 +725 @@
     if (-e $filename) {
     $doc_obj->associate_file($filename, "cover.jpg", "image/jpeg");
+    } else {
+    $filename =~ s/jpg$/JPG/;
+    if (-e $filename) {
+        $doc_obj->associate_file($filename, "cover.jpg", "image/jpeg");
+    }
     }
 }