[Rt-commit] r9867 - rt/branches/3.6-EXPERIMENTAL-ABERDEEN/html/Elements

[audreyt at bestpractical.com]

Author: audreyt
Date: Mon Dec 10 12:49:28 2007
New Revision: 9867

Modified:
   rt/branches/3.6-EXPERIMENTAL-ABERDEEN/html/Elements/SelectLinkType

Log:
* SelectLinkType: Handle $Default.
  (But is this element really used anywhere?)

Modified: rt/branches/3.6-EXPERIMENTAL-ABERDEEN/html/Elements/SelectLinkType
==============================================================================
--- rt/branches/3.6-EXPERIMENTAL-ABERDEEN/html/Elements/SelectLinkType	(original)
+++ rt/branches/3.6-EXPERIMENTAL-ABERDEEN/html/Elements/SelectLinkType	Mon Dec 10 12:49:28 2007
@@ -45,17 +45,13 @@
 %# those contributions and any derivatives thereof.
 %# 
 %# END BPS TAGGED BLOCK }}}
-<select NAME ="<%$Name%>">
-<option value="MemberOf"><&|/l&>Member of</&></option>
-<option value="DependsOn"><&|/l&>Depends on</&></option>
-<option value="RefersTo"><&|/l&>Refers to</&></option>
+<select name="<%$Name%>">
+<option <% ($Default eq 'MemberOf') ? 'SELECTED' : '' %> value="MemberOf"><&|/l&>Member of</&></option>
+<option <% ($Default eq 'DependsOn') ? 'SELECTED' : '' %> value="DependsOn"><&|/l&>Depends on</&></option>
+<option <% ($Default eq 'RefersTo') ? 'SELECTED' : '' %> value="RefersTo"><&|/l&>Refers to</&></option>
 </select>
 
 <%ARGS>
 $Name => "LinkType"
 $Default => undef
 </%ARGS>
-
-<%INIT>
-# TODO handle Default
-</%INIT>