version 1.156, 2002/03/08 18:32:55
|
version 1.157, 2002/03/14 20:30:36
|
Line 64 qw(@pwd @outputstack $redirection $impor
|
Line 64 qw(@pwd @outputstack $redirection $impor
|
use strict; |
use strict; |
use HTML::TokeParser; |
use HTML::TokeParser; |
use HTML::TreeBuilder; |
use HTML::TreeBuilder; |
|
use HTML::Entities; |
use Safe; |
use Safe; |
use Safe::Hole; |
use Safe::Hole; |
use Math::Cephes qw(:trigs :hypers :bessels erf erfc); |
use Math::Cephes qw(:trigs :hypers :bessels erf erfc); |
Line 1087 SIMPLECONTENT
|
Line 1088 SIMPLECONTENT
|
|
|
sub inserteditinfo { |
sub inserteditinfo { |
my ($result,$filecontents)=@_; |
my ($result,$filecontents)=@_; |
$filecontents =~ s:</textarea>:</textarea>:ig; |
$filecontents = &HTML::Entities::encode($filecontents); |
# my $editheader='<a href="#editsection">Edit below</a><hr />'; |
# my $editheader='<a href="#editsection">Edit below</a><hr />'; |
my $editfooter=(<<ENDFOOTER); |
my $editfooter=(<<ENDFOOTER); |
<hr /> |
<hr /> |
Line 1250 sub get_param {
|
Line 1251 sub get_param {
|
if ( ! $context ) { $context = -1; } |
if ( ! $context ) { $context = -1; } |
my $args =''; |
my $args =''; |
if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; } |
if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; } |
|
if ( ! $args ) { return undef; } |
if ( $args =~ /my \$$param=\"/ ) { |
if ( $args =~ /my \$$param=\"/ ) { |
return &Apache::run::run("{$args;".'return $'.$param.'}',$safeeval); #' |
return &Apache::run::run("{$args;".'return $'.$param.'}',$safeeval); #' |
} else { |
} else { |