[Rt-commit] [svn] r1408 - rtir/branches/1.1/html/RTIR/Elements

[leira at pallas.eruditorum.org]

Author: leira
Date: Thu Sep  2 19:00:24 2004
New Revision: 1408

Modified:
   rtir/branches/1.1/html/RTIR/Elements/QueueTabs
Log:
BulkReject gets subtabs, too.


Modified: rtir/branches/1.1/html/RTIR/Elements/QueueTabs
==============================================================================
--- rtir/branches/1.1/html/RTIR/Elements/QueueTabs	(original)
+++ rtir/branches/1.1/html/RTIR/Elements/QueueTabs	Thu Sep  2 19:00:24 2004
@@ -33,6 +33,10 @@
     QueryString => $QueryString,
 &> 
 
+current_toptab: <% $current_toptab %><br>
+current_tab: <% $current_tab %><br>
+current_subtab: <% $current_subtab %><br>
+
 <%INIT>
 
 my ($Type, undef) = $m->comp('/RTIR/Elements/Type', Queue => $QueueName);
@@ -217,12 +221,15 @@
                  subtabs   => $searchtabs };
 
 if ($Type eq 'Report') {
-$tabs->{"h"} = { path      => 'RTIR/Report/BulkReject.html',
-                 title     => loc('Bulk Reject'),
-                 separator => 1 };
-}
+    $tabs->{"h"} = { path      => 'RTIR/Report/BulkReject.html',
+		     title     => loc('Bulk Reject'),
+		     separator => 1 };
+
+    if ( $tabs->{'h'}->{'path'} eq $current_tab ) {
+	$tabs->{'h'}->{"subtabs"}        = $subtabs;
+    }
 
-if ($Type eq 'Incident' && $ChildObj) {
+} elsif ($Type eq 'Incident' && $ChildObj) {
     my $childq = $ChildObj->QueueObj->Name;
     next if $childq eq 'Incidents';
     my ($childtype, undef) = $m->comp('/RTIR/Elements/Type', Queue => $childq);