Web Connection
NewSession issue
Gravatar is a globally recognized avatar based on your email address. NewSession issue
  Stein Goering
  All
  Jan 16, 2023 @ 04:48pm

Recently added routine that included a call to Session.NewSession. Was generating a "No Table is Open in current work area" error when using SQL data. I ended up adding the SELECT command shown below to wwSession.prg. Maybe there's a use case that would get around this without modifying the framework code, but this is seeming to work:

IF !ISNULL(THIS.oRequest)
   lcBrowser=THIS.oRequest.GetBrowser()
   lcIP=THIS.oRequest.GetIPAddress()
ELSE
   STORE "" TO lcBrowser,lcIP
ENDIF

SELECT ('wwsession')  && << Added this line
*** Create a new emtpy object
SCATTER NAME THIS.oData MEMO BLANK
WITH THIS.oData
	.SessionId = lcSessionid
	.FirstOn = DATETIME()
	.Laston = DATETIME()
	.UserId = lcUserid
	.Browser = lcBrowser
	.IP = lcIP
	.Hits = 1
ENDWITH
Gravatar is a globally recognized avatar based on your email address. re: NewSession issue
  Rick Strahl
  Stein Goering
  Jan 16, 2023 @ 07:51pm

Hmmm... interesting that no one has hit this before.

I think the right way to fix this is by fixing the way wwSqlSession::NewSession works. The problem is that if the table is already open but not selected it fails in the way you see, so we need to make sure that NewSession() selects the table.

FUNCTION NewSession(lcUserId, lcForcedId)

*** Work around empty 'record' scenario
IF !USED("wwSession")
	*** Open the table so we get a cursor at least
	this.LocateSession("BLANK")  && gives you a blank record and empty cursor
	IF !USED("wwSession")
	   RETURN .F.
	ENDIF
ELSE 
    *** Just in case
    SELECT wwSession	
ENDIF

RETURN DODEFAULT(lcUserId,lcForcedId)
ENDFUNC

The FoxPro NewSession() works because it creates an empty cursor via OpenTable(). But the SQL version does nothing since there's no table to connect to we only pull the data when we need it.

+++ Rick ---

© 1996-2023