|
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); |
![[BACK]](/icons/back.gif){kind=icon}
Return to daxeopen.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework