[Rt-commit] r5941 - in rt/branches/3.7-EXPERIMENTAL: .

[schwern at bestpractical.com]

Author: schwern
Date: Fri Sep 15 13:51:05 2006
New Revision: 5941

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Admin/Elements/Tabs

Log:
 r19176 at Master-Windhund-IV:  schwern | 2006-09-15 13:38:45 -0400
 Quiet an unint warning when there is no current tab


Modified: rt/branches/3.7-EXPERIMENTAL/html/Admin/Elements/Tabs
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Admin/Elements/Tabs	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Admin/Elements/Tabs	Fri Sep 15 13:51:05 2006
@@ -73,10 +73,12 @@
   # Now let callbacks add their extra tabs
   $m->comp('/Elements/Callback', tabs => $tabs, %ARGS);
 
-  foreach my $tab (sort keys %{$tabs}) {
-    if ($tabs->{$tab}->{'path'} eq $current_tab) {
-      $tabs->{$tab}->{"subtabs"} = $subtabs;
-      $tabs->{$tab}->{"current_subtab"} = $current_subtab;
+  if( defined $current_tab ) {
+    foreach my $tab (keys %{$tabs}) {
+      if ($tabs->{$tab}->{'path'} eq $current_tab) {
+        $tabs->{$tab}->{"subtabs"}        = $subtabs;
+        $tabs->{$tab}->{"current_subtab"} = $current_subtab;
+      }
     }
   }