Updated for YAZ 1.7. HTML output tidy up. Added LOC target.

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

index e3bb9dd..8fd11f2 100644 (file)
--- a/www/mtargets.egw
+++ b/www/mtargets.egw
@@ -1,11 +1,8 @@
  <html>
  {
-# $Id: mtargets.egw,v 1.19 1996/03/13 14:07:30 adam Exp $
+# $Id: mtargets.egw,v 1.24 2001/02/26 14:32:36 adam Exp $
      set setNo 1
      source ztargets.conf
-    if {[info commands saveState] == ""} {
-        source z39util.tcl
-    }
      if {![info exists debug]} {
          if {[lindex $sessionParms 1] == "1"} {
              set debug 1
@@ -13,6 +10,9 @@
              set debug 0
          }
      }
+    if {[info commands saveState] == ""} {
+        source z39util.tcl
+    }
      set html3 [lindex $sessionParms 0]
      if {[string length $html3] == 0} {
          if {![info exists env(HTTP_USER_AGENT)]} {
@@ -36,10 +36,11 @@
  
      set useIcons 1
      button-main
+    button-feedback
      button-define-target
  
      html "<h2>Choose one or more targets</h2>\n"
-    html {<form action="http:} $env(SCRIPT_NAME)
+    html {<form action="} $env(SCRIPT_NAME)
      html / $sessionId / $scriptQuery {;/} -1 {" method=get><br>} \n
      html "<dl>\n"
  
@@ -48,7 +49,7 @@
      }
      proc targetC {t} {
          global targets
-        html {<dt><b>} [ lindex $targets($t) 0]
+        html {<dt><b>} [lindex $targets($t) 0]
          html {</b>: }
          set databases [splitDatabaseSpec $t]
          
@@ -71,6 +72,7 @@
      html "<p>\n"
      set useIcons 0
      button-main
+    button-feedback
      button-define-target
  }