Hi,
> HTML::Embperl::Req::SetupSession($req_rec);
> my %udat = HTML::Embperl::Req::GetSession;
>
> if (exists $udat{user}) {
>
GetSession returns a reference to hash, so you have to write:
my $udat = HTML::Embperl::Req::GetSession;
if (exists $udat->{user}) {
but you don't need GetSession, SetupSession returns the same reference, so
simply write
my $udat = HTML::Embperl::Req::SetupSession($req_rec);
if (exists $udat -> {user}) {
Gerald
-------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: [EMAIL PROTECTED] Voice: +49 6133 925131
WWW: http://www.ecos.de Fax: +49 6133 925152
-------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
