--- loncom/interface/lontest.pm 2001/01/03 18:54:04 1.1
+++ loncom/interface/lontest.pm 2001/01/06 17:15:22 1.2
@@ -21,13 +21,15 @@ use Apache::Constants qw(:common :http);
$->print("
Debugging
\n");
+ my $i=0;
foreach $envkey (sort keys %ENV) {
$r->print("$envkey ---- $ENV{$envkey}
");
+ $i++;
}
+
+ $r->print('Total Number of Elements: '.$i.'
');
# ------------------------------------------------------------------- End Debug
-
-
$r->print('