From 9d52dc75764a7d6c0bd6d3b2f1a7767282e0eb36 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 13 Dec 2002 05:18:55 +0000
Subject: [PATCH] Fixed typo.

---
 lib/WebGUI/ErrorHandler.pm | 26 ++++++++++++++++++--------
 1 file changed, 18 insertions(+), 8 deletions(-)

diff --git a/lib/WebGUI/ErrorHandler.pm b/lib/WebGUI/ErrorHandler.pm
index dd905ec6a..625f2f29c 100644
--- a/lib/WebGUI/ErrorHandler.pm
+++ b/lib/WebGUI/ErrorHandler.pm
@@ -79,14 +79,24 @@ sub fatalError {
 	} else {
 		print '<h3>Session Variables</h3><table bgcolor="#ffffff" style="color: #000000; font-size: 10pt; font-family: helvetica;">';
         	while (my ($section, $hash) = each %session) {
-        		while (my ($key, $value) = each %$hash) {
-                		if (ref $value eq 'ARRAY') {
-                        		$value = '['.join(', ',@$value).']';
-                       	 	} elsif (ref $value eq 'HASH') {
-                                	$value = '{'.join(', ',map {"$_ => $value->{$_}"} keys %$value).'}';
-                        	}
-                        	print '<tr><td align="right"><b>'.$section.'.'.$key.':</b></td><td>'.$value.'</td>';
-                	}
+			if (ref $hash eq 'HASH') {
+                                while (my ($key, $value) = each %$hash) {
+                                        if (ref $value eq 'ARRAY') {
+                                                $value = '['.join(', ',@$value).']';
+                                        } elsif (ref $value eq 'HASH') {
+                                                $value = '{'.join(', ',map {"$_ => $value->{$_}"} keys %$value).'}';
+                                        }
+                                        unless (lc($key) eq "password" || lc($key) eq "identifier") {
+                                                print '<tr><td align="right"><b>'.$section.'.'.$key.':</b></td><td>'.$value.'</td>';
+                                        }
+                                }
+                        } elsif (ref $hash eq 'ARRAY') {
+                                my $i = 1;
+                                foreach (@$hash) {
+                                        $debug .= '<tr><td align="right"><b>'.$section.'.'.$i.':</b></td><td>'.$_.'</td>';
+                                        $i++;
+                                }
+                        }
                 	print '<tr height=10><td>&nbsp;</td><td>&nbsp</td></tr>';
         	}
         	print '</table>';