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

[leira at pallas.eruditorum.org]

Author: leira
Date: Thu Sep  2 18:52:52 2004
New Revision: 1405

Added:
   rtir/branches/1.1/html/RTIR/Search/Elements/RefineTabs
Log:
An element for adding a "Refine" submenu to a menu.


Added: rtir/branches/1.1/html/RTIR/Search/Elements/RefineTabs
==============================================================================
--- (empty file)
+++ rtir/branches/1.1/html/RTIR/Search/Elements/RefineTabs	Thu Sep  2 18:52:52 2004
@@ -0,0 +1,22 @@
+<& '/RTIR/'.$Type.'/Elements/Tabs', 
+    subtabs => $refinetabs,
+    %ARGS
+&>
+
+path: <%$path%><br>
+
+<%INIT>
+my ($Type, undef) = $m->comp("/RTIR/Elements/Type", Queue => $Queue);
+
+my $refinetabs = { };
+
+$refinetabs->{'_a'} = {
+    class => "nav",
+    path => $path,
+    title => loc('Refine') };
+</%INIT>
+	
+<%ARGS>
+$path => undef
+$Queue => undef
+</%ARGS>