<html>
-<head>
-<title> WWW/Z39.50 Gateway Target Definition</title>
-</head>
-<body>
{
-# $Id: tform.egw,v 1.3 1996/01/26 15:50:11 adam Exp $
+# $Id: tform.egw,v 1.7 1996/08/28 09:36:03 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
+ if {![info exists debug]} {
+ session-lost
+ egw_abort
+ }
}
+ html {<head><title>WWW/Z39.50 Gateway Target Definition</title>}
+ html {</head><body>}
+
set useIcons 1
- button-europagate
- button-new-target 0
+ button-main
+ button-new-target
html "<h2>Target definition form</h2><br>\n"
html {<form action="http:} $env(SCRIPT_NAME)
html "i.e. passwords. Leave this field empty if no authentication "
html "string is required.</font>"
+ html "\n<dt>Record type:\n"
+ html {<dd><select name="recordtype">}
+ html {<option> USmarc} \n
+ html {<option> SUTRS} \n
+ html {<option> UNImarc} \n
+ html {<option> UKmarc} \n
+ html {<option> Danmarc} \n
+ html {<option> Normarc} \n
+ html {<option> Librismarc} \n
+ html {</select>}
+ html "\n<br><font size=2>The "
+ html "other formats apply to Z39.50 servers</font>"
+
html "\n<dt>Databases\n"
html {<dd><textarea rows=3 cols=55 name="databases"></textarea>}
html "\n<br><font size=2>Separate each database by blanks</font>"
html "\n<br>\n"
set useIcons 0
- button-europagate
- button-new-target 0
+ button-main
+ button-new-target
}
-</body></html>
\ No newline at end of file
+</body></html>