Changeset 3539 for trunk/gsdl/perllib/plugins/HTMLPlug.pm

Timestamp:

2002-11-18T14:42:03+13:00 (21 years ago)

Author:

kjdon

Message:

added jpe to the process and block expressions

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -100 +100 @@
              q^w3mir^, \$self->{'w3mir'},
              q^file_is_url^, \$self->{'file_is_url'},
-             q^assoc_files/.*/(?i)\.(jpe?g|gif|png|css)$^, \$self->{'assoc_files'},
+             q^assoc_files/.*/(?i)\.(jpe?g|jpe|gif|png|css)$^, \$self->{'assoc_files'},
              q^rename_assoc_files^, \$self->{'rename_assoc_files'},
              q^title_sub/.*/^, \$self->{'title_sub'},
@@ -127 +127 @@
     my $self = shift (@_);
 
-    return q^(?i)\.(gif|jpe?g|png|css)$^;
+    return q^(?i)\.(gif|jpe?g|jpe|png|css)$^;
 }