loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

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 {