loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.52, 2005/10/04 16:30:23	version 1.53, 2005/11/08 18:59:03
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!~/\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 172 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 />\|g;	$line=~s\|\n\|<br />\|g;