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"; |
} |
} |
|
|