was executed.
* Europagate, 1995
*
* $Log: kernel.h,v $
- * Revision 1.19 1995/07/11 11:49:12 adam
+ * Revision 1.20 1995/07/28 10:51:08 adam
+ * Bug fix: account from previous session had effect when new target command
+ * was executed.
+ *
+ * Revision 1.19 1995/07/11 11:49:12 adam
* LINE_MAX renamed to STR_LINE_MAX.
*
* Revision 1.18 1995/05/16 09:40:42 adam
char target[128];
char hostname[128];
char account[128];
+ int account_in_session;
int port;
const char *lang;
const char *override_portno;
* Europagate, 1995
*
* $Log: main.c,v $
- * Revision 1.28 1995/07/03 08:20:15 adam
+ * Revision 1.29 1995/07/28 10:51:08 adam
+ * Bug fix: account from previous session had effect when new target command
+ * was executed.
+ *
+ * Revision 1.28 1995/07/03 08:20:15 adam
* More help information and better diagnostics.
*
* Revision 1.27 1995/05/19 13:25:59 adam
info.override_res = NULL;
*info.target = 0;
*info.account = 0;
+ info.account_in_session = 1;
info.lang = NULL;
info.bibset = NULL;
info.zass = NULL;
sizeof(info.hostname)-1);
info.port = gw_res_int (info.kernel_res, "gw.portno", 210);
strcpy (info.account, gw_res_get (info.kernel_res, "gw.account", ""));
+ info.account_in_session = 0;
}
/* set info.databases (all available databases for target) */
/* set info.database (first database for target) */
* Europagate, 1995
*
* $Log: urp.c,v $
- * Revision 1.45 1995/07/20 08:20:24 adam
+ * Revision 1.46 1995/07/28 10:51:09 adam
+ * Bug fix: account from previous session had effect when new target command
+ * was executed.
+ *
+ * Revision 1.45 1995/07/20 08:20:24 adam
* Minor changes.
*
* Revision 1.44 1995/07/11 12:28:53 adam
}
else
*info.account = '\0';
+ info.account_in_session = 1;
return 0;
}
len = list->len;
memcpy (info.target, list->name, len);
info.target [len] = '\0';
-
+
+ if (!info.account_in_session)
+ *info.account = '\0';
+ info.account_in_session = 0;
read_kernel_res ();
return reopen_target ();
}