loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.464 and 1.531.2.24

version 1.464, 2007/10/10 14:39:49	version 1.531.2.24, 2018/09/14 21:41:13
Line 37	Line 37
# to any other parties under any circumstances.	# to any other parties under any circumstances.
#	#

	=pod

	=head1 NAME

	Apache::lonxml

	=head1 SYNOPSIS

	XML Parsing Module

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.


	=head1 SUBROUTINES

	=cut



package Apache::lonxml;	package Apache::lonxml;
use vars	use vars
Line 50 use Safe();	Line 69 use Safe();
use Safe::Hole();	use Safe::Hole();
use Math::Cephes();	use Math::Cephes();
use Math::Random();	use Math::Random();
	use Math::Calculus::Expression();
	use Number::FormatEng();
use Opcode();	use Opcode();
use POSIX qw(strftime);	use POSIX qw(strftime);
use Time::HiRes qw( gettimeofday tv_interval );	use Time::HiRes qw( gettimeofday tv_interval );
Line 90 use Apache::lonfeedback();	Line 111 use Apache::lonfeedback();
use Apache::lonmsg();	use Apache::lonmsg();
use Apache::loncacc();	use Apache::loncacc();
use Apache::lonmaxima();	use Apache::lonmaxima();
	use Apache::lonr();
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonhtmlcommon();
	use Apache::functionplotresponse();
	use Apache::lonnavmaps();

#==================================== Main subroutine: xmlparse	#==================================== Main subroutine: xmlparse

Line 121 $metamode = 0;	Line 146 $metamode = 0;
# turns on and of run::evaluate actually derefencing var refs	# turns on and of run::evaluate actually derefencing var refs
$evaluate = 1;	$evaluate = 1;

# data structure for eidt mode, determines what tags can go into what other tags	# data structure for edit mode, determines what tags can go into what other tags
%insertlist=();	%insertlist=();

# stores the list of active tag namespaces	# stores the list of active tag namespaces
Line 188 sub xmlend {	Line 213 sub xmlend {
my $discussion;	my $discussion;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['LONCAPA_INTERNAL_no_discussion']);	['LONCAPA_INTERNAL_no_discussion']);
if (! exists($env{'form.LONCAPA_INTERNAL_no_discussion'}) \|\|	if (
$env{'form.LONCAPA_INTERNAL_no_discussion'} ne 'true') {	( (!exists($env{'form.LONCAPA_INTERNAL_no_discussion'}))
	\|\| ($env{'form.LONCAPA_INTERNAL_no_discussion'} ne 'true')
	)
	&& ($env{'form.inhibitmenu'} ne 'yes')
	) {
$discussion=&Apache::lonfeedback::list_discussion($mode,$status);	$discussion=&Apache::lonfeedback::list_discussion($mode,$status);
}	}
if ($target eq 'tex') {	if ($target eq 'tex') {
Line 207 sub tokeninputfield {	Line 236 sub tokeninputfield {
return (<<ENDINPUTFIELD)	return (<<ENDINPUTFIELD)
<script type="text/javascript">	<script type="text/javascript">
function updatetoken() {	function updatetoken() {
var comp=new Array;	var comp=new Array;
var barcode=unescape(document.tokeninput.barcode.value);	var barcode=unescape(document.tokeninput.barcode.value);
comp=barcode.split('*');	comp=barcode.split('*');
if (typeof(comp[0])!="undefined") {	if (typeof(comp[0])!="undefined") {
document.tokeninput.codeone.value=comp[0];	document.tokeninput.codeone.value=comp[0];
}	}
if (typeof(comp[1])!="undefined") {	if (typeof(comp[1])!="undefined") {
document.tokeninput.codetwo.value=comp[1];	document.tokeninput.codetwo.value=comp[1];
}	}
if (typeof(comp[2])!="undefined") {	if (typeof(comp[2])!="undefined") {
comp[2]=comp[2].toUpperCase();	comp[2]=comp[2].toUpperCase();
document.tokeninput.codethree.value=comp[2];	document.tokeninput.codethree.value=comp[2];
}	}
document.tokeninput.barcode.value='';	document.tokeninput.barcode.value='';
}	}
</script>	</script>
<form method="post" name="tokeninput">	<form method="post" name="tokeninput" action="">
<table border="2" bgcolor="#FFFFBB">	<table border="2" bgcolor="#FFFFBB">
<tr><th>DocID Checkin</th></tr>	<tr><th>DocID Checkin</th></tr>
<tr><td>	<tr><td>
<table>	<table>
<tr>	<tr>
<td>Scan in Barcode</td>	<td>Scan in Barcode</td>
<td><input type="text" size="22" name="barcode"	<td><input type="text" size="22" name="barcode"
onChange="updatetoken()"/></td>	onchange="updatetoken()"/></td>
</tr>	</tr>
<tr><td><i>or</i> Type in DocID</td>	<tr><td><i>or</i> Type in DocID</td>
<td>	<td>
Line 239 onChange="updatetoken()"/></td>	Line 268 onChange="updatetoken()"/></td>
<b><font size="+2">*</font></b>	<b><font size="+2">*</font></b>
<input type="text" size="5" name="codetwo" />	<input type="text" size="5" name="codetwo" />
<b><font size="+2">*</font></b>	<b><font size="+2">*</font></b>
<input type="text" size="10" name="codethree" value="$defhost"	<input type="text" size="10" name="codethree" value="$defhost"
onChange="this.value=this.value.toUpperCase()" />	onchange="this.value=this.value.toUpperCase()" />
</td></tr>	</td></tr>
</table>	</table>
</td></tr>	</td></tr>
Line 253 ENDINPUTFIELD	Line 282 ENDINPUTFIELD
sub maketoken {	sub maketoken {
my ($symb,$tuname,$tudom,$tcrsid)=@_;	my ($symb,$tuname,$tudom,$tcrsid)=@_;
unless ($symb) {	unless ($symb) {
$symb=&Apache::lonnet::symbread();	$symb=&Apache::lonnet::symbread();
}	}
unless ($tuname) {	unless ($tuname) {
$tuname=$env{'user.name'};	$tuname=$env{'user.name'};
$tudom=$env{'user.domain'};	$tudom=$env{'user.domain'};
$tcrsid=$env{'request.course.id'};	$tcrsid=$env{'request.course.id'};
}	}

return &Apache::lonnet::checkout($symb,$tuname,$tudom,$tcrsid);	return &Apache::lonnet::checkout($symb,$tuname,$tudom,$tcrsid);
}	}

Line 270 sub printtokenheader {	Line 298 sub printtokenheader {

my ($symb,$courseid,$domain,$name) = &Apache::lonnet::whichuser();	my ($symb,$courseid,$domain,$name) = &Apache::lonnet::whichuser();
unless ($tsymb) {	unless ($tsymb) {
$tsymb=$symb;	$tsymb=$symb;
}	}
unless ($tuname) {	unless ($tuname) {
$tuname=$name;	$tuname=$name;
$tudom=$domain;	$tudom=$domain;
$tcrsid=$courseid;	$tcrsid=$courseid;
}	}
Line 282 sub printtokenheader {	Line 310 sub printtokenheader {

if ($target eq 'web') {	if ($target eq 'web') {
my %idhash=&Apache::lonnet::idrget($tudom,($tuname));	my %idhash=&Apache::lonnet::idrget($tudom,($tuname));
return	return
'<img align="right" src="/cgi-bin/barcode.png?encode='.$token.'" />'.	'<img align="right" src="/cgi-bin/barcode.png?encode='.$token.'" />'.
&mt('Checked out for').' '.$plainname.	&mt('Checked out for').' '.$plainname.
'<br />'.&mt('User').': '.$tuname.' at '.$tudom.	'<br />'.&mt('User').': '.$tuname.' at '.$tudom.
'<br />'.&mt('ID').': '.$idhash{$tuname}.	'<br />'.&mt('ID').': '.$idhash{$tuname}.
'<br />'.&mt('CourseID').': '.$tcrsid.	'<br />'.&mt('CourseID').': '.$tcrsid.
'<br />'.&mt('Course').': '.$env{'course.'.$tcrsid.'.description'}.	'<br />'.&mt('Course').': '.$env{'course.'.$tcrsid.'.description'}.
'<br />'.&mt('DocID').': '.$token.	'<br />'.&mt('DocID').': '.$token.
'<br />'.&mt('Time').': '.&Apache::lonlocal::locallocaltime().'<hr />';	'<br />'.&mt('Time').': '.&Apache::lonlocal::locallocaltime().'<hr />';
} else {	} else {
Line 297 sub printtokenheader {	Line 325 sub printtokenheader {
}	}

sub printalltags {	sub printalltags {
my $temp;	my $temp;
foreach $temp (sort keys %Apache::lonxml::alltags) {	foreach $temp (sort keys %Apache::lonxml::alltags) {
&Apache::lonxml::debug("$temp -- ".	&Apache::lonxml::debug("$temp -- ".
join(',',@{ $Apache::lonxml::alltags{$temp} }));	join(',',@{ $Apache::lonxml::alltags{$temp} }));
}	}
}	}

sub xmlparse {	sub xmlparse {
Line 361 sub xmlparse {	Line 389 sub xmlparse {
$safeeval,\%style_for_target,1);	$safeeval,\%style_for_target,1);

if (@stack) {	if (@stack) {
&warning("At end of file some tags were still left unclosed, ".	&warning(&mt('At end of file some tags were still left unclosed:').
'<tt><'.join('></tt>, <tt><',reverse(@stack)).	' <tt><'.join('></tt>, <tt><',reverse(@stack)).
'></tt>');	'></tt>');
}	}
if ($env{'request.uri'}) {	if ($env{'request.uri'}) {
Line 374 sub xmlparse {	Line 402 sub xmlparse {
&clean_safespace($safeeval);	&clean_safespace($safeeval);

if (@script_var_displays) {	if (@script_var_displays) {
$finaloutput .= join('',@script_var_displays);	if ($finaloutput =~ m{</body>\s</html>\s$}s) {
	my $scriptoutput = join('',@script_var_displays);
	$finaloutput=~s{(</body>\s</html>)\s$}{$scriptoutput$1}s;
	} else {
	$finaloutput .= join('',@script_var_displays);
	}
undef(@script_var_displays);	undef(@script_var_displays);
}	}
	&init_state();
if ($env{'form.return_only_error_and_warning_counts'}) {	if ($env{'form.return_only_error_and_warning_counts'}) {
	if ($env{'request.filename'}=~/\.(html\|htm\|xml)$/i) {
	my $error=&verify_html($content_file_string);
	if ($error) { $errorcount++; }
	}
return "$errorcount:$warningcount";	return "$errorcount:$warningcount";
}	}
return $finaloutput;	return $finaloutput;
Line 405 sub latex_special_symbols {	Line 442 sub latex_special_symbols {
} else {	} else {
$string=~s/\\/\\ensuremath{\\backslash}/g;	$string=~s/\\/\\ensuremath{\\backslash}/g;
$string=~s/\\\%\|\%/\\\%/g;	$string=~s/\\\%\|\%/\\\%/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/\\\_\|\_/\\\_/g;	$string=~s/\\\_\|\_/\\\_/g;
$string=~s/([^\\]\|^)(\~\|\^)/$1\\$2\\strut /g;	$string=~s/([^\\]\|^)(\~\|\^)/$1\\$2\\strut /g;
Line 428 sub inner_xmlparse {	Line 465 sub inner_xmlparse {
my $result;	my $result;
my $token;	my $token;
my $dontpop=0;	my $dontpop=0;
	my $lastdontpop;
	my $lastendtag;
my $startredirection = $Apache::lonxml::redirection;	my $startredirection = $Apache::lonxml::redirection;
while ( $#$pars > -1 ) {	while ( $#$pars > -1 ) {
while ($token = $$pars['-1']->get_token) {	while ($token = $$pars['-1']->get_token) {
Line 482 sub inner_xmlparse {	Line 521 sub inner_xmlparse {
while ($token->[1] ne $$stack['-1'] && ($#$stack > -1)) {	while ($token->[1] ne $$stack['-1'] && ($#$stack > -1)) {
my $lasttag=$$stack[-1];	my $lasttag=$$stack[-1];
if ($token->[1] =~ /^\Q$lasttag\E$/i) {	if ($token->[1] =~ /^\Q$lasttag\E$/i) {
&Apache::lonxml::warning('Using tag </'.$token->[1].'> on line '.$token->[3].' as end tag to <'.$$stack[-1].'>');	&Apache::lonxml::warning(&mt('Using tag [_1] on line [_2] as end tag to [_3]','</'.$token->[1].'>','.$token->[3].','<'.$$stack[-1].'>'));
last;	last;
} else {	} else {
&Apache::lonxml::warning('Found tag </'.$token->[1].'> on line '.$token->[3].' when looking for </'.$$stack[-1].'> in file');	&Apache::lonxml::warning(&mt('Found tag [_1] on line [_2] when looking for [_3] in file.','</'.$token->[1].'>',$token->[3],'</'.$$stack[-1].'>'));
&end_tag($stack,$parstack,$token);	&end_tag($stack,$parstack,$token);
}	}
}	}
Line 501 sub inner_xmlparse {	Line 540 sub inner_xmlparse {
if (!$Apache::lonxml::usestyle) {	if (!$Apache::lonxml::usestyle) {
$extras=$Apache::lonxml::style_values;	$extras=$Apache::lonxml::style_values;
}	}
if ( $#$parstack > -1 ) {	if ( $#$parstack > -1 ) {
$result=&Apache::run::evaluate($result,$safeeval,$extras.$$parstack[-1]);	$result=&Apache::run::evaluate($result,$safeeval,$extras.$$parstack[-1]);
} else {	} else {
$result= &Apache::run::evaluate($result,$safeeval,$extras);	$result= &Apache::run::evaluate($result,$safeeval,$extras);
}	}
}	}
$Apache::lonxml::post_evaluate=1;	$Apache::lonxml::post_evaluate=1;

Line 523 sub inner_xmlparse {	Line 562 sub inner_xmlparse {
}	}
$result = '';	$result = '';

if ($token->[0] eq 'E' && !$dontpop) {	if ($token->[0] eq 'E') {
&end_tag($stack,$parstack,$token);	if ($dontpop) {
	$lastdontpop = $token;
	} else {
	$lastendtag = $token->[1];
	&end_tag($stack,$parstack,$token);
	}
}	}
$dontpop=0;	$dontpop=0;
}	}
if ($#$pars > -1) {	if ($#$pars > -1) {
pop @$pars;	pop @$pars;
pop @Apache::lonxml::pwd;	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') {	# if ($target eq 'meta') {
# $finaloutput.=&endredirection;	# $finaloutput.=&endredirection;
# }	# }
Line 546 sub inner_xmlparse {	Line 597 sub inner_xmlparse {
}	}
if (($ENV{'QUERY_STRING'}) && ($target eq 'web')) {	if (($ENV{'QUERY_STRING'}) && ($target eq 'web')) {
$finaloutput=&afterburn($finaloutput);	$finaloutput=&afterburn($finaloutput);
	}
	if ($target eq 'modified') {
	# if modfied, handle startpart and endpart
	$finaloutput=~s/\<startpartmarker[^\>]\>(.)\<endpartmarker[^\>]*\>/<part>$1<\/part>/gs;
}	}
return $finaloutput;	return $finaloutput;
}	}
Line 631 sub callsub {	Line 686 sub callsub {
return $currentstring;	return $currentstring;
}	}

	{
	my %state;

	sub init_state {
	undef(%state);
	}

	sub set_state {
	my ($key,$value) = @_;
	$state{$key} = $value;
	return $value;
	}
	sub get_state {
	my ($key) = @_;
	return $state{$key};
	}
	}

sub setup_globals {	sub setup_globals {
my ($request,$target)=@_;	my ($request,$target)=@_;
$Apache::lonxml::request=$request;	$Apache::lonxml::request=$request;
$errorcount=0;	$errorcount=0;
$warningcount=0;	$warningcount=0;
	$Apache::lonxml::internal_error=0;
$Apache::lonxml::default_homework_loaded=0;	$Apache::lonxml::default_homework_loaded=0;
$Apache::lonxml::usestyle=1;	$Apache::lonxml::usestyle=1;
&init_counter();	&init_counter();
&clear_bubble_lines_for_part();	&clear_bubble_lines_for_part();
	&init_state();
	&set_state('target',$target);
@Apache::lonxml::pwd=();	@Apache::lonxml::pwd=();
@Apache::lonxml::extlinks=();	@Apache::lonxml::extlinks=();
@script_var_displays=();	@script_var_displays=();
Line 687 sub setup_globals {	Line 763 sub setup_globals {

sub init_safespace {	sub init_safespace {
my ($target,$safeeval,$safehole,$safeinit) = @_;	my ($target,$safeeval,$safehole,$safeinit) = @_;
	$safeeval->reval('use LaTeX::Table;');
$safeeval->deny_only(':dangerous');	$safeeval->deny_only(':dangerous');
$safeeval->reval('use Math::Complex;');	$safeeval->reval('use LONCAPA::LCMathComplex;');
$safeeval->permit_only(":default");	$safeeval->permit_only(":default");
$safeeval->permit("entereval");	$safeeval->permit("entereval");
$safeeval->permit(":base_math");	$safeeval->permit(":base_math");
$safeeval->permit("sort");	$safeeval->permit("sort");
$safeeval->permit("time");	$safeeval->permit("time");
	$safeeval->permit("caller");
$safeeval->deny("rand");	$safeeval->deny("rand");
$safeeval->deny("srand");	$safeeval->deny("srand");
$safeeval->deny(":base_io");	$safeeval->deny(":base_io");
Line 703 sub init_safespace {	Line 781 sub init_safespace {
$safehole->wrap(\&Apache::chemresponse::chem_standard_order,$safeeval,	$safehole->wrap(\&Apache::chemresponse::chem_standard_order,$safeeval,
'&chem_standard_order');	'&chem_standard_order');
$safehole->wrap(\&Apache::response::check_status,$safeeval,'&check_status');	$safehole->wrap(\&Apache::response::check_status,$safeeval,'&check_status');
	$safehole->wrap(\&Apache::response::implicit_multiplication,$safeeval,'&implicit_multiplication');

$safehole->wrap(\&Apache::lonmaxima::maxima_eval,$safeeval,'&maxima_eval');	$safehole->wrap(\&Apache::lonmaxima::maxima_eval,$safeeval,'&maxima_eval');
$safehole->wrap(\&Apache::lonmaxima::maxima_check,$safeeval,'&maxima_check');	$safehole->wrap(\&Apache::lonmaxima::maxima_check,$safeeval,'&maxima_check');
$safehole->wrap(\&Apache::lonmaxima::maxima_cas_formula_fix,$safeeval,	$safehole->wrap(\&Apache::lonmaxima::maxima_cas_formula_fix,$safeeval,
'&maxima_cas_formula_fix');	'&maxima_cas_formula_fix');

	$safehole->wrap(\&Apache::lonr::r_eval,$safeeval,'&r_eval');
	$safehole->wrap(\&Apache::lonr::Rentry,$safeeval,'&Rentry');
	$safehole->wrap(\&Apache::lonr::Rarray,$safeeval,'&Rarray');
	$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,	$safehole->wrap(\&Apache::caparesponse::capa_formula_fix,$safeeval,
'&capa_formula_fix');	'&capa_formula_fix');

	$safehole->wrap(\&Apache::lonlocal::locallocaltime,$safeeval,
	'&locallocaltime');

$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin');	$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin');
$safehole->wrap(\&Math::Cephes::acos,$safeeval,'&acos');	$safehole->wrap(\&Math::Cephes::acos,$safeeval,'&acos');
$safehole->wrap(\&Math::Cephes::atan,$safeeval,'&atan');	$safehole->wrap(\&Math::Cephes::atan,$safeeval,'&atan');
Line 819 sub init_safespace {	Line 908 sub init_safespace {
$safehole->wrap(\&Apache::lonnet::logthis,$safeeval,'&LONCAPA_INTERNAL_LOGTHIS');	$safehole->wrap(\&Apache::lonnet::logthis,$safeeval,'&LONCAPA_INTERNAL_LOGTHIS');
$safehole->wrap(\&Apache::inputtags::finalizeawards,$safeeval,'&LONCAPA_INTERNAL_FINALIZEAWARDS');	$safehole->wrap(\&Apache::inputtags::finalizeawards,$safeeval,'&LONCAPA_INTERNAL_FINALIZEAWARDS');
$safehole->wrap(\&Apache::caparesponse::get_sigrange,$safeeval,'&LONCAPA_INTERNAL_get_sigrange');	$safehole->wrap(\&Apache::caparesponse::get_sigrange,$safeeval,'&LONCAPA_INTERNAL_get_sigrange');
	$safehole->wrap(\&Apache::functionplotresponse::fpr_val,$safeeval,'&fpr_val');
	$safehole->wrap(\&Apache::functionplotresponse::fpr_f,$safeeval,'&fpr_f');
	$safehole->wrap(\&Apache::functionplotresponse::fpr_dfdx,$safeeval,'&fpr_dfdx');
	$safehole->wrap(\&Apache::functionplotresponse::fpr_d2fdx2,$safeeval,'&fpr_d2fdx2');
	$safehole->wrap(\&Apache::functionplotresponse::fpr_vectorcoords,$safeeval,'&fpr_vectorcoords');
	$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;	# use Data::Dumper;
# $safehole->wrap(\&Data::Dumper::Dumper,$safeeval,'&LONCAPA_INTERNAL_Dumper');	# $safehole->wrap(\&Data::Dumper::Dumper,$safeeval,'&LONCAPA_INTERNAL_Dumper');
#need to inspect this class of ops	#need to inspect this class of ops
Line 826 sub init_safespace {	Line 927 sub init_safespace {
$safeeval->permit("require");	$safeeval->permit("require");
$safeinit .= ';$external::target="'.$target.'";';	$safeinit .= ';$external::target="'.$target.'";';
&Apache::run::run($safeinit,$safeeval);	&Apache::run::run($safeinit,$safeeval);
&initialize_rndseed($safeeval);	my $rawrndseed = &initialize_rndseed($safeeval);
	if ($target eq 'grade') {
	$Apache::lonhomework::rawrndseed = $rawrndseed;
	}
}	}

sub clean_safespace {	sub clean_safespace {
Line 865 sub initialize_rndseed {	Line 969 sub initialize_rndseed {
my $safeinit = '$external::randomseed="'.$rndseed.'";';	my $safeinit = '$external::randomseed="'.$rndseed.'";';
&Apache::lonxml::debug("Setting rndseed to $rndseed");	&Apache::lonxml::debug("Setting rndseed to $rndseed");
&Apache::run::run($safeinit,$safeeval);	&Apache::run::run($safeinit,$safeeval);
	return $rndseed;
}	}

sub default_homework_load {	sub default_homework_load {
my ($safeeval)=@_;	my ($safeeval)=@_;
&Apache::lonxml::debug('Loading default_homework');	&Apache::lonxml::debug('Loading default_homework');
my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm');	my $default=&Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonIncludes'}.
	'/default_homework.lcpm');
if ($default eq -1) {	if ($default eq -1) {
&Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>");	&Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>");
} else {	} else {
Line 985 sub decreasedepth {	Line 1091 sub decreasedepth {
sub get_id {	sub get_id {
my ($parstack,$safeeval)=@_;	my ($parstack,$safeeval)=@_;
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);	my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
if ($env{'request.state'} eq 'construct' && $id =~ /([._]\|[^\w\d\s[:punct:]])/) {	if ($env{'request.state'} eq 'construct' && $id =~ /([._]\|[^\w\s\-])/) {
&error(&mt("ID "[_1]" contains invalid characters, IDs are only allowed to contain letters, numbers, spaces and -",'<tt>'.$id.'</tt>'));	&error(&mt('ID [_1] contains invalid characters. IDs are only allowed to contain letters, numbers, spaces and -','"<tt>'.$id.'</tt>"'));
}	}
if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }	if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }
return $id;	return $id;
Line 1040 the current 'bubble line number' is stor	Line 1146 the current 'bubble line number' is stor
The value of it is stored in $Apache:lonxml::counter when live and	The value of it is stored in $Apache:lonxml::counter when live and
stored back to env after done.	stored back to env after done.

=item &increment_counter($increment);	=item &increment_counter($increment, $part_response);

Increments the internal counter environment variable a specified amount	Increments the internal counter environment variable a specified amount

Optional Arguments:	Optional Arguments:
$increment - amount to increment by (defaults to 1)	$increment - amount to increment by (defaults to 1)
Also 1 if the value is negative or zero.	Also 1 if the value is negative or zero.
$part_id - optional part id.. during analysis, this	$part_response - A concatenation of the part and response id
indicates whic part of a problem is being	identifying exactly what is being 'answered'.
counted.

=cut	=cut

sub increment_counter {	sub increment_counter {
my ($increment, $part_id) = @_;	my ($increment, $part_response) = @_;
	if ($env{'form.grade_noincrement'}) { return; }
if (!defined($increment) \|\| $increment le 0) {	if (!defined($increment) \|\| $increment le 0) {
$increment = 1;	$increment = 1;
}	}
$Apache::lonxml::counter += $increment;	$Apache::lonxml::counter += $increment;

# If the caller supplied the part_id parameter,	# If the caller supplied the response_id parameter,
# Maintain its counter.. creating if necessary.	# Maintain its counter.. creating if necessary.

if(defined($part_id)) {	if (defined($part_response)) {
if (!defined($Apache::lonxml::counters_per_part{$part_id})) {	if (!defined($Apache::lonxml::counters_per_part{$part_response})) {
$Apache::lonxml::counters_per_part{$part_id} = 0;	$Apache::lonxml::counters_per_part{$part_response} = 0;
}	}
$Apache::lonxml::counters_per_part{$part_id} += $increment;	$Apache::lonxml::counters_per_part{$part_response} += $increment;
my $new_value = $Apache::lonxml::counters_per_part{$part_id};	my $new_value = $Apache::lonxml::counters_per_part{$part_response};
}	}

$Apache::lonxml::counter_changed=1;	$Apache::lonxml::counter_changed=1;
Line 1096 sub init_counter {	Line 1203 sub init_counter {
}	}

sub store_counter {	sub store_counter {
&Apache::lonnet::appenv(('form.counter' => $Apache::lonxml::counter));	&Apache::lonnet::appenv({'form.counter' => $Apache::lonxml::counter});
$Apache::lonxml::counter_changed=0;	$Apache::lonxml::counter_changed=0;
return '';	return '';
}	}
Line 1117 sub store_counter {	Line 1224 sub store_counter {

sub restore_problem_counter {	sub restore_problem_counter {
if (defined($state)) {	if (defined($state)) {
&Apache::lonnet::appenv(('form.counter' => $state));	&Apache::lonnet::appenv({'form.counter' => $state});
}	}
}	}
sub get_problem_counter {	sub get_problem_counter {
Line 1129 sub store_counter {	Line 1236 sub store_counter {

=pod	=pod

=item bubble_lines_for_part(part_id)	=item bubble_lines_for_part(part_response)

Returns the number of lines required to get a response for	Returns the number of lines required to get a response for
$part_id (this is just $Apache::lonxml::counters_per_part{$part_id}	$part_response (this is just $Apache::lonxml::counters_per_part{$part_response}

=cut	=cut

sub bubble_lines_for_part {	sub bubble_lines_for_part {
my ($part_id) = @_;	my ($part_response) = @_;

if (!defined($Apache::lonxml::counters_per_part{$part_id})) {	if (!defined($Apache::lonxml::counters_per_part{$part_response})) {
return 0;	return 0;
} else {	} else {
return $Apache::lonxml::counters_per_part{$part_id};	return $Apache::lonxml::counters_per_part{$part_response};
}	}

}	}

=pod	=pod
Line 1163 sub clear_bubble_lines_for_part {	Line 1269 sub clear_bubble_lines_for_part {

=pod	=pod

=item set_bubble_lines(part_id, value)	=item set_bubble_lines(part_response, value)

If there is a problem part, that for whatever reason	If there is a problem part, that for whatever reason
requires bubble lines that are not	requires bubble lines that are not
Line 1173 analysis to set its hash value explicitl	Line 1279 analysis to set its hash value explicitl
=cut	=cut

sub set_bubble_lines {	sub set_bubble_lines {
my ($part_id, $value) = @_;	my ($part_response, $value) = @_;

$Apache::lonxml::counters_per_part{$part_id} = $value;	$Apache::lonxml::counters_per_part{$part_response} = $value;
}	}

=pod	=pod
Line 1338 sub extlink {	Line 1444 sub extlink {
if (!$exact) {	if (!$exact) {
$res=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$res);	$res=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$res);
}	}
push(@Apache::lonxml::extlinks,$res)	push(@Apache::lonxml::extlinks,$res);
}	}

sub writeallows {	sub writeallows {
Line 1355 sub writeallows {	Line 1461 sub writeallows {
&Apache::lonnet::hreflocation($thisdir,&unescape($_))}=$thisurl;	&Apache::lonnet::hreflocation($thisdir,&unescape($_))}=$thisurl;
}	}
@extlinks=();	@extlinks=();
&Apache::lonnet::appenv(%httpref);	&Apache::lonnet::appenv(\%httpref);
}	}

sub register_ssi {	sub register_ssi {
Line 1374 sub do_registered_ssi {	Line 1480 sub do_registered_ssi {

sub add_script_result {	sub add_script_result {
my ($display) = @_;	my ($display) = @_;
push(@script_var_displays, $display);	if ($display ne '') {
	push(@script_var_displays, $display);
	}
}	}

#	#
Line 1422 sub storefile {	Line 1530 sub storefile {
$fh->close();	$fh->close();
return 1;	return 1;
} else {	} else {
&warning("Unable to save file $file");	&warning(&mt('Unable to save file [_1]','<tt>'.$file.'</tt>'));
return 0;	return 0;
}	}
}	}
Line 1455 SIMPLECONTENT	Line 1563 SIMPLECONTENT
return $filecontents;	return $filecontents;
}	}

	sub createnewjs {
	my $filecontents=(<<SIMPLECONTENT);
	<script type="text/javascript" language="Javascript">

	</script>
	SIMPLECONTENT
	return $filecontents;
	}

	sub verify_html {
	my ($filecontents)=@_;
	my ($is_html,$is_xml,$is_physnet);
	if ($filecontents =~/(?:\<\|\&lt\;)\?xml[^\<]*\?(?:\>\|\&gt\;)/is) {
	$is_xml = 1;
	} elsif ($filecontents =~/(?:\<\|\&lt\;)html(?:\s+[^\<]+\|\s*)(?:\>\|\&gt\;)/is) {
	$is_html = 1;
	} elsif ($filecontents =~/(?:\<\|\&lt\;)physnet[^\<]*(?:\>\|\&gt\;)/is) {
	$is_physnet = 1;
	}
	unless ($is_xml \|\| $is_html \|\| $is_physnet) {
	return &mt('File does not have [_1] or [_2] starting tag','<html>','<?xml ?>');
	}
	if ($is_html) {
	if ($filecontents!~/(?:\<\|\&lt\;)\/html(?:\>\|\&gt\;)/is) {
	return &mt('File does not have [_1] ending tag','<html>');
	}
	if ($filecontents!~/(?:\<\|\&lt\;)(?:body\|frameset)[^\<]*(?:\>\|\&gt\;)/is) {
	return &mt('File does not have [_1] or [_2] starting tag','<body>','<frameset>');
	}
	if ($filecontents!~/(?:\<\|\&lt\;)\/(?:body\|frameset)[^\<]*(?:\>\|\&gt\;)/is) {
	return &mt('File does not have [_1] or [_2] ending tag','<body>','<frameset>');
	}
	}
	return '';
	}

	sub renderingoptions {
	my %langchoices=('' => '');
	foreach (&Apache::loncommon::languageids()) {
	if (&Apache::loncommon::supportedlanguagecode($_)) {
	$langchoices{&Apache::loncommon::supportedlanguagecode($_)}
	= &Apache::loncommon::plainlanguagedescription($_);
	}
	}
	my $output;
	unless ($env{'form.forceedit'}) {
	$output .=
	'<span class="LC_nobreak">'.
	&mt('Language:').' '.
	&Apache::loncommon::select_form(
	$env{'form.languages'},
	'languages',
	{&Apache::lonlocal::texthash(%langchoices)}).
	'</span>';
	}
	$output .=
	' <span class="LC_nobreak">'.
	&mt('Math Rendering:').' '.
	&Apache::loncommon::select_form(
	$env{'form.texengine'},
	'texengine',
	{&Apache::lonlocal::texthash
	('' => '',
	'tth' => 'tth (TeX to HTML)',
	'MathJax' => 'MathJax',
	'mimetex' => 'mimetex (Convert to Images)')}).
	'</span>';
	return $output;
	}

sub inserteditinfo {	sub inserteditinfo {
my ($filecontents,$filetype)=@_;	my ($filecontents,$filetype,$filename,$symb,$itemtitle,$folderpath,$uri,$action) = @_;
$filecontents = &HTML::Entities::encode($filecontents,'<>&"');	$filecontents = &HTML::Entities::encode($filecontents,'<>&"');
# my $editheader='<a href="#editsection">Edit below</a><hr />';
my $xml_help = '';	my $xml_help = '';
my $initialize='';	my $initialize='';
my $textarea_id = 'filecont';	my $textarea_id = 'filecont';
my ($add_to_onload, $add_to_onresize);	my ($dragmath_button,$deps_button,$context,$cnum,$cdom,$add_to_onload,
	$add_to_onresize,$init_dragmath);
$initialize=&Apache::lonhtmlcommon::spellheader();	$initialize=&Apache::lonhtmlcommon::spellheader();
if ($filetype eq 'html'	if ($filetype eq 'html') {
&& (!&Apache::lonhtmlcommon::htmlareablocked() &&	if ($env{'request.course.id'}) {
&Apache::lonhtmlcommon::htmlareabrowser())) {	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
$textarea_id .= '___Frame';	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $lang = &Apache::lonhtmlcommon::htmlarea_lang();	if ($uri =~ m{^\Q/uploaded/$cdom/$cnum/portfolio/syllabus/\E}) {
$initialize.=(<<FULLPAGE);	$context = 'syllabus';
<script type="text/javascript">	}
lonca	}
function initDocument() {	if (&Apache::lonhtmlcommon::htmlareabrowser()) {
var oFCKeditor = new FCKeditor('filecont');	my $lang = &Apache::lonhtmlcommon::htmlarea_lang();
oFCKeditor.Config['CustomConfigurationsPath'] = '/fckeditor/loncapaconfig.js' ;	my %textarea_args = (
oFCKeditor.Config['FullPage'] = true	fullpage => 'true',
oFCKeditor.Config['AutoDetectLanguage'] = false;	dragmath => 'math',
oFCKeditor.Config['DefaultLanguage'] = "$lang";	);
oFCKeditor.ReplaceTextarea();	$initialize .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);
}	if ($context eq 'syllabus') {
function check_if_dirty(editor) {	$init_dragmath = "editmath_visibility('filecont','none')";
if (editor.IsDirty()) {	}
unClean();	}
}	}
}	$initialize .= (<<FULLPAGE);
function FCKeditor_OnComplete(editor) {
editor.Events.AttachEvent("OnSelectionChange",check_if_dirty);
resize_textarea('$textarea_id','LC_aftertextarea');
}
</script>
FULLPAGE
} else {
$initialize.=(<<FULLPAGE);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
function initDocument() {	function initDocument() {
resize_textarea('$textarea_id','LC_aftertextarea');	resize_textarea('$textarea_id','LC_aftertextarea');
	$init_dragmath
}	}
	// ]]>
</script>	</script>
FULLPAGE	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) {
	$deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n";
	$initialize .=
	&Apache::lonhtmlcommon::dependencycheck_js($symb,$itemtitle,
	undef,$folderpath,$uri)."\n";
	}
	$dragmath_button = '<span id="math_filecont">'.&Apache::lonhtmlcommon::dragmath_button('filecont',1).'</span>';
	$initialize .= "\n".&Apache::lonhtmlcommon::dragmath_js('EditMathPopup');
}	}

$add_to_onload = 'initDocument();';	$add_to_onload = 'initDocument();';
$add_to_onresize = "resize_textarea('$textarea_id','LC_aftertextarea');";	$add_to_onresize = "resize_textarea('$textarea_id','LC_aftertextarea');";

if ($filetype eq 'html') {	if ($filetype eq 'html') {
$xml_help=&Apache::loncommon::helpLatexCheatsheet();	my $not_author;
	if ($uri =~ m{^/uploaded/}) {
	$not_author = 1;
	}
	$xml_help=&Apache::loncommon::helpLatexCheatsheet(undef,undef,$not_author);
}	}

my $cleanbut = '';

my $titledisplay=&display_title();	my $titledisplay=&display_title();
my %lt=&Apache::lonlocal::texthash('st' => 'Save and Edit',	my %lt=&Apache::lonlocal::texthash('st' => 'Save and Edit',
'vi' => 'Save and View',	'vi' => 'Save and View',
'dv' => 'Discard Edits and View',	'dv' => 'Discard Edits and View',
'un' => 'undo',	'un' => 'undo',
'ed' => 'Edit');	'ed' => 'Edit');
my $buttons=(<<BUTTONS);	my $spelllink = &Apache::lonhtmlcommon::spelllink('xmledit','filecont');
$cleanbut
<input type="submit" name="discardview" accesskey="d" value="$lt{'dv'}" />
<input type="submit" name="Undo" accesskey="u" value="$lt{'un'}" /><hr />
<input type="submit" name="savethisfile" accesskey="s" value="$lt{'st'}" />
<input type="submit" name="viewmode" accesskey="v" value="$lt{'vi'}" />
BUTTONS
$buttons.=&Apache::lonhtmlcommon::spelllink('xmledit','filecont');
my $textarea_events = &Apache::edit::element_change_detection();	my $textarea_events = &Apache::edit::element_change_detection();
my $form_events = &Apache::edit::form_change_detection();	my $form_events = &Apache::edit::form_change_detection();
	my $htmlerror;
	if ($filetype eq 'html') {
	$htmlerror=&verify_html($filecontents);
	if ($htmlerror) {
	$htmlerror='<span class="LC_error">'.$htmlerror.'</span>';
	}
	if (&Apache::lonhtmlcommon::htmlareabrowser()) {
	unless ($textareaclass) {
	$textareaclass = 'class="LC_richDefaultOff"';
	}
	}
	}
	my $undo;
	unless ($uri =~ m{^/uploaded/}) {
	$undo = '<input type="submit" name="Undo" accesskey="u" value="'.$lt{'un'}.'" />'."\n";
	}
my $editfooter=(<<ENDFOOTER);	my $editfooter=(<<ENDFOOTER);
$initialize	$initialize
<hr />
<a name="editsection" />	<a name="editsection" />
<form $form_events method="post" name="xmledit">	<form $form_events method="post" name="xmledit" action="$action">
$xml_help	<div class="LC_edit_problem_editxml_header">
<input type="hidden" name="editmode" value="$lt{'ed'}" />	<table class="LC_edit_problem_header_title"><tr><td>
$buttons<br />	$filename
<textarea $textarea_events style="width:100%" cols="80" rows="44" name="filecont" id="filecont">$filecontents</textarea>	</td><td align="right">
<div id="LC_aftertextarea">	$xml_help
<br />$buttons	</td></tr>
<br />	</table>
$titledisplay	<div>
</div>	<input type="submit" name="discardview" accesskey="d" value="$lt{'dv'}" />
	$undo $htmlerror $deps_button $dragmath_button
	</div>
	<div style="float:right">
	<input type="submit" name="savethisfile" accesskey="s" value="$lt{'st'}" />
	<input type="submit" name="viewmode" accesskey="v" value="$lt{'vi'}" />
	</div>
	</div>
	<textarea $textarea_events style="width:100%" cols="80" rows="44" name="filecont" id="filecont" $textareaclass>$filecontents</textarea><br />$spelllink
	<div id="LC_aftertextarea">
	<br />
	$titledisplay
	</div>
</form>	</form>
</body>
ENDFOOTER	ENDFOOTER
return ($editfooter,$add_to_onload,$add_to_onresize);;	return ($editfooter,$add_to_onload,$add_to_onresize);;
}	}
Line 1576 sub get_target {	Line 1788 sub get_target {

sub handler {	sub handler {
my $request=shift;	my $request=shift;

my $target=&get_target();	my $target=&get_target();

$Apache::lonxml::debug=$env{'user.debug'};	$Apache::lonxml::debug=$env{'user.debug'};

&Apache::loncommon::content_type($request,'text/html');	&Apache::loncommon::content_type($request,'text/html');
Line 1587 sub handler {	Line 1798 sub handler {
$request->set_last_modified(&Apache::lonnet::metadata($request->uri,	$request->set_last_modified(&Apache::lonnet::metadata($request->uri,
'lastrevisiondate'));	'lastrevisiondate'));
}	}
	# Embedded Flash movies from Camtasia served from https will not display in IE
	# if XML config file has expired from cache.
	if ($ENV{'SERVER_PORT'} == 443) {
	if ($request->uri =~ /\.xml$/) {
	my ($httpbrowser,$clientbrowser) =
	&Apache::loncommon::decode_user_agent($request);
	if ($clientbrowser =~ /^explorer$/i) {
	delete $request->headers_out->{'Cache-control'};
	delete $request->headers_out->{'Pragma'};
	my $expiration = time + 60;
	my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime($expiration));
	$request->headers_out->set("Expires" => $date);
	}
	}
	}
$request->send_http_header;	$request->send_http_header;

return OK if $request->header_only;	return OK if $request->header_only;


my $file=&Apache::lonnet::filelocation("",$request->uri);	my $file=&Apache::lonnet::filelocation("",$request->uri);
my $filetype;	my ($filetype,$breadcrumbtext);
if ($file =~ /\.sty$/) {	if ($file =~ /\.(sty\|css\|js\|txt\|tex)$/) {
$filetype='sty';	$filetype=$1;
} else {	} else {
$filetype='html';	$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') {
	$breadcrumbtext = 'Javascript Editor';
	} elsif ($filetype eq 'css') {
	$breadcrumbtext = 'CSS Editor';
	} elsif ($filetype eq 'txt') {
	$breadcrumbtext = 'Text Editor';
	} elsif ($filetype eq 'tex') {
	$breadcrumbtext = 'TeX Editor';
	} else {
	$breadcrumbtext = 'HTML Editor';
	}

#	#
# Edit action? Save file.	# Edit action? Save file.
#	#
Line 1606 sub handler {	Line 1864 sub handler {
if ($env{'form.savethisfile'} \|\| $env{'form.viewmode'} \|\| $env{'form.Undo'}) {	if ($env{'form.savethisfile'} \|\| $env{'form.viewmode'} \|\| $env{'form.Undo'}) {
my $html_file=&Apache::lonnet::getfile($file);	my $html_file=&Apache::lonnet::getfile($file);
my $error = &Apache::lonhomework::handle_save_or_undo($request, \$html_file, \$env{'form.filecont'});	my $error = &Apache::lonhomework::handle_save_or_undo($request, \$html_file, \$env{'form.filecont'});
	if ($env{'form.savethisfile'}) {
	$env{'form.editmode'}='Edit'; #force edit mode
	}
}	}
}	}
	my $inhibit_menu;
my %mystyle;	my %mystyle;
my $result = '';	my $result = '';
my $filecontents=&Apache::lonnet::getfile($file);	my $filecontents=&Apache::lonnet::getfile($file);
if ($filecontents eq -1) {	if ($filecontents eq -1) {
my $start_page=&Apache::loncommon::start_page('File Error');	my $start_page=&Apache::loncommon::start_page('File Error');
my $end_page=&Apache::loncommon::end_page();	my $end_page=&Apache::loncommon::end_page();
my $fnf=&mt('File not found');	my $errormsg='<p class="LC_error">'
	.&mt('File not found: [_1]'
	,'<span class="LC_filename">'.$file.'</span>')
	.'</p>';
$result=(<<ENDNOTFOUND);	$result=(<<ENDNOTFOUND);
$start_page	$start_page
<b>$fnf: $file</b>	$errormsg
$end_page	$end_page
ENDNOTFOUND	ENDNOTFOUND
$filecontents='';	$filecontents='';
if ($env{'request.state'} ne 'published') {	if ($env{'request.state'} ne 'published') {
if ($filetype eq 'sty') {	if ($filetype eq 'sty') {
$filecontents=&createnewsty();	$filecontents=&createnewsty();
} else {	} elsif ($filetype eq 'js') {
	$filecontents=&createnewjs();
	} elsif ($filetype ne 'css' && $filetype ne 'txt' && $filetype ne 'tex') {
$filecontents=&createnewhtml();	$filecontents=&createnewhtml();
}	}
$env{'form.editmode'}='Edit'; #force edit mode	$env{'form.editmode'}='Edit'; #force edit mode
Line 1640 ENDNOTFOUND	Line 1907 ENDNOTFOUND
['editmode']);	['editmode']);
}	}
if (!$env{'form.editmode'} \|\| $env{'form.viewmode'} \|\| $env{'form.discardview'}) {	if (!$env{'form.editmode'} \|\| $env{'form.viewmode'} \|\| $env{'form.discardview'}) {
&Apache::structuretags::reset_problem_globals();	if ($filetype eq 'html' \|\| $filetype eq 'sty') {
$result = &Apache::lonxml::xmlparse($request,$target,$filecontents,	&Apache::structuretags::reset_problem_globals();
'',%mystyle);	$result = &Apache::lonxml::xmlparse($request,$target,
	$filecontents,'',%mystyle);
# .html files may contain <problem> or <Task> need to clean	# .html files may contain <problem> or <Task> need to clean
# up if it did	# up if it did
&Apache::structuretags::reset_problem_globals();	&Apache::structuretags::reset_problem_globals();
&Apache::lonhomework::finished_parsing();	&Apache::lonhomework::finished_parsing();
	} elsif ($filetype eq 'tex') {
	$result = &Apache::lontexconvert::converted(\$filecontents,
	$env{'form.texengine'});
	if ($env{'form.return_only_error_and_warning_counts'}) {
	$result = "$errorcount:$warningcount";
	}
	} else {
	$result = $filecontents;
	}
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['rawmode']);	['rawmode']);
if ($env{'form.rawmode'}) { $result = $filecontents; }	if ($env{'form.rawmode'}) { $result = $filecontents; }
if ($filetype eq 'sty') {	if (($env{'request.state'} eq 'construct') &&
my $controls =	(($filetype eq 'css') \|\| ($filetype eq 'js')) && ($ENV{'HTTP_REFERER'})) {
($env{'request.state'} eq 'construct') ? &Apache::londefdef::edit_controls()	if ($ENV{'HTTP_REFERER'} =~ m{^https?\://[^\/]+/priv/$LONCAPA::match_domain/$LONCAPA::match_username/[^\?]+\.(x?html?\|swf)(\|\?)[^\?]*$}) {
: '';	$inhibit_menu = 1;
my %options = ('bgcolor' => '#FFFFFF');	}
$result =	}
&Apache::loncommon::start_page(undef,undef,\%options).	if (($filetype ne 'html') &&
$controls.	(!$env{'form.return_only_error_and_warning_counts'}) &&
$result.	(!$inhibit_menu)) {
&Apache::loncommon::end_page();	my $nochgview = 1;
}	my $controls = '';
}	if ($env{'request.state'} eq 'construct') {
	$controls = &Apache::loncommon::head_subbox(
	&Apache::loncommon::CSTR_pageheader()
	.&Apache::londefdef::edit_controls($nochgview));
	}
	if ($filetype ne 'sty' && $filetype ne 'tex') {
	$result =~ s/</</g;
	$result =~ s/>/>/g;
	$result = '<table class="LC_sty_begin">'.
	'<tr><td><b><pre>'.$result.
	'</pre></b></td></tr></table>';
	}
	my $brcrum;
	if ($env{'request.state'} eq 'construct') {
	$brcrum = [{'href' => &Apache::loncommon::authorspace($request->uri),
	'text' => 'Authoring Space'},
	{'href' => '',
	'text' => $breadcrumbtext}];
	} else {
	$brcrum = ''; # FIXME: Where are we?
	}
	my %options = ('bread_crumbs' => $brcrum,
	'bgcolor' => '#FFFFFF');
	$result =
	&Apache::loncommon::start_page(undef,undef,\%options)
	.$controls
	.$result
	.&Apache::loncommon::end_page();
	}
	}
}	}

#	#
# Edit action? Insert editing commands	# Edit action? Insert editing commands
#	#
unless ($env{'request.state'} eq 'published') {	unless (($env{'request.state'} eq 'published') \|\| ($inhibit_menu)) {
if ($env{'form.editmode'} && (!($env{'form.viewmode'})) && (!($env{'form.discardview'})))	if ($env{'form.editmode'} && (!($env{'form.viewmode'})) && (!($env{'form.discardview'})))
{	{
	my ($displayfile,$url,$symb,$itemtitle,$action);
	$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'});
	}
	} else {
	$displayfile=~s/^\/[^\/]*//;
	}

my ($edit_info, $add_to_onload, $add_to_onresize)=	my ($edit_info, $add_to_onload, $add_to_onresize)=
&inserteditinfo($filecontents,$filetype);	&inserteditinfo($filecontents,$filetype,$displayfile,$symb,
	$itemtitle,$env{'form.folderpath'},$request->uri,$action);

my $displayfile=$request->uri;
$displayfile=~s/^\/[^\/]*//;
my %options =	my %options =
('add_entries' =>	('add_entries' =>
{'onresize' => $add_to_onresize,	{'onresize' => $add_to_onresize,
'onload' => $add_to_onload, });	'onload' => $add_to_onload, });
	my $header;
if ($env{'environment.remote'} ne 'off') {	if ($env{'request.state'} eq 'construct') {
$options{'bgcolor'} = '#FFFFFF';	$options{'bread_crumbs'} = [{
$options{'only_body'} = 1;	'href' => &Apache::loncommon::authorspace($request->uri),
}	'text' => 'Authoring Space'},
	{'href' => '',
	'text' => $breadcrumbtext}];
	$header = &Apache::loncommon::head_subbox(
	&Apache::loncommon::CSTR_pageheader());
	}
my $js =	my $js =
&Apache::edit::js_change_detection().	&Apache::edit::js_change_detection().
&Apache::loncommon::resize_textarea_js();	&Apache::loncommon::resize_textarea_js();
my $start_page = &Apache::loncommon::start_page(undef,$js,	my $start_page = &Apache::loncommon::start_page(undef,$js,
\%options);	\%options);
$result=$start_page.	$result = $start_page
&Apache::lonxml::message_location().'<h3>'.	.$header
$displayfile.	.&Apache::lonxml::message_location()
'</h3>'.	.$edit_info
$edit_info.	.&Apache::loncommon::end_page();
&Apache::loncommon::end_page();	}
}
}	}
if ($filetype eq 'html') { &writeallows($request->uri); }	if ($filetype eq 'html') { &writeallows($request->uri); }

&Apache::lonxml::add_messages(\$result);	&Apache::lonxml::add_messages(\$result);
$request->print($result);	$request->print($result);

Line 1713 sub display_title {	Line 2050 sub display_title {
$title = $env{'request.filename'};	$title = $env{'request.filename'};
$title = substr($title, rindex($title, '/') + 1);	$title = substr($title, rindex($title, '/') + 1);
}	}
$result = "<script type='text/javascript'>top.document.title = '$title - LON-CAPA Construction Space';</script>";	$result = "<script type='text/javascript'>top.document.title = '$title - LON-CAPA "
	.&mt('Authoring Space')."';</script>";
}	}
return $result;	return $result;
}	}

	sub get_courseupload_hierarchy {
	my ($url,$folderpath,$title) = @_;
	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);
	}
	}
	}
	}
	return ($symb,$itemtitle,$displaypath);
	}

sub debug {	sub debug {
if ($Apache::lonxml::debug eq "1") {	if ($Apache::lonxml::debug eq "1") {
$\|=1;	$\|=1;
Line 1734 sub debug {	Line 2108 sub debug {
}	}

sub show_error_warn_msg {	sub show_error_warn_msg {
if ($env{'request.filename'} eq '/home/httpd/html/res/lib/templates/simpleproblem.problem' &&	if (($env{'request.filename'} eq
&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {	$Apache::lonnet::perlvar{'lonDocRoot'}.'/res/lib/templates/simpleproblem.problem') &&
	(&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
return 1;	return 1;
}	}
return (($Apache::lonxml::debug eq 1) \|\|	return (($Apache::lonxml::debug eq 1) \|\|
Line 1750 sub error {	Line 2125 sub error {

$errorcount++;	$errorcount++;

	$Apache::lonxml::internal_error=1;

if (defined($Apache::inputtags::part)) {	if (defined($Apache::inputtags::part)) {
if ( @Apache::inputtags::response ) {	if ( @Apache::inputtags::response ) {
push(@errors,	push(@errors,
Line 1766 sub error {	Line 2143 sub error {
if ( &show_error_warn_msg() ) {	if ( &show_error_warn_msg() ) {
# If printing in construction space, put the error inside <pre></pre>	# If printing in construction space, put the error inside <pre></pre>
push(@Apache::lonxml::error_messages,	push(@Apache::lonxml::error_messages,
$Apache::lonxml::warnings_error_header.	$Apache::lonxml::warnings_error_header
"<b>ERROR:</b>".join("<br />\n",@errors)."<br />\n");	.'<div class="LC_error">'
	.'<b>'.&mt('ERROR:').' </b>'.join("<br />\n",@errors)
	."</div>\n");
$Apache::lonxml::warnings_error_header='';	$Apache::lonxml::warnings_error_header='';
} else {	} else {
my $errormsg;	my $errormsg;
my ($symb)=&Apache::lonnet::symbread();	my ($symb)=&Apache::lonnet::symbread();
if ( !$symb ) {	if ( !$symb ) {
#public or browsers	#public or browsers
$errormsg=&mt("An error occured while processing this resource. The author has been notified.");	$errormsg=&mt("An error occurred while processing this resource. The author has been notified.");
}	}
my $host=$Apache::lonnet::perlvar{'lonHostID'};	my $host=$Apache::lonnet::perlvar{'lonHostID'};
push(@errors, "The error occurred on host <tt>$host</tt>");	push(@errors,
	&mt("The error occurred on host [_1]",
	"<tt>$host</tt>"));

my $msg = join('<br />', @errors);	my $msg = join('<br />', @errors);

Line 1791 sub error {	Line 2172 sub error {
my $declutter=&Apache::lonnet::declutter($env{'request.filename'});	my $declutter=&Apache::lonnet::declutter($env{'request.filename'});
my $baseurl = &Apache::lonnet::clutter($declutter);	my $baseurl = &Apache::lonnet::clutter($declutter);
my @userlist;	my @userlist;
foreach (keys %users) {	foreach (keys(%users)) {
my ($user,$domain) = split(/:/, $_);	my ($user,$domain) = split(/:/, $_);
push(@userlist,"$user\@$domain");	push(@userlist,"$user:$domain");
my $key=$declutter.'_'.$user.'_'.$domain;	my $key=$declutter.'_'.$user.'_'.$domain;
my %lastnotified=&Apache::lonnet::get('nohist_xmlerrornotifications',	my %lastnotified=&Apache::lonnet::get('nohist_xmlerrornotifications',
[$key],	[$key],
Line 1811 sub error {	Line 2192 sub error {
}	}
}	}
if ($env{'request.role.adv'}) {	if ($env{'request.role.adv'}) {
$errormsg=&mt("An error occured while processing this resource. The course personnel ([_1]) and the author have been notified.",join(', ',@userlist));	$errormsg=&mt("An error occurred while processing this resource. The course personnel ([_1]) and the author have been notified.",join(', ',@userlist));
} else {	} else {
$errormsg=&mt("An error occured while processing this resource. The instructor has been notified.");	$errormsg=&mt("An error occurred while processing this resource. The instructor has been notified.");
}	}
}	}
push(@Apache::lonxml::error_messages,"<b>$errormsg</b> <br />");	push(@Apache::lonxml::error_messages,"<span class=\"LC_warning\">$errormsg</span><br />");
}	}
}	}

Line 1826 sub warning {	Line 2207 sub warning {
if ($env{'form.grade_target'} ne 'tex') {	if ($env{'form.grade_target'} ne 'tex') {
if ( &show_error_warn_msg() ) {	if ( &show_error_warn_msg() ) {
push(@Apache::lonxml::warning_messages,	push(@Apache::lonxml::warning_messages,
$Apache::lonxml::warnings_error_header.	$Apache::lonxml::warnings_error_header
"<b>W</b>ARNING<b>:</b>".join('<br />',@_)."<br />\n");	.'<div class="LC_warning">'
	.&mt('[_1]W[_2]ARNING','<b>','</b>')."<b>:</b> ".join('<br />',@_)
	."</div>\n"
	);
$Apache::lonxml::warnings_error_header='';	$Apache::lonxml::warnings_error_header='';
}	}
}	}
Line 1858 sub add_messages {	Line 2242 sub add_messages {
}	}

sub get_param {	sub get_param {
my ($param,$parstack,$safeeval,$context,$case_insensitive) = @_;	my ($param,$parstack,$safeeval,$context,$case_insensitive, $noelide) = @_;
if ( ! $context ) { $context = -1; }	if ( ! $context ) { $context = -1; }
my $args ='';	my $args ='';
if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; }	if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; }
if ( ! $Apache::lonxml::usestyle ) {	if ( ! $Apache::lonxml::usestyle ) {
$args=$Apache::lonxml::style_values.$args;	$args=$Apache::lonxml::style_values.$args;
}	}

	if ($noelide) {
	$args =~ s/'\$/'\\\$/g;
	}

if ( ! $args ) { return undef; }	if ( ! $args ) { return undef; }
if ( $case_insensitive ) {	if ( $case_insensitive ) {
if ($args =~ s/(my (?:.*))(\$\Q$param\E[,\)])/$1.lc($2)/ei) {	if ($args =~ s/(my (?:.*))(\$\Q$param\E[,\)])/$1.lc($2)/ei) {
Line 1921 sub register_insert_xml {	Line 2310 sub register_insert_xml {
while (my $token = $parser->get_token()) {	while (my $token = $parser->get_token()) {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
my $key;	my $key;
if ($token->[1] eq 'tag') {	if ($token->[1] eq 'tag') {
$tag = $token->[2]{'name'};	$tag = $token->[2]{'name'};
$insertlist{"$tagnum.tag"} = $tag;	if (defined($tag)) {
$insertlist{"$tag.num"} = $tagnum;	$insertlist{$tagnum.'.tag'} = $tag;
push(@alltags,$tag);	$insertlist{$tag.'.num'} = $tagnum;
	push(@alltags,$tag);
	}
} elsif ($in_help && $token->[1] eq 'file') {	} elsif ($in_help && $token->[1] eq 'file') {
$key = $tag.'.helpfile';	$key = $tag.'.helpfile';
} elsif ($in_help && $token->[1] eq 'description') {	} elsif ($in_help && $token->[1] eq 'description') {
Line 1957 sub register_insert_xml {	Line 2348 sub register_insert_xml {

# parse the allows and ignore tags set to <show>no</show>	# parse the allows and ignore tags set to <show>no</show>
foreach my $tag (@alltags) {	foreach my $tag (@alltags) {
next if (!exists($insertlist{"$tag.allow"}));	next if (!exists($insertlist{$tag.'.allow'}));
my $allow = $insertlist{"$tag.allow"};	my $allow = $insertlist{$tag.'.allow'};
foreach my $element (split(',',$allow)) {	foreach my $element (split(',',$allow)) {
$element =~ s/(^\s\|\s$ )//gx;	$element =~ s/(^\s\|\s$ )//gx;
if (!exists($insertlist{"$element.show"})	if (!exists($insertlist{$element.'.show'})
\|\| $insertlist{"$element.show"} ne 'no') {	\|\| $insertlist{$element.'.show'} ne 'no') {
push(@{ $insertlist{$tag.'.which'} },$element);	push(@{ $insertlist{$tag.'.which'} },$element);
}	}
}	}
Line 1976 sub register_insert {	Line 2367 sub register_insert {

sub dump_insertlist {	sub dump_insertlist {
my ($ext) = @_;	my ($ext) = @_;
open(XML,">/tmp/insertlist.xml.$ext");	open(XML,">","/tmp/insertlist.xml.$ext");
print XML ("<insertlist>");	print XML ("<insertlist>");
my $i=0;	my $i=0;

Line 2034 sub description {	Line 2425 sub description {
sub helpinfo {	sub helpinfo {
my ($token)=@_;	my ($token)=@_;
my $tag = &get_tag($token);	my $tag = &get_tag($token);
return ($insertlist{$tag.'.helpfile'}, $insertlist{$tag.'.helpdesc'});	return ($insertlist{$tag.'.helpfile'}, &mt($insertlist{$tag.'.helpdesc'}));
}	}

sub get_tag {	sub get_tag {
Line 2052 sub get_tag {	Line 2443 sub get_tag {
return $insertlist{"$tagnum.tag"};	return $insertlist{"$tagnum.tag"};
}	}

	############################################################
	# PDF-FORM-METHODS

	=pod

	=item &print_pdf_radiobutton(fieldname, value)

	Returns a latexline to generate a PDF-Form-Radiobutton.
	Note: Radiobuttons with equal names are automaticly grouped
	in a selection-group.

	$fieldname: PDF internalname of the radiobutton(group)
	$value: Value of radiobutton

	=cut
	sub print_pdf_radiobutton {
	my ($fieldname, $value) = @_;
	return '\radioButton[\symbolchoice{circle}]{'
	.$fieldname.'}{10bp}{10bp}{'.$value.'}';
	}


	=pod

	=item &print_pdf_start_combobox(fieldname)

	Starts a latexline to generate a PDF-Form-Combobox with text.

	$fieldname: PDF internal name of the Combobox

	=cut
	sub print_pdf_start_combobox {
	my $result;
	my ($fieldName) = @_;
	$result .= '\begin{tabularx}{\textwidth}{p{2.5cm}X}'."\n";
	$result .= '\comboBox[]{'.$fieldName.'}{2.3cm}{14bp}{'; #

	return $result;
	}


	=pod

	=item &print_pdf_add_combobox_option(options)

	Generates a latexline to add Options to a PDF-Form-ComboBox.

	$option: PDF internal name of the Combobox-Option

	=cut
	sub print_pdf_add_combobox_option {

	my $result;
	my ($option) = @_;

	$result .= '('.$option.')';

	return $result;
	}


	=pod

	=item &print_pdf_end_combobox(text) {

	Returns latexcode to end a PDF-Form-Combobox with text.

	=cut
	sub print_pdf_end_combobox {
	my $result;
	my ($text) = @_;

	$result .= '}&'.$text."\\\\\n";
	$result .= '\end{tabularx}' . "\n";
	$result .= '\hspace{2mm}' . "\n";
	return $result;
	}


	=pod

	=item &print_pdf_hiddenField(fieldname, user, domain)

	Returns a latexline to generate a PDF-Form-hiddenField with userdata.

	$fieldname label for hiddentextfield
	$user: name of user
	$domain: domain of user

	=cut
	sub print_pdf_hiddenfield {
	my $result;
	my ($fieldname, $user, $domain) = @_;

	$result .= '\textField [\F{\FHidden}\F{-\FPrint}\V{'.$domain.'&'.$user.'}]{'.$fieldname.'}{0in}{0in}'."\n";

	return $result;
	}

1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.464
changed lines
	Added in v.1.531.2.24