--- loncom/homework/daxepage.pm 2016/01/06 16:44:30 1.2
+++ 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.2 2016/01/06 16:44:30 damieng Exp $
+# $Id: daxepage.pm,v 1.5 2023/08/23 20:58:32 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -28,14 +28,15 @@
###
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);
+ $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 .= " LON-CAPA Daxe: $name\n";
- $result .= ' '."\n";
- $result .= ' '."\n";
$result .= " \n";
$result .= "\n";
$result .= "\n";
- $result .= ' '."\n";;
my $daxeurl = '/adm/daxe/daxe.html?config=config/loncapa_config.xml&file=/daxeopen'.$uri.
'&save=/daxesave';
- $result .= ' '."\n";
- my $previewurl = $uri.'?inhibitmenu=yes';
- $result .= ' '."\n";
- $result .= "
\n";
- $result .= ' '."\n";
+ $result .= ' '."\n";
$result .= "\n";
$result .= "