All tcl commands prefixed with egw_ (except the html command).

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

index 5d0bacd..ca6b893 100644 (file)
--- a/www/mtargets.egw
+++ b/www/mtargets.egw
@@ -1,8 +1,8 @@
  <html>
  {
-# $Id: mtargets.egw,v 1.8 1996/01/03 15:19:38 adam Exp $
+# $Id: mtargets.egw,v 1.11 1996/01/12 16:30:10 adam Exp $
      set setNo 1
-    source /usr/local/etc/httpd/conf/ztargets.conf
+    source ztargets.conf
      if {[info commands saveState] == ""} {
          source z39util.tcl
      }
@@ -29,12 +29,12 @@
      }
  }
  <center>
-<img src="/gif/button-egw.gif" Alt="EUROPAGATE">
+<img src="/egwgif/button-egw.gif" Alt="EUROPAGATE">
  </center>
  <h2>Choose one or more Z39.50 targets</h2>
  {
      html {<form action="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/mquery.egw/} $setNo {" method=post><br>} \n
+    html / $sessionId {/mquery.egw/} $setNo {" method=get><br>} \n
      html "<dl>\n"
      foreach t [array names targets] {
          html {<dt>} [ lindex $targets($t) 0]