projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Updated for YAZ 1.7. HTML output tidy up. Added LOC target.
[egate.git] / www / search.egw
diff --git a/www/search.egw b/www/search.egw
index fd25d08..e526ebd 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: search.egw,v 1.38 1996/03/13 14:07:31 adam Exp $
+# $Id: search.egw,v 1.41 2001/02/26 14:32:36 adam Exp $
 
 proc start-scan {scanNo targetNo cache dir initSet} {
     global sessionId
@@ -39,24 +39,30 @@ proc start-scan {scanNo targetNo cache dir initSet} {
             egw_log debug "z39_scan failed"
             return
         }
-        html {<a href="http:} $env(SCRIPT_NAME)
+        if {!$useIcons} {
+           html "\n | "
+        }
+        html {<a href="} $env(SCRIPT_NAME)
         html / $sessionId {/search.egw/} $setNo + $targetNo + 
         html [expr $scanNo - 1] + b {">}
         if {$useIcons} {
             html {<img src="/egwgif/button-previous-terms.gif" }
             html {alt="Next Terms" border=0></a>}
         } else {
-            html {Previous Terms</a> | }
+            html {Previous Terms</a>}
         }
 
-        html {<a href="http:} $env(SCRIPT_NAME)
+        if {!$useIcons} {
+           html "\n | "
+        }
+        html {<a href="} $env(SCRIPT_NAME)
         html / $sessionId {/search.egw/} $setNo + $targetNo +
         html [expr $scanNo + 1] + f {">}
         if {$useIcons} {
             html {<img src="/egwgif/button-next-terms.gif" }
             html {alt="Next Terms" border=0></a>}
         } else {
-            html {Next Terms</a> | }
+            html {Next Terms</a>}
         }
         html {</a>}
     }
@@ -72,7 +78,7 @@ proc start-scan {scanNo targetNo cache dir initSet} {
         set databaseDefault $hist($oSetNo,$targetNo,database)
     }
     
-    html {<form action="http:} $env(SCRIPT_NAME)
+    html {<form action="} $env(SCRIPT_NAME)
     html / $sessionId {/search.egw/} $setNo + $targetNo {+1" method=get>} \n
     set nodb [llength $databases]
     if {$nodb > 1} {
@@ -131,24 +137,30 @@ proc start-scan {scanNo targetNo cache dir initSet} {
 
     button-main
 
-    html {<a href="http:} $env(SCRIPT_NAME)
+    if {!$useIcons} {
+        html "\n | "
+    }
+    html {<a href="} $env(SCRIPT_NAME)
     html / $sessionId {/search.egw/} $setNo + $targetNo +
     html [expr $scanNo - 1] + b {">}
     if {$useIcons} {
         html {<img src="/egwgif/button-previous-terms.gif" }
         html {alt="Next Terms" border=0></a>}
     } else {
-        html {Previous Terms</a> | }
+        html {Previous Terms</a>}
     }
 
-    html {<a href="http:} $env(SCRIPT_NAME)
+    if {!$useIcons} {
+        html "\n | "
+    }
+    html {<a href="} $env(SCRIPT_NAME)
     html / $sessionId {/search.egw/} $setNo + $targetNo +
     html [expr $scanNo + 1] + f {">}
     if {$useIcons} {
         html {<img src="/egwgif/button-next-terms.gif" }
         html {alt="Next Terms" border=0></a>}
     } else {
-        html {Next Terms</a> | }
+        html {Next Terms</a>}
     }
     html {</a>}
     button-new-query $setNo
@@ -170,6 +182,10 @@ proc start-scan {scanNo targetNo cache dir initSet} {
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
+        if {![info exists debug]} {
+            session-lost
+            egw_abort
+        }
     }
     global sessionWait
     global nextSetNo
Europgate