[LON-CAPA-cvs] cvs: loncom /homework daxepage.pm

[raeburn]

raeburn		Wed Aug 23 20:58:32 2023 EDT

  Modified files:              
    /loncom/homework	daxepage.pm 
  Log:
  - Coding style: use strict and eliminate leaning toothpicks.
  
  
Index: loncom/homework/daxepage.pm
diff -u loncom/homework/daxepage.pm:1.4 loncom/homework/daxepage.pm:1.5
--- loncom/homework/daxepage.pm:1.4	Sun Feb 14 16:07:13 2016
+++ loncom/homework/daxepage.pm	Wed Aug 23 20:58:32 2023
@@ -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);