version 1.174, 2004/06/18 16:52:19
|
version 1.177, 2004/07/07 21:23:31
|
Line 583 sub get_all_text_unbalanced {
|
Line 583 sub get_all_text_unbalanced {
|
} elsif ($token->[0] eq 'E') { |
} elsif ($token->[0] eq 'E') { |
$result.=$token->[2]; |
$result.=$token->[2]; |
} |
} |
if ($result =~ /(.*)\Q$tag\E(.*)/s) { |
if ($result =~ /\Q$tag\E/s) { |
|
($result,my $redo)=$result =~ /(.*)\Q$tag\E(.*)/is; |
#&Apache::lonnet::logthis('Got a winner with leftovers ::'.$2); |
#&Apache::lonnet::logthis('Got a winner with leftovers ::'.$2); |
#&Apache::lonnet::logthis('Result is :'.$1); |
#&Apache::lonnet::logthis('Result is :'.$1); |
$result=$1; |
$redo=$tag.$redo; |
my $redo=$tag.$2; |
|
push (@$pars,HTML::LCParser->new(\$redo)); |
push (@$pars,HTML::LCParser->new(\$redo)); |
$$pars[-1]->xml_mode('1'); |
$$pars[-1]->xml_mode('1'); |
last; |
last; |
Line 929 sub publish {
|
Line 929 sub publish {
|
} |
} |
} |
} |
} |
} |
$outstring=~s/\n*(\<\/[^\>]+\>)\s*$/$allowstr\n$1\n/s; |
$outstring=~s/\n*(\<\/[^\>]+\>[^<]*)$/$allowstr\n$1\n/s; |
|
|
# ------------------------------------------------------------- Write modified. |
# ------------------------------------------------------------- Write modified. |
|
|