loncom/xml/lontexconvert.pm - diff

Return to lontexconvert.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.101, 2010/01/26 01:16:30	version 1.102, 2010/04/26 21:36:50
Line 326 sub converted {	Line 326 sub converted {

sub to_convert {	sub to_convert {
my ($string) = @_;	my ($string) = @_;
	&init_tth();
$string=~s/\<br\s*\/?\>/ /gs;	$string=~s/\<br\s*\/?\>/ /gs;
# $string=~s/\s/ /gs;	# $string=~s/\s/ /gs;
$string=&HTML::Entities::decode($string);	$string=&HTML::Entities::decode($string);
Line 373 sub smiley {	Line 374 sub smiley {
sub msgtexconverted {	sub msgtexconverted {
my ($message,$email) = @_;	my ($message,$email) = @_;
$errorstring='';	$errorstring='';
&init_tth();
my $outmessage='';	my $outmessage='';
my $tex=0;	my $tex=0;
foreach my $fragment (split(/(?:\&lt\;\|\<)\/m\s(?:\&gt\;\|\>)/i,$message)) {	foreach my $fragment (split(/(?:\&lt\;\|\<)\/m\s(?:\&gt\;\|\>)/i,$message)) {
Line 415 sub msgtexconverted {	Line 415 sub msgtexconverted {

sub algebra {	sub algebra {
use AlgParser;	use AlgParser;
	&init_tth();
my ($string,$target,$style,$parstack,$safeeval)=@_;	my ($string,$target,$style,$parstack,$safeeval)=@_;
my $parser = new AlgParserWithImplicitExpand;	my $parser = new AlgParserWithImplicitExpand;
$string=&prepare_algebra($string);	$string=&prepare_algebra($string);