--- loncom/xml/lonxml.pm 2018/09/14 21:41:13 1.531.2.24 +++ loncom/xml/lonxml.pm 2012/07/05 19:24:02 1.532 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.531.2.24 2018/09/14 21:41:13 raeburn Exp $ +# $Id: lonxml.pm,v 1.532 2012/07/05 19:24:02 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -69,8 +69,6 @@ use Safe(); use Safe::Hole(); use Math::Cephes(); use Math::Random(); -use Math::Calculus::Expression(); -use Number::FormatEng(); use Opcode(); use POSIX qw(strftime); use Time::HiRes qw( gettimeofday tv_interval ); @@ -146,7 +144,7 @@ $metamode = 0; # turns on and of run::evaluate actually derefencing var refs $evaluate = 1; -# data structure for edit mode, determines what tags can go into what other tags +# data structure for eidt mode, determines what tags can go into what other tags %insertlist=(); # stores the list of active tag namespaces @@ -230,106 +228,12 @@ sub xmlend { return $discussion; } -sub tokeninputfield { - my $defhost=$Apache::lonnet::perlvar{'lonHostID'}; - $defhost=~tr/a-z/A-Z/; - return (< - function updatetoken() { - var comp=new Array; - var barcode=unescape(document.tokeninput.barcode.value); - comp=barcode.split('*'); - if (typeof(comp[0])!="undefined") { - document.tokeninput.codeone.value=comp[0]; - } - if (typeof(comp[1])!="undefined") { - document.tokeninput.codetwo.value=comp[1]; - } - if (typeof(comp[2])!="undefined") { - comp[2]=comp[2].toUpperCase(); - document.tokeninput.codethree.value=comp[2]; - } - document.tokeninput.barcode.value=''; - } - -
- - - - -
DocID Checkin
- - - - - - - -
Scan in Barcode
or Type in DocID - -* - -* - -
-
-
-ENDINPUTFIELD -} - -sub maketoken { - my ($symb,$tuname,$tudom,$tcrsid)=@_; - unless ($symb) { - $symb=&Apache::lonnet::symbread(); - } - unless ($tuname) { - $tuname=$env{'user.name'}; - $tudom=$env{'user.domain'}; - $tcrsid=$env{'request.course.id'}; - } - return &Apache::lonnet::checkout($symb,$tuname,$tudom,$tcrsid); -} - -sub printtokenheader { - my ($target,$token,$tsymb,$tcrsid,$tudom,$tuname)=@_; - unless ($token) { return ''; } - - my ($symb,$courseid,$domain,$name) = &Apache::lonnet::whichuser(); - unless ($tsymb) { - $tsymb=$symb; - } - unless ($tuname) { - $tuname=$name; - $tudom=$domain; - $tcrsid=$courseid; - } - - my $plainname=&Apache::loncommon::plainname($tuname,$tudom); - - if ($target eq 'web') { - my %idhash=&Apache::lonnet::idrget($tudom,($tuname)); - return - ''. - &mt('Checked out for').' '.$plainname. - '
'.&mt('User').': '.$tuname.' at '.$tudom. - '
'.&mt('ID').': '.$idhash{$tuname}. - '
'.&mt('CourseID').': '.$tcrsid. - '
'.&mt('Course').': '.$env{'course.'.$tcrsid.'.description'}. - '
'.&mt('DocID').': '.$token. - '
'.&mt('Time').': '.&Apache::lonlocal::locallocaltime().'
'; - } else { - return $token; - } -} - sub printalltags { - my $temp; - foreach $temp (sort keys %Apache::lonxml::alltags) { - &Apache::lonxml::debug("$temp -- ". - join(',',@{ $Apache::lonxml::alltags{$temp} })); - } + my $temp; + foreach $temp (sort keys %Apache::lonxml::alltags) { + &Apache::lonxml::debug("$temp -- ". + join(',',@{ $Apache::lonxml::alltags{$temp} })); + } } sub xmlparse { @@ -402,12 +306,8 @@ sub xmlparse { &clean_safespace($safeeval); if (@script_var_displays) { - if ($finaloutput =~ m{\s*\s*$}s) { - my $scriptoutput = join('',@script_var_displays); - $finaloutput=~s{(\s*)\s*$}{$scriptoutput$1}s; - } else { - $finaloutput .= join('',@script_var_displays); - } + my $scriptoutput = join('',@script_var_displays); + $finaloutput=~s{(\s*)\s*$}{$scriptoutput$1}s; undef(@script_var_displays); } &init_state(); @@ -442,9 +342,9 @@ sub latex_special_symbols { } else { $string=~s/\\/\\ensuremath{\\backslash}/g; $string=~s/\\\%|\%/\\\%/g; - $string=~s/\\\{|\{/\\{/g; + $string=~s/\\{|{/\\{/g; $string=~s/\\}|}/\\}/g; - $string=~s/\\ensuremath\\\{\\backslash\\}/\\ensuremath{\\backslash}/g; + $string=~s/\\ensuremath\\{\\backslash\\}/\\ensuremath{\\backslash}/g; $string=~s/\\\$|\$/\\\$/g; $string=~s/\\\_|\_/\\\_/g; $string=~s/([^\\]|^)(\~|\^)/$1\\$2\\strut /g; @@ -465,8 +365,6 @@ sub inner_xmlparse { my $result; my $token; my $dontpop=0; - my $lastdontpop; - my $lastendtag; my $startredirection = $Apache::lonxml::redirection; while ( $#$pars > -1 ) { while ($token = $$pars['-1']->get_token) { @@ -562,29 +460,17 @@ sub inner_xmlparse { } $result = ''; - if ($token->[0] eq 'E') { - if ($dontpop) { - $lastdontpop = $token; - } else { - $lastendtag = $token->[1]; - &end_tag($stack,$parstack,$token); - } + if ($token->[0] eq 'E' && !$dontpop) { + &end_tag($stack,$parstack,$token); } $dontpop=0; - } + } if ($#$pars > -1) { pop @$pars; pop @Apache::lonxml::pwd; } } - 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); - } - } - # if ($target eq 'meta') { # $finaloutput.=&endredirection; # } @@ -763,9 +649,9 @@ sub setup_globals { sub init_safespace { my ($target,$safeeval,$safehole,$safeinit) = @_; + $safeeval->reval('use Math::Complex;'); $safeeval->reval('use LaTeX::Table;'); $safeeval->deny_only(':dangerous'); - $safeeval->reval('use LONCAPA::LCMathComplex;'); $safeeval->permit_only(":default"); $safeeval->permit("entereval"); $safeeval->permit(":base_math"); @@ -916,9 +802,6 @@ sub init_safespace { $safehole->wrap(\&Apache::functionplotresponse::fpr_objectcoords,$safeeval,'&fpr_objectcoords'); $safehole->wrap(\&Apache::functionplotresponse::fpr_vectorlength,$safeeval,'&fpr_vectorlength'); $safehole->wrap(\&Apache::functionplotresponse::fpr_vectorangle,$safeeval,'&fpr_vectorangle'); - $safehole->wrap(\&Math::Calculus::Expression::math_calculus_expression,$safeeval,'&math_calculus_expression'); - $safehole->wrap(\&Number::FormatEng::format_eng,$safeeval,'&number_format_eng'); - $safehole->wrap(\&Number::FormatEng::format_pref,$safeeval,'&number_format_pref'); # use Data::Dumper; # $safehole->wrap(\&Data::Dumper::Dumper,$safeeval,'&LONCAPA_INTERNAL_Dumper'); @@ -927,10 +810,7 @@ sub init_safespace { $safeeval->permit("require"); $safeinit .= ';$external::target="'.$target.'";'; &Apache::run::run($safeinit,$safeeval); - my $rawrndseed = &initialize_rndseed($safeeval); - if ($target eq 'grade') { - $Apache::lonhomework::rawrndseed = $rawrndseed; - } + &initialize_rndseed($safeeval); } sub clean_safespace { @@ -969,7 +849,6 @@ sub initialize_rndseed { my $safeinit = '$external::randomseed="'.$rndseed.'";'; &Apache::lonxml::debug("Setting rndseed to $rndseed"); &Apache::run::run($safeinit,$safeeval); - return $rndseed; } sub default_homework_load { @@ -1091,7 +970,7 @@ sub decreasedepth { sub get_id { my ($parstack,$safeeval)=@_; my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); - if ($env{'request.state'} eq 'construct' && $id =~ /([._]|[^\w\s\-])/) { + if ($env{'request.state'} eq 'construct' && $id =~ /([._]|[^\w\d\s[:punct:]])/) { &error(&mt('ID [_1] contains invalid characters. IDs are only allowed to contain letters, numbers, spaces and -','"'.$id.'"')); } if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; } @@ -1444,7 +1323,7 @@ sub extlink { if (!$exact) { $res=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$res); } - push(@Apache::lonxml::extlinks,$res); + push(@Apache::lonxml::extlinks,$res) } sub writeallows { @@ -1480,9 +1359,7 @@ sub do_registered_ssi { sub add_script_result { my ($display) = @_; - if ($display ne '') { - push(@script_var_displays, $display); - } + push(@script_var_displays, $display); } # @@ -1574,15 +1451,13 @@ SIMPLECONTENT sub verify_html { my ($filecontents)=@_; - my ($is_html,$is_xml,$is_physnet); + my ($is_html,$is_xml); if ($filecontents =~/(?:\<|\<\;)\?xml[^\<]*\?(?:\>|\>\;)/is) { $is_xml = 1; } elsif ($filecontents =~/(?:\<|\<\;)html(?:\s+[^\<]+|\s*)(?:\>|\>\;)/is) { $is_html = 1; - } elsif ($filecontents =~/(?:\<|\<\;)physnet[^\<]*(?:\>|\>\;)/is) { - $is_physnet = 1; } - unless ($is_xml || $is_html || $is_physnet) { + unless ($is_xml || $is_html) { return &mt('File does not have [_1] or [_2] starting tag','<html>','<?xml ?>'); } if ($is_html) { @@ -1628,67 +1503,43 @@ sub renderingoptions { ('' => '', 'tth' => 'tth (TeX to HTML)', 'MathJax' => 'MathJax', + 'jsMath' => 'jsMath', 'mimetex' => 'mimetex (Convert to Images)')}). ''; return $output; } sub inserteditinfo { - my ($filecontents,$filetype,$filename,$symb,$itemtitle,$folderpath,$uri,$action) = @_; + my ($filecontents,$filetype,$filename,$symb,$itemtitle) = @_; $filecontents = &HTML::Entities::encode($filecontents,'<>&"'); my $xml_help = ''; my $initialize=''; my $textarea_id = 'filecont'; - my ($dragmath_button,$deps_button,$context,$cnum,$cdom,$add_to_onload, - $add_to_onresize,$init_dragmath); + my ($dragmath_button,$deps_button); + my ($add_to_onload, $add_to_onresize); $initialize=&Apache::lonhtmlcommon::spellheader(); - if ($filetype eq 'html') { - if ($env{'request.course.id'}) { - $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; - $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; - if ($uri =~ m{^\Q/uploaded/$cdom/$cnum/portfolio/syllabus/\E}) { - $context = 'syllabus'; - } - } - if (&Apache::lonhtmlcommon::htmlareabrowser()) { - my $lang = &Apache::lonhtmlcommon::htmlarea_lang(); - my %textarea_args = ( - fullpage => 'true', - dragmath => 'math', - ); - $initialize .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args); - if ($context eq 'syllabus') { - $init_dragmath = "editmath_visibility('filecont','none')"; - } - } + if (($filetype eq 'html') && (&Apache::lonhtmlcommon::htmlareabrowser())) { + my $lang = &Apache::lonhtmlcommon::htmlarea_lang(); + my %textarea_args = ( + fullpage => 'true', + dragmath => 'math', + ); + $initialize .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args); } $initialize .= (< // FULLPAGE - my $textareaclass; if ($filetype eq 'html') { - if ($context eq 'syllabus') { - $deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n"; - $initialize .= - &Apache::lonhtmlcommon::dependencycheck_js(undef,&mt('Syllabus'), - $uri,undef, - "/public/$cdom/$cnum/syllabus"). - "\n"; - if (&Apache::lonhtmlcommon::htmlareabrowser()) { - $textareaclass = 'class="LC_richDefaultOn"'; - } - } elsif ($symb || $folderpath) { + if ($symb) { $deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n"; - $initialize .= - &Apache::lonhtmlcommon::dependencycheck_js($symb,$itemtitle, - undef,$folderpath,$uri)."\n"; + $initialize .= + &Apache::lonhtmlcommon::dependencycheck_js($symb,$itemtitle)."\n"; } $dragmath_button = ''.&Apache::lonhtmlcommon::dragmath_button('filecont',1).''; $initialize .= "\n".&Apache::lonhtmlcommon::dragmath_js('EditMathPopup'); @@ -1697,14 +1548,11 @@ FULLPAGE $add_to_onresize = "resize_textarea('$textarea_id','LC_aftertextarea');"; if ($filetype eq 'html') { - my $not_author; - if ($uri =~ m{^/uploaded/}) { - $not_author = 1; - } - $xml_help=&Apache::loncommon::helpLatexCheatsheet(undef,undef,$not_author); + $xml_help=&Apache::loncommon::helpLatexCheatsheet(); } my $titledisplay=&display_title(); + my $textareaclass; my %lt=&Apache::lonlocal::texthash('st' => 'Save and Edit', 'vi' => 'Save and View', 'dv' => 'Discard Edits and View', @@ -1720,19 +1568,13 @@ FULLPAGE $htmlerror=''.$htmlerror.''; } if (&Apache::lonhtmlcommon::htmlareabrowser()) { - unless ($textareaclass) { - $textareaclass = 'class="LC_richDefaultOff"'; - } + $textareaclass = 'class="LC_richDefaultOff"'; } } - my $undo; - unless ($uri =~ m{^/uploaded/}) { - $undo = ''."\n"; - } my $editfooter=(< -
+
$filename @@ -1740,11 +1582,12 @@ $initialize $xml_help
-
+
- $undo $htmlerror $deps_button $dragmath_button + + $htmlerror $deps_button $dragmath_button
-
+
@@ -1755,6 +1598,7 @@ $initialize $titledisplay
+ ENDFOOTER return ($editfooter,$add_to_onload,$add_to_onresize);; } @@ -1825,24 +1669,6 @@ sub handler { } else { $filetype='html'; } - unless ($env{'request.uri'}) { - $env{'request.uri'}=$request->uri; - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, - ['todocs']); - } - my ($cdom,$cnum); - if ($env{'request.course.id'}) { - $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; - $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; - if ($filetype eq 'html') { - if ($request->uri =~ m{^\Q/uploaded/$cdom/$cnum/portfolio/syllabus/\E.+$}) { - if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, - ['editmode']); - } - } - } - } if ($filetype eq 'sty') { $breadcrumbtext = 'Style File Editor'; } elsif ($filetype eq 'js') { @@ -1869,7 +1695,6 @@ sub handler { } } } - my $inhibit_menu; my %mystyle; my $result = ''; my $filecontents=&Apache::lonnet::getfile($file); @@ -1927,15 +1752,8 @@ ENDNOTFOUND &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['rawmode']); if ($env{'form.rawmode'}) { $result = $filecontents; } - if (($env{'request.state'} eq 'construct') && - (($filetype eq 'css') || ($filetype eq 'js')) && ($ENV{'HTTP_REFERER'})) { - if ($ENV{'HTTP_REFERER'} =~ m{^https?\://[^\/]+/priv/$LONCAPA::match_domain/$LONCAPA::match_username/[^\?]+\.(x?html?|swf)(|\?)[^\?]*$}) { - $inhibit_menu = 1; - } - } if (($filetype ne 'html') && - (!$env{'form.return_only_error_and_warning_counts'}) && - (!$inhibit_menu)) { + (!$env{'form.return_only_error_and_warning_counts'})) { my $nochgview = 1; my $controls = ''; if ($env{'request.state'} eq 'construct') { @@ -1953,7 +1771,7 @@ ENDNOTFOUND my $brcrum; if ($env{'request.state'} eq 'construct') { $brcrum = [{'href' => &Apache::loncommon::authorspace($request->uri), - 'text' => 'Authoring Space'}, + 'text' => 'Construction Space'}, {'href' => '', 'text' => $breadcrumbtext}]; } else { @@ -1973,40 +1791,20 @@ ENDNOTFOUND # # Edit action? Insert editing commands # - unless (($env{'request.state'} eq 'published') || ($inhibit_menu)) { + unless ($env{'request.state'} eq 'published') { if ($env{'form.editmode'} && (!($env{'form.viewmode'})) && (!($env{'form.discardview'}))) { - my ($displayfile,$url,$symb,$itemtitle,$action); + my ($displayfile,$url,$symb,$itemtitle); $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']); - } elsif ($request->uri =~ m{^\Q/uploaded/$cdom/$cnum/portfolio/syllabus/\E(.+)$}) { - my $filename = $1; - if ($1 eq 'loncapa.html') { - $displayfile = &mt('Syllabus (minimal template)'); - $action = $request->uri.'?forceedit=1'; - } else { - $displayfile = &mt('Syllabus file: [_1]',$1); - } - $itemtitle = &mt('Syllabus'); - } - } - unless ($itemtitle) { - ($symb,$itemtitle,$displayfile) = - &get_courseupload_hierarchy($request->uri, - $env{'form.folderpath'}, - $env{'form.title'}); - } + ($symb,$itemtitle,$displayfile) = + &get_courseupload_hierarchy($request->uri); } else { $displayfile=~s/^\/[^\/]*//; } my ($edit_info, $add_to_onload, $add_to_onresize)= - &inserteditinfo($filecontents,$filetype,$displayfile,$symb, - $itemtitle,$env{'form.folderpath'},$request->uri,$action); + &inserteditinfo($filecontents,$filetype,$displayfile,$symb,$itemtitle); my %options = ('add_entries' => @@ -2016,7 +1814,7 @@ ENDNOTFOUND if ($env{'request.state'} eq 'construct') { $options{'bread_crumbs'} = [{ 'href' => &Apache::loncommon::authorspace($request->uri), - 'text' => 'Authoring Space'}, + 'text' => 'Construction Space'}, {'href' => '', 'text' => $breadcrumbtext}]; $header = &Apache::loncommon::head_subbox( @@ -2051,41 +1849,26 @@ sub display_title { $title = substr($title, rindex($title, '/') + 1); } $result = ""; + .&mt('Construction Space')."';"; } return $result; } sub get_courseupload_hierarchy { - my ($url,$folderpath,$title) = @_; + my ($url) = @_; my ($symb,$itemtitle,$displaypath); if ($env{'request.course.id'}) { - if ($folderpath =~ /^supplemental/) { - my @folders = split(/\&/,$folderpath); - my @pathitems; - while (@folders) { - my $folder=shift(@folders); - my $foldername=shift(@folders); - $foldername =~ s/\:(\d*)\:(\w*)\:(\w*):(\d*)\:?(\d*)$//; - push(@pathitems,&unescape($foldername)); - } - if ($title) { - push(@pathitems,&unescape($title)); - } - $displaypath = join(' » ',@pathitems); - } else { - $symb = &Apache::lonnet::symbread($url); - my ($map,$id,$res)=&Apache::lonnet::decode_symb($symb); - my $navmap=Apache::lonnavmaps::navmap->new; - if (ref($navmap)) { - my $res = $navmap->getBySymb($symb); - if (ref($res)) { - my @pathitems = - &Apache::loncommon::get_folder_hierarchy($navmap,$map,1); - $itemtitle = $res->compTitle(); - push(@pathitems,$itemtitle); - $displaypath = join(' » ',@pathitems); - } + $symb = &Apache::lonnet::symbread($url); + my ($map,$id,$res)=&Apache::lonnet::decode_symb($symb); + my $navmap=Apache::lonnavmaps::navmap->new; + if (ref($navmap)) { + my $res = $navmap->getBySymb($symb); + if (ref($res)) { + my @pathitems = + &Apache::loncommon::get_folder_hierarchy($navmap,$map,1); + $itemtitle = $res->compTitle(); + push(@pathitems,$itemtitle); + $displaypath = join(' » ',@pathitems); } } } @@ -2172,7 +1955,7 @@ sub error { my $declutter=&Apache::lonnet::declutter($env{'request.filename'}); my $baseurl = &Apache::lonnet::clutter($declutter); my @userlist; - foreach (keys(%users)) { + foreach (keys %users) { my ($user,$domain) = split(/:/, $_); push(@userlist,"$user:$domain"); my $key=$declutter.'_'.$user.'_'.$domain; @@ -2242,18 +2025,13 @@ sub add_messages { } sub get_param { - my ($param,$parstack,$safeeval,$context,$case_insensitive, $noelide) = @_; + my ($param,$parstack,$safeeval,$context,$case_insensitive) = @_; if ( ! $context ) { $context = -1; } my $args =''; if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; } if ( ! $Apache::lonxml::usestyle ) { $args=$Apache::lonxml::style_values.$args; } - - if ($noelide) { - $args =~ s/'\$/'\\\$/g; - } - if ( ! $args ) { return undef; } if ( $case_insensitive ) { if ($args =~ s/(my (?:.*))(\$\Q$param\E[,\)])/$1.lc($2)/ei) { @@ -2367,7 +2145,7 @@ sub register_insert { sub dump_insertlist { my ($ext) = @_; - open(XML,">","/tmp/insertlist.xml.$ext"); + open(XML,">/tmp/insertlist.xml.$ext"); print XML (""); my $i=0; @@ -2425,7 +2203,7 @@ sub description { sub helpinfo { my ($token)=@_; my $tag = &get_tag($token); - return ($insertlist{$tag.'.helpfile'}, &mt($insertlist{$tag.'.helpdesc'})); + return ($insertlist{$tag.'.helpfile'}, $insertlist{$tag.'.helpdesc'}); } sub get_tag {