[prev in list] [next in list] [prev in thread] [next in thread] 

List:       rt-commit
Subject:    [Rt-commit] [svn] r1591 - rtir/branches/1.1-TESTING/html/RTIR/Tools
From:       leira () pallas ! eruditorum ! org
Date:       2004-09-30 2:44:16
Message-ID: 20040930024416.BE8FD84C00F () pallas ! eruditorum ! org
[Download RAW message or body]

Author: leira
Date: Wed Sep 29 22:44:16 2004
New Revision: 1591

Modified:
   rtir/branches/1.1-TESTING/html/RTIR/Tools/Lookup.html
Log:
Make sure $server variable is set correctly.


Modified: rtir/branches/1.1-TESTING/html/RTIR/Tools/Lookup.html
==============================================================================
--- rtir/branches/1.1-TESTING/html/RTIR/Tools/Lookup.html	(original)
+++ rtir/branches/1.1-TESTING/html/RTIR/Tools/Lookup.html	Wed Sep 29 22:44:16 2004
@@ -177,10 +177,16 @@
 my $TicketType;
 my $TicketObj;
 #  {{{ Set up the whois query
-foreach my $s (sort keys %$servers) {
-  # just pick the first one
-  $server = $servers->{$s} unless ($server);
-  last;
+if (!$server) {
+  foreach my $s (sort keys %$servers) {
+    # just pick the first one
+    if (ref($servers->{$s}) eq 'HASH') {
+        $server = $servers->{$s}->{'Host'} unless ($server);
+    } else {
+        $server = $servers->{$s} unless ($server);
+    }
+    last;
+  }
 }
 
 $beauty = ( exists($beauties->{ ({ reverse %$servers }->{$server}) })
_______________________________________________
Rt-commit mailing list
Rt-commit@lists.bestpractical.com
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-commit
[prev in list] [next in list] [prev in thread] [next in thread]