From 02635bf3c98425ce22268512e15303b9258a87f5 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 10 Jul 2008 20:32:14 +0000
Subject: [PATCH] Add a logged warning for trying to fetch a non-existant tab
 by key.

---
 lib/WebGUI/TabForm.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/WebGUI/TabForm.pm b/lib/WebGUI/TabForm.pm
index ad7258797..1538eac5b 100644
--- a/lib/WebGUI/TabForm.pm
+++ b/lib/WebGUI/TabForm.pm
@@ -134,6 +134,7 @@ The name of the tab to return the form object for.
 sub getTab {
 	my $self = shift;
 	my $key = shift;
+    $self->session->log->warn('Trying to fetch non-existant tab: '.$key) if !exists $self->{_tab}{$key};
 	return $self->{_tab}{$key}{form};
 }