|
version 1.364, 2005/03/16 15:46:42
|
version 1.365, 2005/03/16 19:09:44
|
|
Line 1056 sub get_all_text {
|
Line 1056 sub get_all_text {
|
| sub newparser { |
sub newparser { |
| my ($parser,$contentref,$dir) = @_; |
my ($parser,$contentref,$dir) = @_; |
| push (@$parser,HTML::LCParser->new($contentref)); |
push (@$parser,HTML::LCParser->new($contentref)); |
| $$parser['-1']->xml_mode('1'); |
$$parser[-1]->xml_mode(1); |
| |
$$parser[-1]->marked_sections(1); |
| if ( $dir eq '' ) { |
if ( $dir eq '' ) { |
| push (@Apache::lonxml::pwd, $Apache::lonxml::pwd[$#Apache::lonxml::pwd]); |
push (@Apache::lonxml::pwd, $Apache::lonxml::pwd[$#Apache::lonxml::pwd]); |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml