version 1.150, 2002/01/18 17:04:46
|
version 1.151, 2002/01/30 16:04:04
|
Line 897 sub get_all_text {
|
Line 897 sub get_all_text {
|
} 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') { |
if ($token->[1] eq $tag) { $depth++; } |
if ($token->[1] =~ /^$tag$/i) { $depth++; } |
$result.=$token->[4]; |
$result.=$token->[4]; |
} elsif ($token->[0] eq 'E') { |
} elsif ($token->[0] eq 'E') { |
if ( $token->[1] eq $tag) { $depth--; } |
if ( $token->[1] =~ /^$tag$/i) { $depth--; } |
#skip sending back the last end tag |
#skip sending back the last end tag |
if ($depth > -1) { $result.=$token->[2]; } else { |
if ($depth > -1) { $result.=$token->[2]; } else { |
$pars->unget_token($token); |
$pars->unget_token($token); |
Line 915 sub get_all_text {
|
Line 915 sub get_all_text {
|
} 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') { |
if ( $token->[1] eq $tag) { |
if ( $token->[1] =~ /^$tag$/i) { |
$pars->unget_token($token); last; |
$pars->unget_token($token); last; |
} else { |
} else { |
$result.=$token->[4]; |
$result.=$token->[4]; |
Line 1028 sub storefile {
|
Line 1028 sub storefile {
|
} |
} |
} |
} |
|
|
sub inserteditinfo { |
sub createnewhtml { |
my ($result,$filecontents)=@_; |
my $filecontents=(<<SIMPLECONTENT); |
unless ($filecontents) { |
|
$filecontents=(<<SIMPLECONTENT); |
|
<html> |
<html> |
<head> |
<head> |
<title> |
<title> |
Line 1045 sub inserteditinfo {
|
Line 1043 sub inserteditinfo {
|
</body> |
</body> |
</html> |
</html> |
SIMPLECONTENT |
SIMPLECONTENT |
} |
return $filecontents; |
|
} |
|
|
|
|
|
sub inserteditinfo { |
|
my ($result,$filecontents)=@_; |
$filecontents =~ s:</textarea>:</textarea>:ig; |
$filecontents =~ s:</textarea>:</textarea>:ig; |
# my $editheader='<a href="#editsection">Edit below</a><hr />'; |
# my $editheader='<a href="#editsection">Edit below</a><hr />'; |
my $editfooter=(<<ENDFOOTER); |
my $editfooter=(<<ENDFOOTER); |
Line 1109 sub handler {
|
Line 1111 sub handler {
|
</html> |
</html> |
ENDNOTFOUND |
ENDNOTFOUND |
$filecontents=''; |
$filecontents=''; |
|
if ($ENV{'request.state'} ne 'published') { |
|
$filecontents=&createnewhtml(); |
|
$ENV{'form.showmode'}='Edit'; #force edit mode |
|
} |
} else { |
} else { |
unless ($ENV{'request.state'} eq 'published') { |
unless ($ENV{'request.state'} eq 'published') { |
if ($ENV{'form.attemptclean'}) { |
if ($ENV{'form.attemptclean'}) { |