From 0d7108cd3425504a09522f915dda5c9158443084 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Fri, 12 Jan 1996 13:08:28 +0000 Subject: [PATCH] Work on scan. --- www/query.egw | 16 ++++++++++------ www/search.egw | 11 +++++++++-- www/z39util.tcl | 25 +++++++++++++++++++++++-- 3 files changed, 42 insertions(+), 10 deletions(-) diff --git a/www/query.egw b/www/query.egw index cad8e7a..a8db8ff 100644 --- a/www/query.egw +++ b/www/query.egw @@ -4,7 +4,7 @@ { -# $Id: query.egw,v 1.27 1996/01/12 10:03:17 adam Exp $ +# $Id: query.egw,v 1.28 1996/01/12 13:08:28 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl @@ -156,13 +156,13 @@ proc ok-response {} { if {[string length $template] > 0} { html { value="} $template {"} } - html { size=35> } - if {[lsearch [z39 options] scan] >= 0} { - html {} + html { size=45> } + if {0 && [lsearch [z39 options] scan] >= 0} { + html {} } html "
\n" if {$no < 3} { - html {} \n set template {} if {$oSetNo > 0} { set template [join $hist($oSetNo,form,logic$no) " "] @@ -174,7 +174,7 @@ proc ok-response {} { if {$template == $op} continue html "