--- /dev/null
+$Id: CHANGELOG.email,v 1.1 1996/09/03 14:06:37 adam Exp $
+
+09/03/96 Release: 1.0.
+---------------------------------------------------------------------
--- /dev/null
+$Id: CHANGELOG.web,v 1.1 1996/09/03 14:06:38 adam Exp $
+
+09/03/96 Release: 1.0.
+---------------------------------------------------------------------
+
+09/03/96 Bug fix: Extra "<li>" sometimes inserted in when displaying
+ records after piggy-back searches.
# Top level Makefile for the Email - Z39.50 gateway
# Europagate, 1995-1996.
#
-# $Id: Makefile.email,v 1.5 1996/08/28 08:33:45 adam Exp $
+# $Id: Makefile.email,v 1.6 1996/09/03 14:06:38 adam Exp $
#
SHELL=/bin/sh
MAKE=make
mkdir tmp; cd tmp; cvs export -f -D now egate
cd tmp/egate; mv README.email README
cd tmp/egate; mv Makefile.email Makefile
+ cd tmp/egate; mv CHANGELOG.email CHANGELOG
cd tmp/egate; rm -fr www
cd tmp/egate; rm *.web
cd tmp; mv egate email-z39-$(VERSION)
# Top level Makefile for the Web - Z39.50 gateway
# Europagate, 1995-1996.
#
-# $Id: Makefile.web,v 1.3 1996/08/28 08:34:23 adam Exp $
+# $Id: Makefile.web,v 1.4 1996/09/03 14:06:38 adam Exp $
#
SHELL=/bin/sh
MAKE=make
cd tmp/egate; rm zdist.patch
cd tmp/egate/www; rm *wais*.[ch]
cd tmp/egate; mv Makefile.web Makefile
+ cd tmp/egate; mv CHANGELOG.web CHANGELOG
cd tmp/egate; mv README.web README
cd tmp; mv egate web-z39-$(VERSION)
cd tmp/web-z39-$(VERSION); make taildepend
#
-# $Id: z39util.tcl,v 1.46 1996/08/28 09:36:03 adam Exp $
+# $Id: z39util.tcl,v 1.47 1996/09/03 14:06:43 adam Exp $
#
proc saveState {} {
uplevel #0 {
global env
global sessionId
- html {<li>}
set type [$zset type $no]
if {$type == "SD"} {
+ html {<li>}
set err [lindex [$zset diag $no] 1]
set add [lindex [$zset diag $no] 2]
if {$add != {}} {
if {$type != "DB"} {
return
}
+ html {<li>}
set rtype [$zset recordType $no]
switch $rtype {
SUTRS {
global env
global sessionId
- html {<li>}
set type [$zset type $no]
if {$type == "SD"} {
+ html {<li>}
set err [lindex [$zset diag $no] 1]
set add [lindex [$zset diag $no] 2]
if {$add != {}} {
if {$type != "DB"} {
return
}
+ html {<li>}
set rtype [$zset recordType $no]
switch $rtype {
SUTRS {
html {<img src="/egwgif/button-user-feedback.gif" alt="User Feedback"
border=0></a>}
} else {
+ html "\n | "
html {User Feedback</a>}
}
}
-# $Id: ztargets.conf,v 1.36 1996/08/28 09:36:04 adam Exp $
+# $Id: ztargets.conf,v 1.37 1996/09/03 14:06:44 adam Exp $
#
# This file contains the predefined targets in the WWW-Z39.50 gateway
# Each target is an entry in the associative array "targets". The
union \
]
-set targets(netsrv.casi.sti.nasa.gov:10210/GILS) {
- NASA
- WAIS
- { { Free-text {@attr 1=4} } }
- {}
- {NASA database}
- 1
- gils
-}
-
-set targets(localhost:9999/test) {
- localwais
- WAIS
- { { Free-text {@attr 1=4} } }
- {}
- {WAIS test server on localhost:9999}
- 1
- test
-}
-
-
set targets(z3950.research.att.com/z39dbs) {
Z39DB
SUTRS