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.455 and 1.531.2.19

version 1.455, 2007/08/31 19:32:54	version 1.531.2.19, 2015/04/06 17:02:33
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 90 use Apache::lonfeedback();	Line 109 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
#debugging control, to turn on debugging modify the correct handler	#debugging control, to turn on debugging modify the correct handler

$Apache::lonxml::debug=0;	$Apache::lonxml::debug=0;

# keeps count of the number of warnings and errors generated in a parse	# keeps count of the number of warnings and errors generated in a parse
Line 119 $metamode = 0;	Line 144 $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 135 $Apache::lonxml::request='';	Line 160 $Apache::lonxml::request='';
$Apache::lonxml::counter=1;	$Apache::lonxml::counter=1;
$Apache::lonxml::counter_changed=0;	$Apache::lonxml::counter_changed=0;

	# Part counter hash. In analysis mode, the
	# problems can use this to record which parts increment the counter
	# by how much. The counter subs will maintain this hash via
	# their optional part parameters. Note that the assumption is that
	# analysis is done in one request and therefore it is not necessary to
	# save this information request-to-request.


	%Apache::lonxml::counters_per_part = ();

#internal check on whether to look at style defs	#internal check on whether to look at style defs
$Apache::lonxml::usestyle=1;	$Apache::lonxml::usestyle=1;

Line 176 sub xmlend {	Line 211 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 195 sub tokeninputfield {	Line 234 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 227 onChange="updatetoken()"/></td>	Line 266 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 241 ENDINPUTFIELD	Line 280 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 258 sub printtokenheader {	Line 296 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 270 sub printtokenheader {	Line 308 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 285 sub printtokenheader {	Line 323 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 349 sub xmlparse {	Line 387 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 362 sub xmlparse {	Line 400 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 416 sub inner_xmlparse {	Line 463 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 470 sub inner_xmlparse {	Line 519 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 489 sub inner_xmlparse {	Line 538 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 511 sub inner_xmlparse {	Line 560 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 534 sub inner_xmlparse {	Line 595 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 619 sub callsub {	Line 684 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();
	&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 674 sub setup_globals {	Line 761 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 690 sub init_safespace {	Line 779 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 800 sub init_safespace {	Line 900 sub init_safespace {
$safehole->wrap(\&Math::Random::random_set_seed_from_phrase,$safeeval,'&random_set_seed_from_phrase');	$safehole->wrap(\&Math::Random::random_set_seed_from_phrase,$safeeval,'&random_set_seed_from_phrase');
$safehole->wrap(\&Math::Random::random_get_seed,$safeeval,'&random_get_seed');	$safehole->wrap(\&Math::Random::random_get_seed,$safeeval,'&random_get_seed');
$safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_seed');	$safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_seed');
	$safehole->wrap(\&Apache::loncommon::languages,$safeeval,'&languages');
$safehole->wrap(\&Apache::lonxml::error,$safeeval,'&LONCAPA_INTERNAL_ERROR');	$safehole->wrap(\&Apache::lonxml::error,$safeeval,'&LONCAPA_INTERNAL_ERROR');
$safehole->wrap(\&Apache::lonxml::debug,$safeeval,'&LONCAPA_INTERNAL_DEBUG');	$safehole->wrap(\&Apache::lonxml::debug,$safeeval,'&LONCAPA_INTERNAL_DEBUG');
$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');

# 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 812 sub init_safespace {	Line 922 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 851 sub initialize_rndseed {	Line 964 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 908 sub endredirection {	Line 1023 sub endredirection {
}	}
pop @Apache::lonxml::outputstack;	pop @Apache::lonxml::outputstack;
}	}
	sub in_redirection {
	return ($Apache::lonxml::redirection > 0)
	}

sub end_tag {	sub end_tag {
my ($tagstack,$parstack,$token)=@_;	my ($tagstack,$parstack,$token)=@_;
Line 969 sub get_id {	Line 1087 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\d\s[:punct:]])/) {
&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 1005 sub get_all_text_unbalanced {	Line 1123 sub get_all_text_unbalanced {
}	}
}	}
return $result	return $result

}	}

	#########################################################################
	# #
	# bubble line counter management #
	# #
	#########################################################################

=pod	=pod

For bubble grading mode and exam bubble printing mode, the tracking of	For bubble grading mode and exam bubble printing mode, the tracking of
Line 1016 the current 'bubble line number' is stor	Line 1141 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.
	$part_response - A concatenation of the part and response id
	identifying exactly what is being 'answered'.


=cut	=cut

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

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

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

$Apache::lonxml::counter_changed=1;	$Apache::lonxml::counter_changed=1;
}	}

Line 1057 sub init_counter {	Line 1198 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 1078 sub store_counter {	Line 1219 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 1088 sub store_counter {	Line 1229 sub store_counter {
}	}
}	}

	=pod

	=item bubble_lines_for_part(part_response)

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

	=cut

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

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

	=pod

	=item clear_bubble_lines_for_part

	Clears the hash of bubble lines per part. If a caller
	needs to analyze several resources this should be called between
	resources to reset the hash for each problem being analyzed.

	=cut

	sub clear_bubble_lines_for_part {
	undef(%Apache::lonxml::counters_per_part);
	}

	=pod

	=item set_bubble_lines(part_response, value)

	If there is a problem part, that for whatever reason
	requires bubble lines that are not
	the same as the counter increment, it can call this sub during
	analysis to set its hash value explicitly.

	=cut

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

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

	=pod

	=item get_bubble_line_hash

	Returns the current bubble line hash. This is assumed to
	be small so we return a copy


	=cut

	sub get_bubble_line_hash {
	return %Apache::lonxml::counters_per_part;
	}


	#--------------------------------------------------

sub get_all_text {	sub get_all_text {
my($tag,$pars,$style)= @_;	my($tag,$pars,$style)= @_;
my $gotfullstack=1;	my $gotfullstack=1;
Line 1231 sub extlink {	Line 1439 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 1248 sub writeallows {	Line 1456 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 1267 sub do_registered_ssi {	Line 1475 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 1315 sub storefile {	Line 1525 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 1348 SIMPLECONTENT	Line 1558 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',
	'jsMath' => 'jsMath',
	'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();
if ($filetype eq 'html') {	if ($filetype eq 'html') {
my $addbuttons=&Apache::lonhtmlcommon::htmlareaaddbuttons();	if ($env{'request.course.id'}) {
$initialize=&Apache::lonhtmlcommon::spellheader();	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
if (!&Apache::lonhtmlcommon::htmlareablocked() &&	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
&Apache::lonhtmlcommon::htmlareabrowser()) {	if ($uri =~ m{^\Q/uploaded/$cdom/$cnum/portfolio/syllabus/\E}) {
$textarea_id .= '_htmlarea';	$context = 'syllabus';
$initialize.=(<<FULLPAGE);	}
<script type="text/javascript">	}
$addbuttons	if (&Apache::lonhtmlcommon::htmlareabrowser()) {
	my $lang = &Apache::lonhtmlcommon::htmlarea_lang();
HTMLArea.loadPlugin("FullPage");	my %textarea_args = (
	fullpage => 'true',
function initDocument() {	dragmath => 'math',
var editor=new HTMLArea("filecont",config);	);
editor.registerPlugin(FullPage);	$initialize .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);
editor.generate();	if ($context eq 'syllabus') {
setTimeout(	$init_dragmath = "editmath_visibility('filecont','none')";
function () {	}
HTMLArea._addEvents(editor._doc,	}
["keypress","mousedown"], unClean);	}
editor._iframe.id = '$textarea_id';	$initialize .= (<<FULLPAGE);
resize_textarea('$textarea_id','LC_aftertextarea');
},300);
}
</script>
FULLPAGE
} else {
$initialize.=(<<FULLPAGE);
<script type="text/javascript">	<script type="text/javascript">
$addbuttons	// <![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;
$add_to_onload = 'initDocument();';	if ($filetype eq 'html') {
$add_to_onresize = "resize_textarea('$textarea_id','LC_aftertextarea');";	if ($context eq 'syllabus') {
$xml_help=&Apache::loncommon::helpLatexCheatsheet();	$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_onresize = "resize_textarea('$textarea_id','LC_aftertextarea');";

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

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',
Line 1406 FULLPAGE	Line 1706 FULLPAGE
'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 class="LC_edit_problem_discards">
</div>	<input type="submit" name="discardview" accesskey="d" value="$lt{'dv'}" />
	$undo $htmlerror $deps_button $dragmath_button
	</div>
	<div class="LC_edit_problem_saves">
	<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 1465 sub get_target {	Line 1784 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 1476 sub handler {	Line 1794 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 1495 sub handler {	Line 1860 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 1529 ENDNOTFOUND	Line 1903 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 (($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)) {
	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 1591 sub display_title {	Line 2046 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 1612 sub debug {	Line 2104 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 1628 sub error {	Line 2121 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 1644 sub error {	Line 2139 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 1669 sub error {	Line 2168 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 1689 sub error {	Line 2188 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 1704 sub warning {	Line 2203 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 1736 sub add_messages {	Line 2238 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 1799 sub register_insert_xml {	Line 2306 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 1835 sub register_insert_xml {	Line 2344 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 1912 sub description {	Line 2421 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 1930 sub get_tag {	Line 2439 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.455
changed lines
	Added in v.1.531.2.19