From 59abc1231f5f301baae118d473ce17c210a4a698 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 10 Jul 2008 20:34:09 +0000
Subject: [PATCH] fix getEditTabs reference code, and then make Sku and CS to
 be in the same style

---
 lib/WebGUI/Asset.pm                       |  2 +-
 lib/WebGUI/Asset/Sku.pm                   |  2 +-
 lib/WebGUI/Asset/Wobject/Collaboration.pm | 10 ++++++++--
 3 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index ad807d20b..ccfed90fe 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -872,7 +872,7 @@ Please see the example below for adding 1 tab.
     sub getEditTabs {
         my $self = shift;
         my $i18n = WebGUI::International->new($self->session,"myNamespace");
-        return (['myTab', $i18n->get('myTabName'), 9]);
+        return ($self->SUPER::getEditTabs, ['myTab', $i18n->get('myTabName'), 9]);
     }
 
 =cut
diff --git a/lib/WebGUI/Asset/Sku.pm b/lib/WebGUI/Asset/Sku.pm
index 6a6abdbf5..8ae6b3bdf 100644
--- a/lib/WebGUI/Asset/Sku.pm
+++ b/lib/WebGUI/Asset/Sku.pm
@@ -197,7 +197,7 @@ Not to be modified, just defines a new tab.
 sub getEditTabs {
 	my $self = shift;
 	my $i18n = WebGUI::International->new($self->session,"Asset_Sku");
-	return (['shop', $i18n->get('shop'), 9]);
+	return ($self->SUPER::getEditTabs(), ['shop', $i18n->get('shop'), 9]);
 }
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/Wobject/Collaboration.pm b/lib/WebGUI/Asset/Wobject/Collaboration.pm
index 43aa4285e..6529c6ee9 100644
--- a/lib/WebGUI/Asset/Wobject/Collaboration.pm
+++ b/lib/WebGUI/Asset/Wobject/Collaboration.pm
@@ -816,11 +816,17 @@ sub getContentLastModified {
 }
 
 #-------------------------------------------------------------------
+
+=head2 getEditTabs
+
+Add a tab for the mail interface.
+
+=cut
+
 sub getEditTabs {
 	my $self = shift;
 	my $i18n = WebGUI::International->new($self->session,"Asset_Collaboration");
-
-	return (['mail', $i18n->get('mail'), 9]);
+	return ($self->SUPER::getEditTabs(), ['mail', $i18n->get('mail'), 9]);
 }
 
 #-------------------------------------------------------------------