--- loncom/homework/daxepage.pm	2016/02/14 16:07:13	1.4
+++ 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.4 2016/02/14 16:07:13 raeburn Exp $
+# $Id: daxepage.pm,v 1.5 2023/08/23 20:58:32 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -28,13 +28,14 @@
 ###
 
 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//;
+    $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);