[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /publisher loncfile.pm

raeburn raeburn@source.lon-capa.org
Fri, 28 Aug 2009 14:32:26 -0000


raeburn		Fri Aug 28 14:32:26 2009 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/publisher	loncfile.pm 
  Log:
  - Backport 1.102.
  
  
Index: loncom/publisher/loncfile.pm
diff -u loncom/publisher/loncfile.pm:1.100.2.1 loncom/publisher/loncfile.pm:1.100.2.2
--- loncom/publisher/loncfile.pm:1.100.2.1	Thu Aug 13 09:45:52 2009
+++ loncom/publisher/loncfile.pm	Fri Aug 28 14:32:26 2009
@@ -9,7 +9,7 @@
 #  and displays a page showing the results of the action.
 #
 #
-# $Id: loncfile.pm,v 1.100.2.1 2009/08/13 09:45:52 raeburn Exp $
+# $Id: loncfile.pm,v 1.100.2.2 2009/08/28 14:32:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -855,7 +855,8 @@
             $extension = $1;
         }
 
-        my @okexts = qw(xml html xhtml htm xhtm problem page sequence rights sty library js css txt);
+        my @okexts = qw(xml html xhtml htm xhtm problem page sequence rights sty task library js css txt);
+
         if (($extension eq '') || (!grep(/^\Q$extension\E/,@okexts))) {
             my $validexts = '.'.join(', .',@okexts);
             $request->print('<p class="LC_warning">'.