loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.287, 2003/10/24 21:31:05	version 1.288, 2003/10/27 19:00:11
Line 395 sub latex_special_symbols {	Line 395 sub latex_special_symbols {
$string =~ s/_/ /g;	$string =~ s/_/ /g;
} else {	} else {
$string=~s/\\ /\\char92 /g;	$string=~s/\\ /\\char92 /g;
$string=~s/\^/\\char94 /g;	$string=~s/\^/\\\^ /g;
$string=~s/\~/\\char126 /g;	$string=~s/\~/\\char126 /g;
$string=~s/(&[^A-Za-z\#])/\\$1/g;	$string=~s/(&[^A-Za-z\#])/\\$1/g;
$string=~s/([^&])\#/$1\\#/g;	$string=~s/([^&])\#/$1\\#/g;
Line 845 sub get_all_text_unbalanced {	Line 845 sub get_all_text_unbalanced {

sub increment_counter {	sub increment_counter {
my ($increment) = @_;	my ($increment) = @_;
if (defined($increment) && $increment gt 0) {	if ($ENV{'form.freeze_counter'} ne 'yes') {
$Apache::lonxml::counter+=$increment;	if (defined($increment) && $increment gt 0) {
} else {	$Apache::lonxml::counter+=$increment;
$Apache::lonxml::counter++;	} else {
	$Apache::lonxml::counter++;
	}
	$Apache::lonxml::counter_changed=1;
}	}
$Apache::lonxml::counter_changed=1;
}	}

sub init_counter {	sub init_counter {