version 1.380, 2005/07/08 10:39:49
|
version 1.382, 2005/09/14 19:20:23
|
Line 893 sub get_all_text_unbalanced {
|
Line 893 sub get_all_text_unbalanced {
|
$tag='<'.$tag.'>'; |
$tag='<'.$tag.'>'; |
while ($token = $$pars[-1]->get_token) { |
while ($token = $$pars[-1]->get_token) { |
if (($token->[0] eq 'T')||($token->[0] eq 'C')||($token->[0] eq 'D')) { |
if (($token->[0] eq 'T')||($token->[0] eq 'C')||($token->[0] eq 'D')) { |
$result.=$token->[1]; |
if ($token->[2]) { |
|
$result.='<![CDATA['.$token->[1].']]>'; |
|
} else { |
|
$result.=$token->[1]; |
|
} |
} elsif ($token->[0] eq 'PI') { |
} elsif ($token->[0] eq 'PI') { |
$result.=$token->[2]; |
$result.=$token->[2]; |
} elsif ($token->[0] eq 'S') { |
} elsif ($token->[0] eq 'S') { |
Line 959 sub get_all_text {
|
Line 963 sub get_all_text {
|
while (($depth >=0) && ($token = $$pars[-1]->get_token)) { |
while (($depth >=0) && ($token = $$pars[-1]->get_token)) { |
#&Apache::lonxml::debug("e token:$token->[0]:$depth:$token->[1]:".$#$pars.":".$#Apache::lonxml::pwd); |
#&Apache::lonxml::debug("e token:$token->[0]:$depth:$token->[1]:".$#$pars.":".$#Apache::lonxml::pwd); |
if (($token->[0] eq 'T')||($token->[0] eq 'C')||($token->[0] eq 'D')) { |
if (($token->[0] eq 'T')||($token->[0] eq 'C')||($token->[0] eq 'D')) { |
$result.=$token->[1]; |
if ($token->[2]) { |
|
$result.='<![CDATA['.$token->[1].']]>'; |
|
} else { |
|
$result.=$token->[1]; |
|
} |
} elsif ($token->[0] eq 'PI') { |
} elsif ($token->[0] eq 'PI') { |
$result.=$token->[2]; |
$result.=$token->[2]; |
} elsif ($token->[0] eq 'S') { |
} elsif ($token->[0] eq 'S') { |
Line 1011 sub get_all_text {
|
Line 1019 sub get_all_text {
|
#&Apache::lonxml::debug("s token:$token->[0]:$depth:$token->[1]"); |
#&Apache::lonxml::debug("s token:$token->[0]:$depth:$token->[1]"); |
if (($token->[0] eq 'T')||($token->[0] eq 'C')|| |
if (($token->[0] eq 'T')||($token->[0] eq 'C')|| |
($token->[0] eq 'D')) { |
($token->[0] eq 'D')) { |
$result.=$token->[1]; |
if ($token->[2]) { |
|
$result.='<![CDATA['.$token->[1].']]>'; |
|
} else { |
|
$result.=$token->[1]; |
|
} |
} elsif ($token->[0] eq 'PI') { |
} elsif ($token->[0] eq 'PI') { |
$result.=$token->[2]; |
$result.=$token->[2]; |
} elsif ($token->[0] eq 'S') { |
} elsif ($token->[0] eq 'S') { |
Line 1148 sub createnewhtml {
|
Line 1160 sub createnewhtml {
|
my $title=&mt('Title of document goes here'); |
my $title=&mt('Title of document goes here'); |
my $body=&mt('Body of document goes here'); |
my $body=&mt('Body of document goes here'); |
my $filecontents=(<<SIMPLECONTENT); |
my $filecontents=(<<SIMPLECONTENT); |
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml/11/DTD/xhtml11.dtd"> |
|
<html> |
<html> |
<head> |
<head> |
<title>$title</title> |
<title>$title</title> |
Line 1337 ENDNOTFOUND
|
Line 1348 ENDNOTFOUND
|
} else { |
} else { |
unless ($env{'request.state'} eq 'published') { |
unless ($env{'request.state'} eq 'published') { |
if ($filecontents=~/BEGIN LON-CAPA Internal/) { |
if ($filecontents=~/BEGIN LON-CAPA Internal/) { |
&Apache::lonxml::error(&mt('This file appears to be a rendering of a Lon-CAPA resource. If this is correct, this resource will act very oddly and incorrectly.')); |
&Apache::lonxml::error(&mt('This file appears to be a rendering of a LON-CAPA resource. If this is correct, this resource will act very oddly and incorrectly.')); |
} |
} |
# |
# |
# we are in construction space, see if edit mode forced |
# we are in construction space, see if edit mode forced |