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.54, 2005/11/15 20:50:26
Line 157 sub dump {	Line 157 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 173 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;
}	}
}	}