diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-05-13 12:08:59 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-05-13 12:08:59 +0000 |
| commit | 3020058fadb5de1ff8e38dfd7155c0b7737383f7 (patch) | |
| tree | f6edc2f4355c82f7d2b0a8adf880331fd06297a1 /packages/fcl-web/src/base/httpdefs.pp | |
| parent | 1ce4be41d33f84fdbd8c91a24e71013bcc16f94e (diff) | |
| download | fpc-3020058fadb5de1ff8e38dfd7155c0b7737383f7.tar.gz | |
* Reworked session management.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17442 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-web/src/base/httpdefs.pp')
| -rw-r--r-- | packages/fcl-web/src/base/httpdefs.pp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/packages/fcl-web/src/base/httpdefs.pp b/packages/fcl-web/src/base/httpdefs.pp index e0ff09c05c..7a01039d96 100644 --- a/packages/fcl-web/src/base/httpdefs.pp +++ b/packages/fcl-web/src/base/httpdefs.pp @@ -1700,6 +1700,7 @@ Var begin CreateGUID(G); Result:=GuiDToString(G); + Result:=Copy(Result,2,36); end; constructor TCustomSession.Create(AOwner: TComponent); |