version 1.3, 2015/12/15 15:00:58
|
version 1.4, 2016/01/06 16:44:30
|
Line 49 sub handler {
|
Line 49 sub handler {
|
&Apache::loncommon::no_cache($request); |
&Apache::loncommon::no_cache($request); |
if ($uri =~ /\/$/) { |
if ($uri =~ /\/$/) { |
return directory_listing($uri, $request); |
return directory_listing($uri, $request); |
} elsif ($uri =~ /\.(task|problem|exam|quiz|assess|survey|library)$/) { |
} elsif ($uri =~ /\.(task|problem|exam|quiz|assess|survey|library|xml|html|htm|xhtml|xhtm)$/) { |
return convert_problem($uri, $request); |
return convert_problem($uri, $request); |
} else { |
} else { |
# Apache should send other files directly |
# Apache should send other files directly |
Line 70 sub convert_problem {
|
Line 70 sub convert_problem {
|
try { |
try { |
my $warnings = 0; # no warning printed |
my $warnings = 0; # no warning printed |
my $textref = &Apache::pre_xml::pre_xml($file, $warnings); |
my $textref = &Apache::pre_xml::pre_xml($file, $warnings); |
$textref = &Apache::html_to_xml::html_to_xml($textref, $warnings); |
my $case_sensitive; |
|
if ($uri =~ /\.(task)$/) { |
|
$case_sensitive = 1; |
|
} else { |
|
$case_sensitive = 0; |
|
} |
|
$textref = &Apache::html_to_xml::html_to_xml($textref, $warnings, $case_sensitive); |
my $text = &Apache::post_xml::post_xml($textref, $file, $perlvar{'lonDocRoot'}, $warnings); |
my $text = &Apache::post_xml::post_xml($textref, $file, $perlvar{'lonDocRoot'}, $warnings); |
&Apache::loncommon::content_type($request, 'text/xml', 'utf-8'); |
&Apache::loncommon::content_type($request, 'text/xml', 'utf-8'); |
$request->print($text); |
$request->print($text); |