[Seaside] using WALoginDialog

[Tibor Blenessy]

Hi all

I'm trying to build application with secure area, where I need login
dialog. I have something like this

SISMain>>renderContentOn:

renderContentOn: html

	username := self call: (WALoginDialog new authenticator: (SISLogin new)).
	(username isNil)
		ifTrue: [html text: 'Must log in']
		ifFalse: [html text: 'Welcome!'].

SISLogin is temporary now

SISLogin>>verifyPassword: forUser

verifyPassword: aPassword forUser: anUser
	^anUser = 'tibor'

Problem is, that if user succesfully logged in and then press back button
he again see login form. And if he try to logg in again, he gets
"500 Internal Server Error MessageNotUnderstood: UndefinedObject>>reset"
Desired behavor is, that he can again succesfully login.

Can anyone help?

Tibor