Bug fix in persist.c: Double referenced result-sets weren't recovered.

diff --git a/kernel/default.res b/kernel/default.res
index 10c9806..5a3cf47 100644 (file)
--- a/kernel/default.res
+++ b/kernel/default.res
@@ -1,5 +1,5 @@
 # Email gateway - general kernel resources
-# $Id: default.res,v 1.27 1995/07/03 12:59:28 adam Exp $
+# $Id: default.res,v 1.28 1995/07/20 08:16:36 adam Exp $
 #
 # Important directories, programs, etc.
 gw.reply.mta: /usr/lib/sendmail
@@ -131,7 +131,7 @@ gw.help.target: Command:\n
  specified.
  \n
 gw.help.base: Command:\n
- \tbase <base>1 <base>2 ...\n
+ \tbase <base1> <base2> ...\n
  \n
  The base command selects one or more databases. However, some 
  targets do not allow the selection of more than one database.
@@ -169,9 +169,7 @@ gw.help.find: Command:\n
  If the 'or' is to be applied to "knuth" and "donald", one could use:\n
  \tfind ti=computer and (au=knuth or donald)\n\n
  \tfind computer and s=2\n
- Here, the <search-term> "computer" is and'ed with result-set "2".
- Note: The result-set reference faclility is unavailable at the moment.
- \n
+ Here, the <search-term> "computer" is and'ed with result-set "2".\n
 gw.help.show: Command:\n
  \tshow <show-spec> ...\n\n
  The show command retrieves records. A <show-spec> is a combination

diff --git a/kernel/persist.c b/kernel/persist.c
index 8daeaca..bea7f4b 100644 (file)
--- a/kernel/persist.c
+++ b/kernel/persist.c
@@ -45,7 +45,10 @@
  * Europagate, 1995
  *
  * $Log: persist.c,v $
- * Revision 1.9  1995/05/19 13:26:00  adam
+ * Revision 1.10  1995/07/20 08:16:38  adam
+ * Bug fix in persist.c: Double referenced result-sets weren't recovered.
+ *
+ * Revision 1.9  1995/05/19  13:26:00  adam
  * Bug fixes. Better command line options.
  *
  * Revision 1.8  1995/05/16  09:40:43  adam
@@ -105,7 +108,8 @@ static int set_change;
 static int obtain_set (ZASS zass, struct gw_user_set *set)
 {
     const struct zass_searchent *p;
-
+    
+    gw_log (GW_LOG_DEBUG, KERNEL_LOG, "Set %s must be obtained", set->name);
     p = zass_search (zass, set->rpn, set->name, set->database, NULL);
     if (!p)
         return 2;
@@ -151,6 +155,7 @@ static int obtain_sets (ZASS zass, struct ccl_rpn_node *rpn,
            return 0;
         }
     }
+    obtain_sets (zass, set->rpn, sets);
     return obtain_set (zass, set);
 }