version 1.55, 2001/02/22 00:49:03
|
version 1.56, 2001/03/13 22:44:24
|
Line 4
|
Line 4
|
# last modified 06/26/00 by Alexander Sakharuk |
# last modified 06/26/00 by Alexander Sakharuk |
# 11/6 Gerd Kortemeyer |
# 11/6 Gerd Kortemeyer |
# 6/1/1 Gerd Kortemeyer |
# 6/1/1 Gerd Kortemeyer |
# 2/21 Guy |
# 2/21,3/13 Guy |
|
|
package Apache::lonxml; |
package Apache::lonxml; |
use vars |
use vars |
Line 323 sub get_all_text {
|
Line 323 sub get_all_text {
|
sub newparser { |
sub newparser { |
my ($parser,$contentref,$dir) = @_; |
my ($parser,$contentref,$dir) = @_; |
push (@$parser,HTML::TokeParser->new($contentref)); |
push (@$parser,HTML::TokeParser->new($contentref)); |
|
$$parser['-1']->xml_mode('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 { |