Uses string compare instead of !=/== when possible.

[egate.git] / www / query.egw
diff --git a/www/query.egw b/www/query.egw

index f68a696..1d339f2 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
  </head>
  <body>
  {
-# $Id: query.egw,v 1.32 1996/01/26 15:50:08 adam Exp $
+# $Id: query.egw,v 1.33 1996/02/21 16:57:38 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -47,7 +47,7 @@ proc ok-response {} {
      z39 callback ok-response
      z39 failback fail-response
      set thisHost [splitHostSpec $host]
-    if {$thisHost != $oldHost} {
+    if {[string compare $thisHost $oldHost]} {
          catch {z39 disconnect}
  
          set sessionWait 0