--- /Data/Projects_Arthur/TWiki Subversion/twiki/lib/TWiki/Attach.pm    Sun Mar 27 17:09:26 2005
+++ /Users/arthurclemens/Desktop/Attach.pm      Sat Apr  9 22:21:19 2005
@@ -191,6 +191,11 @@
         my $fileIcon = $this->{session}->{renderer}->filenameToIcon( $file );
         return $fileIcon;
     }
+    elsif ( $attr eq 'EXT' ) {
+       $file =~ m/\.(.*)$/;
+        my $fileExtension = $1;
+        return $fileExtension;
+    }
     elsif ( $attr eq 'URL' ) {
         my $url;