Better check for Tcl on Debian

diff --git a/CHANGELOG b/CHANGELOG
index b723522..f0d6748 100644 (file)
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,4 +1,6 @@
 
+--- 1.3.2 2002/09/02
+
 Fix MARC transfer . MARC fields had wrong data for multiple fields.
 
 XML record reader moved from YAZ to Zebra, to make YAZ less 

diff --git a/configure.in b/configure.in
index 9f77f07..4b1c309 100644 (file)
--- a/configure.in
+++ b/configure.in
@@ -1,5 +1,5 @@
 dnl Zebra, Index Data Aps, 1995-2002
-dnl $Id: configure.in,v 1.44 2002-08-29 14:04:45 mike Exp $
+dnl $Id: configure.in,v 1.45 2002-09-02 11:19:33 adam Exp $
 dnl
 AC_INIT(include/zebraver.h)
 AM_INIT_AUTOMAKE(zebra,1.3.1)
@@ -86,7 +86,7 @@ if test "x$tclconfig" = xNONE; then
        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
+                       if test -f $d/tclConfig.sh; then
                                tclconfig=$d
                        fi
                done

diff --git a/recctrl/recgrs.c b/recctrl/recgrs.c
index 58ad1bb..644cf3f 100644 (file)
--- a/recctrl/recgrs.c
+++ b/recctrl/recgrs.c
@@ -1,4 +1,4 @@
-/* $Id: recgrs.c,v 1.65 2002-08-30 12:44:31 adam Exp $
+/* $Id: recgrs.c,v 1.66 2002-09-02 11:19:33 adam Exp $
    Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002
    Index Data Aps
 
@@ -824,7 +824,7 @@ static int grs_retrieve(void *clientData, struct recRetrieveCtrl *p)
     else if (p->comp && !res)
        selected = 1;
 
-#if 1
+#if 0
     data1_pr_tree (p->dh, node, stdout);
 #endif
     logf (LOG_DEBUG, "grs_retrieve: transfer syntax mapping");