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