--- loncom/homework/daxepage.pm 2015/12/10 16:26:43 1.1 +++ loncom/homework/daxepage.pm 2023/08/23 20:58:32 1.5 @@ -1,7 +1,7 @@ # The LearningOnline Network # Page with Daxe on the left side and the preview on the right side # -# $Id: daxepage.pm,v 1.1 2015/12/10 16:26:43 damieng Exp $ +# $Id: daxepage.pm,v 1.5 2023/08/23 20:58:32 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -28,15 +28,16 @@ ### package Apache::daxepage; +use strict; -use Apache::Constants; +use Apache::Constants qw(:common); sub handler { my $request = shift; my $uri = $request->uri; - $uri =~ s/^\/daxepage//; - &Apache::loncommon::no_cache($request); - if ($uri !~ /\.(task|problem|exam|quiz|assess|survey|library)$/) { + $uri =~ s{^/daxepage}{}; + &Apache::loncommon::content_type($request,'text/html'); + if ($uri !~ /\.(task|problem|exam|quiz|assess|survey|library|xml|html|htm|xhtml|xhtm)$/) { $request->status(406); return OK; } @@ -47,21 +48,15 @@ sub handler { my $name = $uri; $name =~ s/^.*\/([^\/]+)$/$1/; $result .= "