[Rio-pm] Como recuperar dados de uma sessão que já foi iniciada

[Randal L. Schwartz]

>>>>> "Cleysinho" == Cleysinho  <cleysinhonv at gmail.com> writes:

Cleysinho>     if($session->param('iduser') ne '' && $session->param('name'))
Cleysinho>     {
Cleysinho>         @dados=();
Cleysinho>         push (@dados,$session->param('iduser'));
Cleysinho>         push (@dados,$session->param('name'));
Cleysinho>         push (@dados,$session->param('email'));
Cleysinho>         push (@dados,$session->param('level'));
Cleysinho>         push (@dados,'Ok');
Cleysinho>         return @dados;

                   return map($session->param($_), qw(iduser name email
                   level)), 'Ok';

Cleysinho>     }
Cleysinho>     else
Cleysinho>     {
Cleysinho>         @dados=();
Cleysinho>         push (@dados,'False');
Cleysinho>         return @dados;
                   
                   return 'False';

Cleysinho>     }
Cleysinho> }


-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn at stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.posterous.com/ for Smalltalk discussion