loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.51, 2005/02/28 22:17:09	version 1.55, 2006/01/11 08:52:58
Line 50 while (!$_LONCAPA_INTERNAL_oldexpression	Line 50 while (!$_LONCAPA_INTERNAL_oldexpression
my $__LC__prefix;	my $__LC__prefix;
my $__LC__result;	my $__LC__result;
while (1) {	while (1) {
	if ($__LC__a =~ m-^&(theta\|i\|pi\|rho)-) { last; }
{	{
use strict;	use strict;
no strict "vars";	no strict "vars";
Line 157 sub dump {	Line 158 sub dump {
my ($target,$safeeval)=@_;	my ($target,$safeeval)=@_;
my $dump='';	my $dump='';
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) {	foreach my $symname (sort keys %{$safeeval->varglob('main::')}) {
if (($symname!~/^\_/) && ($symname!~/\:$/)) {	if (($symname!~ /^(INC\|SIG)/) && ($symname!~/\027/) &&
	($symname!~/^\_/) && ($symname!~/\:$/)) {
my $line;	my $line;
if ($safeeval->reval('defined($'.$symname.')')) {	if ($safeeval->reval('defined($'.$symname.')')) {
if ($symname =~ /^\w/) {	if ($symname =~ /^\w/) {
Line 172 sub dump {	Line 174 sub dump {
$line.='%'.$symname.'=(';	$line.='%'.$symname.'=(';
$line.=$safeeval->reval('join(",",map { $_."=>".$'.	$line.=$safeeval->reval('join(",",map { $_."=>".$'.
$symname.'{$_} } sort keys %'.	$symname.'{$_} } sort keys %'.
$symname.')').")"."\n"	$symname.')').")"."\n";
}	}
if ($line ne '') {	if ($line ne '') {
$line=&HTML::Entities::encode($line,'<>&"');	$line=&HTML::Entities::encode($line,'<>&"');
$line=~s\|\n\|<br />\|;	$line=~s\|\n\|<br />\|g;
$dump.=$line;	$dump.=$line;
}	}
}	}