CVS: swish-e/filters/SWISH/Filters XLtoHTML.pm,1.4,1.5

[Bill M. <whm...@us...>]

Update of /cvsroot/swishe/swish-e/filters/SWISH/Filters
In directory sc8-pr-cvs1:/tmp/cvs-serv15797/filters/SWISH/Filters

Modified Files:
	XLtoHTML.pm 
Log Message:


Added a new program for debugging SWISH::Filter operation.  Should be very
helpful...



Index: XLtoHTML.pm
===================================================================
RCS file: /cvsroot/swishe/swish-e/filters/SWISH/Filters/XLtoHTML.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- XLtoHTML.pm	25 Jul 2003 23:21:31 -0000	1.4
+++ XLtoHTML.pm	24 Aug 2003 00:52:43 -0000	1.5
@@ -34,7 +34,7 @@
     my ( $self, $filter) = @_;
 
     # Do we care about this document?
-    return unless $filter->content_type =~ m!application/vnd.ms-excel!;
+    return unless $filter->content_type =~ m!(application/vnd.ms-excel|application/excel)!;
 
     # We need a file name to pass to the conversion function
     my $file = $filter->fetch_filename;