X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=kernel%2Fpersist.c;h=bea7f4b3f73196c3979d990a135f20950fe5b4f4;hb=25db261b6bbbfcc7bc26f679f195b51d31b9d7d7;hp=4d989e6f0234f21576952ae3e2f726e36915046d;hpb=d9dc334cfdbe42f9acf56266c0bdd53522315304;p=egate.git

diff --git a/kernel/persist.c b/kernel/persist.c
index 4d989e6..bea7f4b 100644
--- a/kernel/persist.c
+++ b/kernel/persist.c
@@ -45,7 +45,13 @@
  * Europagate, 1995
  *
  * $Log: persist.c,v $
- * Revision 1.8  1995/05/16 09:40:43  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
  * LICENSE. Setting of CCL token names (and/or/not/set) in read_kernel_res.
  *
  * Revision 1.7  1995/05/03  16:34:19  adam
@@ -102,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;
@@ -148,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);
 }
 
@@ -297,9 +305,6 @@ int load_p_state (int userid)
         return -1;
     gw_log (GW_LOG_DEBUG, KERNEL_LOG, 
            "Reading persistence file %s (2)", fname);
-#if 0
-    reopen_target ();
-#endif
     while (fgetsx (fline, 1024, inf))
     {
         gw_log (GW_LOG_DEBUG, KERNEL_LOG, 
@@ -314,7 +319,9 @@ int load_p_state (int userid)
 	gw_log (GW_LOG_DEBUG, KERNEL_LOG, "Search string %s", fline);
 	set = user_set_add (resultname, hits, database, NULL, 0, fline);
 	set->rpn = load_rpn (fline, inf);
+#if 0
 	ccl_pr_tree (set->rpn, stderr);
+#endif
 	fgetsx (fline, 1024, inf);
     }
     fclose (inf);