Mailing List Archive

Author: leira
Date: Mon Sep 6 23:21:59 2004
New Revision: 1427

Added:
rtir/branches/1.1/html/RTIR/Incident/Elements/LinkTabs
Log:
Should have been added with last big checkin.


Added: rtir/branches/1.1/html/RTIR/Incident/Elements/LinkTabs
==============================================================================
--- (empty file)
+++ rtir/branches/1.1/html/RTIR/Incident/Elements/LinkTabs Mon Sep 6 23:21:59 2004
@@ -0,0 +1,61 @@
+%# BEGIN LICENSE BLOCK
+%#
+%# Copyright (c) 1996-2002 Jesse Vincent <jesse@bestpractical.com>
+%#
+%# (Except where explictly superceded by other copyright notices)
+%#
+%# This work is made available to you under the terms of Version 2 of
+%# the GNU General Public License. A copy of that license should have
+%# been provided with this software, but in any event can be snarfed
+%# from www.gnu.org
+%#
+%# This work is distributed in the hope that it will be useful, but
+%# WITHOUT ANY WARRANTY; without even the implied warranty of
+%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+%# General Public License for more details.
+%#
+%#
+%# Unless otherwise specified, all modifications, corrections or
+%# extensions to this work which alter its source code become the
+%# property of Best Practical Solutions, LLC when submitted for
+%# inclusion in the work.
+%#
+%#
+%# END LICENSE BLOCK
+% if (defined $Ticket) {
+<& /RTIR/Incident/Elements/Tabs,
+ Ticket => $Ticket,
+ current_tab => $current_tab,
+ current_subtab => $current_subtab,
+ appendtabs => $subtabs,
+ Title => $Title &>
+% } else {
+<& '/RTIR/' . $Type . '/Elements/Tabs',
+ current_tab => $current_tab,
+ current_subtab => $current_subtab,
+ appendtabs => $subtabs,
+ Title => $Title &>
+% }
+
+<%INIT>
+my $subtabs;
+my $Type;
+if ($Ticket && $Tab) {
+ ($Type, undef) = $m->comp('/RTIR/Elements/Type', Queue => $Queue);
+
+ $subtabs = {
+ _I => { path => $current_subtab,
+ title => $Tab },
+ };
+}
+
+</%INIT>
+
+<%ARGS>
+$Ticket => undef
+$current_tab => undef
+$current_subtab => undef
+$Title => undef
+$Queue => undef
+$Tab => undef
+</%ARGS>
_______________________________________________
Rt-commit mailing list
Rt-commit@lists.bestpractical.com
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-commit