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.375 and 1.379

version 1.375, 2005/06/09 02:12:26	version 1.379, 2005/06/29 19:02:14
Line 180 sub xmlend {	Line 180 sub xmlend {
$status=$Apache::inputtags::status[-1];	$status=$Apache::inputtags::status[-1];
}	}
my $discussion;	my $discussion;
&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
($env{'query_string'},['LONCAPA_INTERNAL_no_discussion']);	['LONCAPA_INTERNAL_no_discussion']);
if (! exists($env{'form.LONCAPA_INTERNAL_no_discussion'}) \|\|	if (! exists($env{'form.LONCAPA_INTERNAL_no_discussion'}) \|\|
$env{'form.LONCAPA_INTERNAL_no_discussion'} ne 'true') {	$env{'form.LONCAPA_INTERNAL_no_discussion'} ne 'true') {
$discussion=&Apache::lonfeedback::list_discussion($mode,$status);	$discussion=&Apache::lonfeedback::list_discussion($mode,$status);
Line 397 sub latex_special_symbols {	Line 397 sub latex_special_symbols {
$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/\\\$\|\$/\\\$/g;	$string=~s/\\\$\|\$/\\\$/g;
$string=~s/\\\_\|\_/\\\_/g;	$string=~s/\\\_\|\_/\\\_/g;
$string=~s/([^\\]\|^)(\~\|\^)/$1\\$2\\strut /g;	$string=~s/([^\\]\|^)(\~\|\^)/$1\\$2\\strut /g;
Line 1065 sub parstring {	Line 1066 sub parstring {

sub writeallows {	sub writeallows {
unless ($#extlinks>=0) { return; }	unless ($#extlinks>=0) { return; }
my $thisurl='/res/'.&Apache::lonnet::declutter(shift);	my $thisurl = &Apache::lonnet::clutter(shift);
if ($env{'httpref.'.$thisurl}) {	if ($env{'httpref.'.$thisurl}) {
$thisurl=$env{'httpref.'.$thisurl};	$thisurl=$env{'httpref.'.$thisurl};
}	}

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

Removed from v.1.375
changed lines
	Added in v.1.379