From a124021540d0bb0854668f509b28921b771c70fd Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Mon, 12 Feb 1996 13:39:40 +0000 Subject: [PATCH] Added new targets. Bug fix: display of records fetched in result set list was sometimes wrong. --- www/egw.res | 4 +-- www/search.egw | 6 ++-- www/z39util.tcl | 16 ++++++++-- www/ztargets.conf | 88 ++++++++++++++++++++++++++++++++++++++++++++++++++--- 4 files changed, 101 insertions(+), 13 deletions(-) diff --git a/www/egw.res b/www/egw.res index 2b33294..6cbc358 100644 --- a/www/egw.res +++ b/www/egw.res @@ -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 diff --git a/www/search.egw b/www/search.egw index eed24c0..eabe4b9 100644 --- a/www/search.egw +++ b/www/search.egw @@ -1,6 +1,6 @@ { -# $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 {

Records 1-} $setOffset " out of $r

\n" + if {$setMax > 0} { + html {

Records 1-} $setMax " out of $r

\n" } else { html "

No hits

\n" } diff --git a/www/z39util.tcl b/www/z39util.tcl index 451fb70..59131ff 100644 --- a/www/z39util.tcl +++ b/www/z39util.tcl @@ -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 { } 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 { } + } else { + html { } + html {No Title} + html { } + html "Error: " $dispError "\n" } html "
\n" } diff --git a/www/ztargets.conf b/www/ztargets.conf index 955c1b7..c978605 100644 --- a/www/ztargets.conf +++ b/www/ztargets.conf @@ -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:
+ usgs: sample of USGS data directory
+ esdd: additional Earch Science Data Directory records
+ uah: data directory for the International Association of Hydrologists
+ } 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 \ +] + -- 1.7.10.4