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

[leira at pallas.eruditorum.org]

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 at 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>