projects / egate.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: b443634)
Minor changes.
authorAdam Dickmeiss <adam@indexdata.dk>
Wed, 8 Nov 1995 18:07:22 +0000 (18:07 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Wed, 8 Nov 1995 18:07:22 +0000 (18:07 +0000)
www/Makefile patch | blob | history
www/mquery.egw patch | blob | history
www/msearch.egw patch | blob | history
www/mtargets.egw patch | blob | history
www/query.egw patch | blob | history
www/z39util.tcl patch | blob | history
www/ztargets.conf patch | blob | history

diff --git a/www/Makefile b/www/Makefile
index b522a08..4274f14 100644 (file)
--- a/www/Makefile
+++ b/www/Makefile
@@ -2,7 +2,10 @@
 # Europagate, 1995
 #
 # $Log: Makefile,v $
-# Revision 1.12  1995/11/08 16:14:32  adam
+# Revision 1.13  1995/11/08 18:07:22  adam
+# Minor changes.
+#
+# Revision 1.12  1995/11/08  16:14:32  adam
 # Many improvements and bug fixes.
 # First version that ran on dtbsun.
 #
@@ -50,7 +53,7 @@ SHELL=/bin/sh
 ZDEFS=
 ZINC=-I../../yaz/include
 ZLIB=../../yaz/lib/libyaz.a
-#MOSILIB=../../xtimosi/src/libmosi.a ../../yaz/lib/librfc.a
+MOSILIB=../../xtimosi/src/libmosi.a ../../yaz/lib/librfc.a
 LIBIRTCL=/usr/local/lib/libirtcl.a $(ZLIB) $(MOSILIB)
 #
 OLIB=../lib/util.a ../lib/libres+log.a 
diff --git a/www/mquery.egw b/www/mquery.egw
index 051dc91..755b77a 100644 (file)
--- a/www/mquery.egw
+++ b/www/mquery.egw
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
-# $Id: mquery.egw,v 1.2 1995/11/08 16:14:32 adam Exp $
+# $Id: mquery.egw,v 1.3 1995/11/08 18:07:22 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -21,6 +21,17 @@
         set nextSetNo 1
         set setNo 1
     }
+    if {1} {
+    set i 1
+    foreach host [array names targets] {
+        set databases [wform target$host]
+        if {$databases == ""} continue
+        html "host=$host, $databases <br>\n"
+        set hist($setNo,$i,host) $host
+        set hist($setNo,$i,database) $databases
+        incr i
+    }
+    } else {
     set hosts [wform target]
     html "hosts=$hosts <br>\n"
     set i 1
@@ -29,8 +40,9 @@
         set hist($setNo,$i,database) [lindex [lindex $targets($host) 1] 0]
         incr i
     }
-    set hist($setNo,0,host) [expr $i - 1]
     set host [lindex $hosts 0]
+    }
+    set hist($setNo,0,host) [expr $i - 1]
 }
 <hr>
 <h3>Input your search criteria: </h3> <br>
@@ -64,7 +76,7 @@ Records are shown in:
 </select>
 <br>
 <p>
-<input type="submit" value="Send Query">
+<input type=submit value="Search"><input type=reset value="Reset">
 </form>
 <hr>
 This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
diff --git a/www/msearch.egw b/www/msearch.egw
index 7f41697..c1c825a 100644 (file)
--- a/www/msearch.egw
+++ b/www/msearch.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: msearch.egw,v 1.2 1995/11/08 16:14:33 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 "<head><title> WWW/Z39.50 Gateway Search </title>\n"
+    html "</head><body>\n"
     if {[wform menu1] == ""} {
         set setNo [lindex $sessionParms 0]
     } else {
@@ -32,9 +34,6 @@
             set hist($setNo,maxPresent) 30
         }
     }
-    html "<head><title> WWW/Z39.50 Gateway Search </title>\n"
-    html "</head><body>\n"
-
     z39msearch $setNo 1
 
     html "<dl>\n"
@@ -79,7 +78,8 @@
     }
     html "form: " [wform] " <br>\n"
     html "target: " $host " <br>\n"
-    html "query: --" $hist($setNo,1,query) "-- <br>"
+    html "query: --" $hist($setNo,1,query) "-- <br>\n"
+    html "database: " $hist($setNo,1,database) "<br>\n"
     html "setNo: " $setNo " <br>\n"
     html "nextSetNo: " $nextSetNo " <br>\n"
 }
diff --git a/www/mtargets.egw b/www/mtargets.egw
index 095aa8a..3f846da 100644 (file)
--- a/www/mtargets.egw
+++ b/www/mtargets.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: mtargets.egw,v 1.3 1995/11/08 16:14:33 adam Exp $
+# $Id: mtargets.egw,v 1.4 1995/11/08 18:07:23 adam Exp $
     set setNo 1
     source /usr/local/etc/httpd/conf/ztargets.conf
     if {[info commands saveState] == ""} {
@@ -17,11 +17,21 @@
 {
     html {<form action="http:} $env(SCRIPT_NAME)
     html / $sessionId {/mquery.egw/} $setNo {" method=post><br>} \n
+    html "<dl>\n"
     foreach t [array names targets] {
-        html {<input type="checkbox" name="target" value="} $t
-        html {"> } $t \n
-        html "<br>\n"
+        html {<dt>} [ lindex $targets($t) 0]
+#        html {<input type="checkbox" name="target" value="} $t
+#        html {"> }
+        html {<dd>}
+        set databases [lindex $targets($t) 1]
+        foreach d $databases {
+            html {<input type="checkbox" name="target} $t {" } 
+            html { value="} $d {">} " $d "
+            html "<br>\n"
+        }
+        html "\n"
     }
+    html "</dl>\n"
 }
 <input type="submit" value="Select">
 </form>
diff --git a/www/query.egw b/www/query.egw
index e2f9468..152af07 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
-# $Id: query.egw,v 1.11 1995/11/08 16:14:33 adam Exp $
+# $Id: query.egw,v 1.12 1995/11/08 18:07:23 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -150,7 +150,7 @@ Records are shown in:
 </select>
 <br>
 <p>
-<input type="submit" value="Send Query">
+<input type=submit value="Search"><input type=reset value="Reset">
 </form>
 <hr>
 This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
diff --git a/www/z39util.tcl b/www/z39util.tcl
index 5c81b13..6b56df4 100644 (file)
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: z39util.tcl,v 1.4 1995/11/08 16:14:36 adam Exp $
+# $Id: z39util.tcl,v 1.5 1995/11/08 18:07:23 adam Exp $
 #
 proc saveState {} {
     uplevel #0 {
@@ -16,6 +16,10 @@ proc saveState {} {
                 eval "set v \$${var}(\$n)"
                puts $f "set ${var}($n) \{$v\}"
            }
+            catch {
+                eval "set v \$${var}"
+                puts $f "set ${var} \{$v\}"
+            }
         }
     }
     close $f
diff --git a/www/ztargets.conf b/www/ztargets.conf
index ef953d2..b8ed1d6 100644 (file)
--- a/www/ztargets.conf
+++ b/www/ztargets.conf
@@ -1,4 +1,4 @@
-# $Id: ztargets.conf,v 1.7 1995/11/08 16:14:36 adam Exp $
+# $Id: ztargets.conf,v 1.8 1995/11/08 18:07:23 adam Exp $
 set commonFields {
  { Title {@attr 1=4} }
  { Author {@attr 1=1003} }
@@ -34,7 +34,7 @@ set targets(z3950.bibsys.no:2100) [list \
     BIBSYS \
     $commonFields \
     {} \
-    {BIBSYS - norway} \
+    {BIBSYS - Norway} \
 ]
 
 set targets(dtbsun.dtv.dk:4500) [list \
@@ -55,7 +55,7 @@ set targets(dtbsun.dtv.dk:210) [list \
       { All {@attr 1=1016} } \
     } \
     {<<danbib>>} \
-    {SR Target DanBib trough the Europagate gateway} \
+    {SR Target DanBib through the Europagate gateway} \
 ]
 
 set targets(localhost:9999) [list \
Europgate