Added new targets.
authorAdam Dickmeiss <adam@indexdata.dk>
Mon, 12 Feb 1996 13:39:40 +0000 (13:39 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Mon, 12 Feb 1996 13:39:40 +0000 (13:39 +0000)
Bug fix: display of records fetched in result set list was sometimes wrong.

www/egw.res
www/search.egw
www/z39util.tcl
www/ztargets.conf

index 2b33294..6cbc358 100644 (file)
@@ -1,12 +1,12 @@
 # WWW-Z39.50 Gateway configuration file
 #
-# $Id: egw.res,v 1.1 1996/02/12 10:10:28 adam Exp $
+# $Id: egw.res,v 1.2 1996/02/12 13:39:40 adam Exp $
 
 # FIFO file directory
 fifo.dir: /tmp/egw
 
 # Idle time in seconds before the shell terminates
-timeout: 30
+timeout: 120
 
 # Log level
 log.level: default
index eed24c0..eabe4b9 100644 (file)
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: search.egw,v 1.31 1996/01/26 15:50:08 adam Exp $
+# $Id: search.egw,v 1.32 1996/02/12 13:39:40 adam Exp $
 
 proc start-scan {scanNo cache dir initSet} {
     global sessionId
@@ -343,8 +343,8 @@ proc buttons {setNo setMax startPos after} {
         buttons $setNo $setMax $startPos 0
 
         set setOffset [z39.$setNo numberOfRecordsReturned]
-        if {$setOffset > 0} {
-            html {<h3> Records 1-} $setOffset " out of $r</h3>\n"
+        if {$setMax > 0} {
+            html {<h3> Records 1-} $setMax " out of $r</h3>\n"
         } else {
             html "<h3> No hits</h3>\n"
         }
index 451fb70..59131ff 100644 (file)
@@ -1,5 +1,5 @@
 #
-# $Id: z39util.tcl,v 1.29 1996/01/31 15:56:37 adam Exp $
+# $Id: z39util.tcl,v 1.30 1996/02/12 13:39:41 adam Exp $
 #
 proc saveState {} {
     uplevel #0 {
@@ -104,7 +104,7 @@ proc display-brief {zset no tno} {
        set location [$zset getMarc $no field 260 * a] 
        set publisher [$zset getMarc $no field 260 * b]
         set year [$zset getMarc $no field 260 * c]
-    } ] } {
+    } dispError ] } {
         html { <a href="http:} $env(SCRIPT_NAME) /
         html $sessionId {/showfull.egw/} $setNo + $tno + $no + full {">}
         set p 0
@@ -140,12 +140,22 @@ proc display-brief {zset no tno} {
         if {$nope} {
             set v [join $cover ""]
             if {[string length $v] > 40} {
+                set nope 0
                 html [string range $v 0 38] "..."
-            } else {
+            } elseif {[string length $v] > 0} {
+                set nope 0
                 html $v
+            } else {
+                html "No Title"
             }
        }
         html {</a> }
+    } else {
+        html { <a href="http:} $env(SCRIPT_NAME) /
+        html $sessionId {/showfull.egw/} $setNo + $tno + $no + full {">}
+        html {No Title}
+        html {</a> }
+        html "Error: " $dispError "\n"
     }
     html "<br>\n"
 }
index 955c1b7..c978605 100644 (file)
@@ -1,4 +1,24 @@
-# $Id: ztargets.conf,v 1.21 1996/01/29 17:31:49 adam Exp $
+# $Id: ztargets.conf,v 1.22 1996/02/12 13:39:41 adam Exp $
+#
+# This file contains the predefined targets in the WWW-Z59.50 gateway
+# Each target is an entry in associative array "targets". The
+# targets array is indexed by hostname followed by a dot and a descriptor.
+# The descriptor should be the local database name (without dots in it).
+
+# Each entry consists of 6 fields. They are:
+#  1      Short-hand notaton for the target/target. Specify whatever you
+#         think is appropriate
+#  2      Database list (one or more databases in list notation)
+#  3      Search fields and their mapping to Bib-1
+#  4      Authentication string; an empty string indicates
+#         "no authentication".
+#  5      A longer description of the target/databases and what data the
+#         server offers
+#  6      Flag that indicates whether the target support B/F element
+#         specifications. Use 1 for true; 0 for false.
+
+# This is a list of common fields used by some of the targets (frankly, we
+# have little or no idea of what attributes the targets support).
 set commonFields {
  { Title {@attr 1=4} }
  { Author {@attr 1=1} }
@@ -75,9 +95,9 @@ set targets(dallas.ucd.ie:7777.danbib) {
     0 
 }
 
-set targets(dtbsun.dtv.dk:9999.usgs-esdd-cd_rom-uah-www_dk) {
+set targets(dtbsun.dtv.dk:9999.usgs-esdd-uah) {
     Zebra
-    {usgs esdd cd_rom iah www_dk} 
+    {usgs esdd iah}
  {
  { Title {@attr 1=4} }
  { Author {@attr 1=1003} }
@@ -88,7 +108,11 @@ set targets(dtbsun.dtv.dk:9999.usgs-esdd-cd_rom-uah-www_dk) {
  { Ranked {@attr 1=1016 @attr 4=105} }
  }
     {}
-    {New Zebra Z39.50 Server in alpha-test} 
+    {New Zebra Z39.50 test server with GILS records. Databases: <br>
+     usgs: sample of USGS data directory <br>
+     esdd: additional Earch Science Data Directory records <br>
+     uah: data directory for the International Association of Hydrologists <br>
+    }
     1
 }
 
@@ -106,7 +130,43 @@ set targets(dranet.dra.com.drewdb) [list \
     drewdb \
     $commonFields \
     {} \
-    {Data Research Z39.50 Server} \
+    {Sample database of 400,000 bibliographic records from Drew University} \
+    1 \
+]
+
+set targets(libcat1.cc.emory.edu.UNICORN) [list \
+    Emory \
+    UNICORN \
+    $commonFields \
+    {} \
+    {Emory University} \
+    0 \
+]
+
+set targets(161.253.225.10.UNICORN) [ list \
+    GWUW \
+    UNICORN \
+    $commonFields \
+    {} \
+    {George Washington University} \
+    0 \
+]
+
+set targets(IBM2.LOC.GOV:2210.BOOKS) [ list \
+    LOC \
+    BOOKS \
+    $commonFields \
+    {} \
+    {Library of Congress: Production file of monograph (book) records} \
+    1 \
+]
+
+set targets(IBM2.LOC.GOV:2210.NAMES) [ list \
+    LOC \
+    NAMES \
+    $commonFields \
+    {} \
+    {Library of Congress: Production file of name authority records} \
     1 \
 ]
 
@@ -119,3 +179,21 @@ set targets(localhost:210.Default) [list \
     0 \
 ]
 
+set targets(199.92.147.99.UNICORN) [list \
+    Baystate \
+    UNICORN \
+    $commonFields \
+    {} \
+    {Baystate Medical Center} \
+    0 \
+]
+
+set targets(Tikal.dev.oclc.org.AGRICOLA) [list \
+    AGRICOLA \
+    AGRICOLA \
+    $commonFields \
+    {} \
+    {OCLC-FirstSearch: AGRICOLA} \
+    1 \
+]
+