X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fmsearch.egw;h=c1c825a95bd71a97d09b571e8b1d3e470458972f;hb=3d4b6045b8875099666b99edbf1457c91b5da928;hp=1d1238ec3e656ffda0f9c048cb85ef724211ac08;hpb=6e37e8e91bf35cb14c930e8988085cf78f11029a;p=egate.git
diff --git a/www/msearch.egw b/www/msearch.egw
index 1d1238e..c1c825a 100644
--- a/www/msearch.egw
+++ b/www/msearch.egw
@@ -1,6 +1,6 @@
{
-# $Id: msearch.egw,v 1.1 1995/11/07 14:56:58 adam Exp $
+# $Id: msearch.egw,v 1.3 1995/11/08 18:07:22 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
@@ -11,6 +11,8 @@
global hist
global zstatus
+ html " WWW/Z39.50 Gateway Search \n"
+ html "\n"
if {[wform menu1] == ""} {
set setNo [lindex $sessionParms 0]
} else {
@@ -32,9 +34,6 @@
set hist($setNo,maxPresent) 30
}
}
- html " WWW/Z39.50 Gateway Search \n"
- html "\n"
-
z39msearch $setNo 1
html "\n"
@@ -63,9 +62,9 @@
{
- html { New target } " | \n"
- html { New query }
}
@@ -79,7 +78,8 @@
}
html "form: " [wform] "
\n"
html "target: " $host "
\n"
- html "query: --" $hist($setNo,1,query) "--
"
+ html "query: --" $hist($setNo,1,query) "--
\n"
+ html "database: " $hist($setNo,1,database) "
\n"
html "setNo: " $setNo "
\n"
html "nextSetNo: " $nextSetNo "
\n"
}