--- loncom/homework/daxepage.pm 2015/12/10 16:26:43 1.1
+++ loncom/homework/daxepage.pm 2016/02/14 16:07:13 1.4
@@ -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.4 2016/02/14 16:07:13 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -35,8 +35,8 @@ 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)$/) {
+ &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 +47,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 .= "