--- loncom/publisher/loncfile.pm 2009/08/13 09:45:52 1.100.2.1 +++ loncom/publisher/loncfile.pm 2009/08/28 14:32:26 1.100.2.2 @@ -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 @@ sub NewFile1 { $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('

'.