loncom/interface/lonerrorhandler.pm - diff

Return to lonerrorhandler.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.6, 2005/02/17 08:50:20	version 1.7, 2005/04/07 06:56:23
Line 31 package Apache::lonerrorhandler;	Line 31 package Apache::lonerrorhandler;
use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon;	use Apache::loncommon;
	use Apache::lonnet;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 42 sub handler {	Line 43 sub handler {
my $envkey;	my $envkey;
my $env='';	my $env='';

foreach $envkey (sort keys %ENV) {	foreach $envkey (sort(keys(%env))) {
	$env.="$envkey: $env{$envkey}\n";
	}
	foreach $envkey (sort(keys(%ENV))) {
$env.="$envkey: $ENV{$envkey}\n";	$env.="$envkey: $ENV{$envkey}\n";
}	}