Look for Tcl on Debian systems

diff --git a/configure.in b/configure.in
index 3b03503..7e891e8 100644 (file)
--- a/configure.in
+++ b/configure.in
@@ -1,7 +1,7 @@
 dnl IR toolkit for tcl/tk
 dnl (c) Index Data 1996-2001
 dnl See the file LICENSE for details.
-dnl $Id: configure.in,v 1.33 2001-12-03 19:23:07 adam Exp $
+dnl $Id: configure.in,v 1.34 2002-08-30 13:01:40 adam Exp $
 AC_INIT(ir-tcl.h)
 dnl ------ Substitutions
 AC_SUBST(CC)
@@ -55,6 +55,15 @@ if test "x$tclconfig" = xNONE; then
         tclconfig=${prefix}/lib
         IRCLIENT_SHELL=${prefix}/bin/wish
         prefix=${saveprefix}
+        if test ! -r ${tclconfig}/tclConfig.sh; then
+                # Not found, try search for Tcl on Debian systems.
+                for d in /usr/lib/tcl*; do
+                        if test -d $d; then
+                                tclconfig=$d
+                               IRCLIENT_SHELL=/usr/bin/wish
+                        fi
+                done
+        fi
 else
         IRCLIENT_SHELL=/usr/bin/wish
 fi

diff --git a/irtdb.tcl b/irtdb.tcl
index 95519fd..78d8324 100644 (file)
--- a/irtdb.tcl
+++ b/irtdb.tcl
@@ -358,9 +358,12 @@ set profile(LOC,queryRPN) 1
 set profile(LOC,recentNews) {}
 set profile(LOC,smallSetUpperBound) 0
 set profile(LOC,targetInfoName) {}
+set profile(LOC,targetMaxResultSets) {}
+set profile(LOC,targetMaxResultSize) {}
+set profile(LOC,targetMaxTerms) {}
 set profile(LOC,timeDefine) 983197488
 set profile(LOC,timeLastExplain) {}
-set profile(LOC,timeLastInit) 983197499
+set profile(LOC,timeLastInit) 1030712459
 set profile(LOC,welcomeMessage) {}
 set profile(LOC,windowNumber) 7
 set {profile(OCLC First Search,authentication)} {}
@@ -588,5 +591,5 @@ set profile(localhost,timeLastInit) 1007339370
 set profile(localhost,welcomeMessage) {}
 set profile(localhost,windowNumber) 13
 set queryTypes Simple
-set queryButtons {{ {I 0} {I 1} {I 2} }}
-set queryInfo {{{Title {1=4}} {Author {1=1003}}  {Subject {1=21}} {Any {1=1016}} {Abstract {1=62}}}}
+set queryButtons {{{I 0} {I 1} {I 2}}}
+set queryInfo {{{Title {1=4}} {Author 1=1003} {Subject 1=21} {Any {1=1016}} {Abstract {1=62}}}}