projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Many improvements and bug fixes.
[egate.git] / www / search.egw
diff --git a/www/search.egw b/www/search.egw
index ebd2e66..21af854 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: search.egw,v 1.10 1995/11/08 12:42:17 adam Exp $
+# $Id: search.egw,v 1.11 1995/11/08 16:14:33 adam Exp $
 
 proc buttons {setNo setMax startPos} {
     global sessionId
@@ -9,12 +9,12 @@ proc buttons {setNo setMax startPos} {
 
     html "<p>\n"
     if {$setMax < [z39.$setNo resultCount]} {
-        html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+        html {<a href="http:} $env(SCRIPT_NAME)
         html / $sessionId {/search.egw/} $setNo + [expr $setMax + 1]
         html + [expr $setMax + $hist($setNo,maxPresent)] {"> Next </a>} "| \n"
     }
     if {$startPos != "" && $startPos != "1"} {
-        html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+        html {<a href="http:} $env(SCRIPT_NAME)
         html / $sessionId {/search.egw/} $setNo 
         if {[expr $startPos - $hist($setNo,maxPresent)] > 1} {
             html + [expr $startPos - $hist($setNo,maxPresent)]
@@ -22,9 +22,9 @@ proc buttons {setNo setMax startPos} {
         }
         html {"> Prev </a>} "| \n"
     }
-    html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+    html {<a href="http:} $env(SCRIPT_NAME)
     html / $sessionId {/targets.egw"> New target </a>} " | \n"
-    html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+    html {<a href="http:} $env(SCRIPT_NAME)
     html / $sessionId {/query.egw/} $hist($setNo,host) + $setNo 
     html {"> New query </a>} "<p>\n"
 }
@@ -37,13 +37,12 @@ proc buttons {setNo setMax startPos} {
     global setNo
     global hist
 
-    set oldHost $hist($setNo,host)
-
     if {[wform menu1] == ""} {
         set setNo [lindex $sessionParms 0]
     } else {
         if {![info exists hist($nextSetNo,host)]} {
-           set hist($nextSetNo,host) $oldHost
+            set hist($nextSetNo,idAuthentication) $hist($setNo,idAuthentication)
+            set hist($nextSetNo,host) $hist($setNo,host)
         }
         set setNo $nextSetNo
         html "using host " $hist($setNo,host) " <br\n"
Europgate