loncom/interface/lontest.pm - diff

Return to lontest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2003/03/01 15:13:58	version 1.12, 2004/11/01 23:03:33
Line 128 sub section	Line 128 sub section
} else {	} else {
$r->print('<h2>Could not tie symbhash</h2>');	$r->print('<h2>Could not tie symbhash</h2>');
}	}
	if (-e $fn.'.state') {
	$r->print('<h2>State</h2>');
	my @conditions=();
	{
	my $fh=Apache::File->new($fn.'.state');
	@conditions=<$fh>;
	}
	foreach (@conditions) {
	$r->print('<tt>'.$_.'</tt><br />');
	}
	}
}	}


# ------------------------------------------------------------------- End Debug	# ------------------------------------------------------------------- End Debug
$r->print('</body></html>');	$r->print('</body></html>');
	return OK;
}	}