Mailing List Archive

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);
_______________________________________________
Rt-commit mailing list
Rt-commit@lists.bestpractical.com
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-commit