--- loncom/xml/lonxml.pm 2024/01/25 23:37:14 1.568
+++ loncom/xml/lonxml.pm 2025/02/19 23:39:38 1.577
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
-# XML Parser Module
+# XML Parser Module
#
-# $Id: lonxml.pm,v 1.568 2024/01/25 23:37:14 raeburn Exp $
+# $Id: lonxml.pm,v 1.577 2025/02/19 23:39:38 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -25,13 +25,13 @@
#
# http://www.lon-capa.org/
#
-# Copyright for TtHfunc and TtMfunc by Ian Hutchinson.
-# TtHfunc and TtMfunc (the "Code") may be compiled and linked into
-# binary executable programs or libraries distributed by the
-# Michigan State University (the "Licensee"), but any binaries so
+# Copyright for TtHfunc and TtMfunc by Ian Hutchinson.
+# TtHfunc and TtMfunc (the "Code") may be compiled and linked into
+# binary executable programs or libraries distributed by the
+# Michigan State University (the "Licensee"), but any binaries so
# distributed are hereby licensed only for use in the context
-# of a program or computational system for which the Licensee is the
-# primary author or distributor, and which performs substantial
+# of a program or computational system for which the Licensee is the
+# primary author or distributor, and which performs substantial
# additional tasks beyond the translation of (La)TeX into HTML.
# The C source of the Code may not be distributed by the Licensee
# to any other parties under any circumstances.
@@ -57,7 +57,7 @@ described at http://www.lon-capa.org.
-package Apache::lonxml;
+package Apache::lonxml;
use vars
qw(@pwd @outputstack $redirection $import @extlinks $metamode $evaluate %insertlist @namespace $errorcount $warningcount);
use strict;
@@ -117,7 +117,7 @@ use Apache::lonhtmlcommon();
use Apache::functionplotresponse();
use Apache::lonnavmaps();
-#==================================== Main subroutine: xmlparse
+#==================================== Main subroutine: xmlparse
#debugging control, to turn on debugging modify the correct handler
@@ -208,7 +208,7 @@ sub xmlend {
if ($Apache::lonhomework::parsing_a_problem ||
$Apache::lonhomework::parsing_a_task ) {
$mode='problem';
- $status=$Apache::inputtags::status[-1];
+ $status=$Apache::inputtags::status[-1];
}
my $discussion;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
@@ -317,7 +317,7 @@ sub xmlparse {
}
&init_state();
if ($env{'form.return_only_error_and_warning_counts'}) {
- if ($env{'request.filename'}=~/\.(html|htm|xml)$/i) {
+ if ($env{'request.filename'}=~/\.(html|htm|xml)$/i) {
my $error=&verify_html($content_file_string);
if ($error) { $errorcount++; }
}
@@ -343,7 +343,7 @@ sub latex_special_symbols {
$string=~s/([^\\])\&/$1\\\&/g;
$string=~s/([^\\])\#/$1\\\#/g;
$string =~ s/_/\\_/g; # _ -> \_
- $string =~ s/\^/\\\^{}/g; # ^ -> \^{}
+ $string =~ s/\^/\\\^{}/g; # ^ -> \^{}
} else {
$string=~s/\\/\\ensuremath{\\backslash}/g;
$string=~s/\\\%|\%/\\\%/g;
@@ -469,7 +469,7 @@ sub inner_xmlparse {
if ($token->[0] eq 'E') {
if ($dontpop) {
- $lastdontpop = $token;
+ $lastdontpop = $token;
} else {
$lastendtag = $token->[1];
&end_tag($stack,$parstack,$token);
@@ -483,7 +483,7 @@ sub inner_xmlparse {
}
}
- if (($#$stack == 0) && ($stack->[0] eq 'physnet') && ($target eq 'web') &&
+ if (($#$stack == 0) && ($stack->[0] eq 'physnet') && ($target eq 'web') &&
($lastendtag eq 'LONCAPA_INTERNAL_TURN_STYLE_ON')) {
if ((ref($lastdontpop) eq 'ARRAY') && ($lastdontpop->[1] eq 'physnet')) {
&end_tag($stack,$parstack,$lastdontpop);
@@ -506,11 +506,11 @@ sub inner_xmlparse {
if ($target eq 'modified') {
# if modfied, handle startpart and endpart
$finaloutput=~s/\<startpartmarker[^\>]*\>(.*)\<endpartmarker[^\>]*\>/<part>$1<\/part>/gs;
- }
+ }
return $finaloutput;
}
-##
+##
## Looks to see if there is a subroutine defined for this tag. If so, call it,
## otherwise do not call it as we do not know what it is.
##
@@ -597,7 +597,7 @@ sub callsub {
sub init_state {
undef(%state);
}
-
+
sub set_state {
my ($key,$value) = @_;
$state{$key} = $value;
@@ -673,6 +673,7 @@ sub init_safespace {
$safeeval->reval('use LONCAPA::LCMathComplex;');
$safeeval->permit_only(":default");
$safeeval->permit("entereval");
+ $safeeval->permit("hintseval");
$safeeval->permit(":base_math");
$safeeval->permit("sort");
$safeeval->permit("time");
@@ -699,7 +700,7 @@ sub init_safespace {
$safehole->wrap(\&Apache::lonr::r_check,$safeeval,'&r_check');
$safehole->wrap(\&Apache::lonr::r_cas_formula_fix,$safeeval,
'&r_cas_formula_fix');
-
+
$safehole->wrap(\&Apache::caparesponse::capa_formula_fix,$safeeval,
'&capa_formula_fix');
@@ -725,7 +726,7 @@ sub init_safespace {
$safehole->wrap(\&Math::Cephes::y1,$safeeval,'&y1');
$safehole->wrap(\&Math::Cephes::yn,$safeeval,'&yn');
$safehole->wrap(\&Math::Cephes::yv,$safeeval,'&yv');
-
+
$safehole->wrap(\&Math::Cephes::bdtr ,$safeeval,'&bdtr' );
$safehole->wrap(\&Math::Cephes::bdtrc ,$safeeval,'&bdtrc' );
$safehole->wrap(\&Math::Cephes::bdtri ,$safeeval,'&bdtri' );
@@ -1072,7 +1073,7 @@ sub increment_counter {
}
$Apache::lonxml::counter += $increment;
- # If the caller supplied the response_id parameter,
+ # If the caller supplied the response_id parameter,
# Maintain its counter.. creating if necessary.
if (defined($part_response)) {
@@ -1193,7 +1194,7 @@ sub set_bubble_lines {
=item get_bubble_line_hash
-Returns the current bubble line hash. This is assumed to
+Returns the current bubble line hash. This is assumed to
be small so we return a copy
@@ -1219,8 +1220,8 @@ sub get_all_text {
my $depth=0;
my $token;
my $result='';
- if ( $tag =~ m:^/: ) {
- my $tag=substr($tag,1);
+ if ( $tag =~ m:^/: ) {
+ my $tag=substr($tag,1);
#&Apache::lonxml::debug("have:$tag:");
my $top_empty=0;
while (($depth >=0) && ($#$pars > -1) && (!$top_empty)) {
@@ -1321,7 +1322,7 @@ sub newparser {
push (@Apache::lonxml::pwd, $Apache::lonxml::pwd[$#Apache::lonxml::pwd]);
} else {
push (@Apache::lonxml::pwd, $dir);
- }
+ }
}
sub parstring {
@@ -1338,7 +1339,7 @@ sub parstring {
push(@values,"\"$val\"");
}
}
- my $var_init =
+ my $var_init =
(@vars) ? 'my ('.join(',',@vars).') = ('.join(',',@values).');'
: '';
return $var_init;
@@ -1591,7 +1592,7 @@ FULLPAGE
}
} elsif ($symb || $folderpath) {
$deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n";
- $initialize .=
+ $initialize .=
&Apache::lonhtmlcommon::dependencycheck_js($symb,$itemtitle,
undef,$folderpath,$uri)."\n";
}
@@ -1615,7 +1616,8 @@ FULLPAGE
'dv' => 'Discard Edits and View',
'un' => 'Undo',
'ed' => 'Edit',
- 'ew' => 'Edit with Daxe');
+ 'ew' => 'Edit with Daxe',
+ 'er' => 'Editor');
my $spelllink = &Apache::lonhtmlcommon::spelllink('xmledit','filecont');
my $textarea_events = &Apache::edit::element_change_detection();
my $form_events = &Apache::edit::form_change_detection();
@@ -1639,12 +1641,12 @@ FULLPAGE
$onclick{$item} = 'onclick="is_submit=true;setmode(this.form,'."'$item'".')"';
}
unless ($uri =~ m{^/uploaded/}) {
- $undo = '<input type="button" name="Undo" accesskey="u" value="'.$lt{'un'}.'" '.
+ $undo = '<input type="button" name="undo" accesskey="u" value="'.$lt{'un'}.'" '.
$onclick{'undo'}.' />'."\n";
}
$initialize .= &setmode_javascript();
if ($filetype eq 'html') {
- my %editors = &Apache::loncommon::permitted_editors();
+ my %editors = &Apache::loncommon::permitted_editors($uri);
if ($editors{'daxe'}) {
$daxebutton = '<input type="button" name="editwithdaxe" accesskey="w" value="'.$lt{'ew'}.'" '.
$onclick{'daxe'}.' />'."\n";
@@ -1671,7 +1673,7 @@ $initialize
$undo $deps_button $daxebutton $dragmath_button $htmlerror
</div>
</div>
- <textarea $textarea_events style="width:100%" cols="80" rows="44" name="filecont" id="filecont" $textareaclass>$filecontents</textarea><br />$spelllink
+ <textarea $textarea_events style="width:100%" cols="80" rows="44" name="filecont" id="filecont" $textareaclass>$filecontents</textarea><br /><label for="filecont" class="LC_visually_hidden">$lt{'er'}</label>$spelllink
<div id="LC_aftertextarea">
<br />
$titledisplay
@@ -1702,15 +1704,67 @@ ENDSCRIPT
}
sub seteditor_javascript {
+ my ($is_course_doc,$is_supp,$supp_path,$supp_title) = @_;
+ my $symb;
+ if ($is_course_doc) {
+ if (!$is_supp) {
+ ($symb) = &Apache::lonnet::whichuser();
+ if ($symb) {
+ $symb = &escape($symb);
+ }
+ }
+ }
return <<"ENDSCRIPT";
<script type="text/javascript">
// <![CDATA[
function seteditmode(form,editor) {
+ var querystr = '';
+ var supplemental = '$is_supp';
+ var coursedoc = '$is_course_doc';
+ if (coursedoc) {
+ if (supplemental) {
+ var supppath = '$supp_path';
+ var supptitle = '$supp_title';
+ if (supppath) {
+ querystr = 'folderpath='+supppath;
+ }
+ if (supptitle) {
+ if (querystr) {
+ querystr += '&';
+ }
+ querystr += 'title='+supptitle;
+ }
+ }
+ }
if (editor == 'daxe') {
var url = new URL(document.location.href);
- window.location = url.protocol+'//'+url.hostname+'/daxepage'+url.pathname;
+ var newloc = url.protocol+'//'+url.hostname+'/daxepage'+url.pathname;
+ if (querystr) {
+ if (/\\?/.test(url.pathname)) {
+ newloc += '&';
+ } else {
+ newloc += '?';
+ }
+ newloc += querystr;
+ }
+ window.location = newloc;
} else {
- form.editmode.value = editor;
+ if (coursedoc) {
+ var curraction = form.action;
+ var idx = curraction.indexOf('?');
+ if (idx !== -1) {
+ form.action = curraction.substring(0,idx);
+ }
+ form.action += '?forceedit=1®ister=1';
+ if (querystr) {
+ form.action += '&'+querystr;
+ }
+ }
+ if (editor == 'edit') {
+ form.editmode.value = editor;
+ } else {
+ form.editmode.value = '';
+ }
form.submit();
}
}
@@ -1751,7 +1805,7 @@ sub handler {
my $target=&get_target();
$Apache::lonxml::debug=$env{'user.debug'};
-
+
&Apache::loncommon::content_type($request,'text/html');
&Apache::loncommon::no_cache($request);
if ($env{'request.state'} eq 'published') {
@@ -1759,7 +1813,7 @@ sub handler {
'lastrevisiondate'));
}
# Embedded Flash movies from Camtasia served from https will not display in IE
- # if XML config file has expired from cache.
+ # if XML config file has expired from cache.
if ($ENV{'SERVER_PORT'} == 443) {
if ($request->uri =~ /\.xml$/) {
my ($httpbrowser,$clientbrowser) =
@@ -1774,7 +1828,7 @@ sub handler {
}
}
$request->send_http_header;
-
+
return OK if $request->header_only;
@@ -1836,12 +1890,19 @@ sub handler {
my $result = '';
my $filecontents=&Apache::lonnet::getfile($file);
if ($filecontents eq -1) {
- my $start_page=&Apache::loncommon::start_page('File Error');
- my $end_page=&Apache::loncommon::end_page();
- my $errormsg='<p class="LC_error">'
- .&mt('File not found: [_1]'
- ,'<span class="LC_filename">'.$file.'</span>')
- .'</p>';
+ my ($start_page,$end_page,$errormsg);
+ $start_page=&Apache::loncommon::start_page('File Error');
+ if ($target eq 'web') {
+ $start_page .= '<div class="LC_landmark" style="clear:both" role="menu">'.
+ '<h1 class="LC_visually_hidden">'.
+ &mt('File not found').'</h1>';
+ $end_page = '</div>';
+ }
+ $end_page .= &Apache::loncommon::end_page();
+ $errormsg='<p class="LC_error">'
+ .&mt('File not found: [_1]'
+ ,'<span class="LC_filename">'.$file.'</span>')
+ .'</p>';
$result=(<<ENDNOTFOUND);
$start_page
$errormsg
@@ -1897,7 +1958,7 @@ ENDNOTFOUND
$inhibit_menu = 1;
}
}
- if (($filetype ne 'html') &&
+ if (($filetype ne 'html') &&
(!$env{'form.return_only_error_and_warning_counts'}) &&
(!$inhibit_menu)) {
my $nochgview = 1;
@@ -1954,9 +2015,15 @@ ENDNOTFOUND
$displayfile=$request->uri;
if ($request->uri =~ m{^/uploaded/}) {
if ($env{'request.course.id'}) {
- if ($request->uri =~ m{^\Q/uploaded/$cdom/$cnum/supplemental/\E}) {
- &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- ['folderpath','title']);
+ if ($request->uri =~ m{^\Q/uploaded/$cdom/$cnum/\E(docs|supplemental)/}) {
+ if ($1 eq 'supplemental') {
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ ['folderpath','title']);
+ }
+ if (($env{'request.state'} eq 'edit') && ($env{'form.editmode'} eq 'edit') &&
+ ($filetype eq 'html')) {
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ }
} elsif ($request->uri =~ m{^\Q/uploaded/$cdom/$cnum/portfolio/syllabus/\E(.+)$}) {
my $filename = $1;
if ($1 eq 'loncapa.html') {
@@ -1969,7 +2036,7 @@ ENDNOTFOUND
}
}
unless ($itemtitle) {
- ($symb,$itemtitle,$displayfile) =
+ ($symb,$itemtitle,$displayfile) =
&get_courseupload_hierarchy($request->uri,
$env{'form.folderpath'},
$env{'form.title'});
@@ -1982,7 +2049,7 @@ ENDNOTFOUND
&inserteditinfo($filecontents,$filetype,$displayfile,$symb,
$itemtitle,$env{'form.folderpath'},$request->uri,$action);
- my %options =
+ my %options =
('add_entries' =>
{'onresize' => $add_to_onresize,
'onload' => $add_to_onload, });
@@ -2021,7 +2088,7 @@ ENDNOTFOUND
&Apache::lonxml::add_messages(\$result);
$request->print($result);
-
+
return OK;
}
@@ -2054,6 +2121,7 @@ sub get_courseupload_hierarchy {
}
if ($title) {
push(@pathitems,&unescape($title));
+ $itemtitle = $title;
}
$displaypath = join(' » ',@pathitems);
} else {
@@ -2091,7 +2159,7 @@ sub debug {
}
sub show_error_warn_msg {
- if (($env{'request.filename'} eq
+ if (($env{'request.filename'} eq
$Apache::lonnet::perlvar{'lonDocRoot'}.'/res/lib/templates/simpleproblem.problem') &&
(&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
return 1;
@@ -2186,7 +2254,7 @@ sub error {
sub warning {
$warningcount++;
-
+
if ($env{'form.grade_target'} ne 'tex') {
if ( &show_error_warn_msg() ) {
push(@Apache::lonxml::warning_messages,
@@ -2201,7 +2269,7 @@ sub warning {
}
sub info {
- if ($env{'form.grade_target'} ne 'tex'
+ if ($env{'form.grade_target'} ne 'tex'
&& $env{'request.state'} eq 'construct') {
push(@Apache::lonxml::info_messages,join('<br />',@_)."<br />\n");
}
@@ -2251,7 +2319,7 @@ sub get_param {
}
} else {
if ( $args =~ /my .*\$\Q$param\E[,\)]/ ) {
-
+
return &Apache::run::run("{$args;".'return $'.$param.'}',
$safeeval); #'
} else {
@@ -2333,7 +2401,7 @@ sub register_insert_xml {
}
}
}
-
+
# parse the allows and ignore tags set to <show>no</show>
foreach my $tag (@alltags) {
next if (!exists($insertlist{$tag.'.allow'}));
@@ -2439,7 +2507,7 @@ sub get_tag {
=item &print_pdf_radiobutton(fieldname, value)
Returns a latexline to generate a PDF-Form-Radiobutton.
-Note: Radiobuttons with equal names are automaticly grouped
+Note: Radiobuttons with equal names are automaticly grouped
in a selection-group.
$fieldname: PDF internalname of the radiobutton(group)
@@ -2466,7 +2534,7 @@ sub print_pdf_start_combobox {
my $result;
my ($fieldName) = @_;
$result .= '\begin{tabularx}{\textwidth}{p{2.5cm}X}'."\n";
- $result .= '\comboBox[]{'.$fieldName.'}{2.3cm}{14bp}{'; #
+ $result .= '\comboBox[]{'.$fieldName.'}{2.3cm}{14bp}{'; #
return $result;
}
@@ -2484,10 +2552,10 @@ $option: PDF internal name of the Combob
sub print_pdf_add_combobox_option {
my $result;
- my ($option) = @_;
+ my ($option) = @_;
$result .= '('.$option.')';
-
+
return $result;
}