<html>
{
-# $Id: tform.egw,v 1.6 1996/03/14 11:50:50 adam Exp $
+# $Id: tform.egw,v 1.8 2001/02/26 14:32:36 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
button-new-target
html "<h2>Target definition form</h2><br>\n"
- html {<form action="http:} $env(SCRIPT_NAME)
+ html {<form action="} $env(SCRIPT_NAME)
html / $sessionId {/tdefine.egw} {" method=post>} \n
html "<dl>"
html "\n<dt>Record type:\n"
html {<dd><select name="recordtype">}
html {<option> USmarc} \n
- html {<option> WAIS} \n
html {<option> SUTRS} \n
html {<option> UNImarc} \n
html {<option> UKmarc} \n
html {<option> Normarc} \n
html {<option> Librismarc} \n
html {</select>}
- html "\n<br><font size=2>Select WAIS for a WAIS server. The "
+ html "\n<br><font size=2>The "
html "other formats apply to Z39.50 servers</font>"
html "\n<dt>Databases\n"
button-main
button-new-target
}
-</body></html>
\ No newline at end of file
+</body></html>