[Rt-commit] [svn] r1653 - rtir/branches/1.1-TESTING/html/RTIR/Tools

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Fri Oct 15 00:10:21 2004
New Revision: 1653

Modified:
   rtir/branches/1.1-TESTING/html/RTIR/Tools/ScriptedAction.html
Log:
Fixed whois server lookup un the "Scripted Action" tool.

Modified: rtir/branches/1.1-TESTING/html/RTIR/Tools/ScriptedAction.html
==============================================================================
--- rtir/branches/1.1-TESTING/html/RTIR/Tools/ScriptedAction.html	(original)
+++ rtir/branches/1.1-TESTING/html/RTIR/Tools/ScriptedAction.html	Fri Oct 15 00:10:21 2004
@@ -65,12 +65,21 @@
     <td class=input>
       <select name="server">
 % foreach my $s (sort keys %{$servers}) {
-% next unless $servers->{$s};
+% my ($host, $name);
+% my $srv = $servers->{$s};
+% next unless $srv;
+% if (ref($srv) eq 'HASH') {
+% $host = $srv->{'Host'};
+% $name = $srv->{'FriendlyName'};
+% } else {
+% $host = $srv;
+% }
+% next unless $srv;
 % my $selected = "";
 % if ($servers->{$s} eq $server) {
 %   $selected = " SELECTED";
 % }
-        <option value="<%$servers->{$s}%>"<%$selected%>><%$servers->{$s}%></option>
+        <option value="<%$host%>"<%$selected%>><%$name || $host%></option>
 % }
       </select>
   </tr>