Changeset 8117 for trunk/gsdl

Timestamp:

2004-09-10T16:46:27+12:00 (20 years ago)

Author:

mdewsnip

Message:

Fixed a bug where extra dots in filenames would cause the file extensions to be removed badly.

File:

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

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -293 +293 @@
     # Add the image metadata
     my $file; # the new file name
-    my ($id) = $srcfile =~ /^([^\.]*)/; #the new file name without an extension
+    my $id = $srcfile;
+    $id =~ s/\.([^\.]*)$//;  # the new file name without an extension
     if ($converted) {
     # we have converted the image