Changeset 17666 for gsdl

Timestamp:

2008-11-03T19:26:52+13:00 (15 years ago)

Author:

max

Message:

Added file extensions for JPEG2000

File:

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

gsdl/trunk/perllib/plugins/ImagePlugin.pm

@@ -89 +89 @@
     my $self = shift (@_);
 
-    return q^(?i)(\.jpe?g|\.gif|\.png|\.bmp|\.xbm|\.tif?f)$^; 
+    # from .jpf and onwards below, the file extensions are for JPEG2000
+    return q^(?i)(\.jpe?g|\.gif|\.png|\.bmp|\.xbm|\.tif?f|\.jpf|\.jpx|\.jp2|\.jpc|\.j2k|\.pnm|\.pgx)$^; 
 }