From f1806d943cb119b6390d48b527db9da27af6dadc Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@webgui-svn>
Date: Tue, 28 Dec 2004 15:18:39 +0000
Subject: [PATCH] Fixing label and uiLevel.

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

diff --git a/lib/WebGUI/TabForm.pm b/lib/WebGUI/TabForm.pm
index e0880ff3f..1f408eb13 100644
--- a/lib/WebGUI/TabForm.pm
+++ b/lib/WebGUI/TabForm.pm
@@ -196,6 +196,8 @@ sub new {
 	tie %tabs, 'Tie::IxHash';
 	foreach my $key (keys %{$startingTabs}) {
 		$tabs{$key}{form} = WebGUI::HTMLForm->new;
+		$tabs{$key}{label} = $startingTabs->{$key}->{label};
+		$tabs{$key}{uiLevel} = $startingTabs->{$key}->{uiLevel};
 	}
 	my $cancel = WebGUI::Form::button({
 			value=>WebGUI::International::get('cancel'),