my $user = $c->find_user({ user_id => $c->user->user_id });
$c->set_authenticated($user);
$user->email will be the new email.
On Thu, Jul 12, 2012 at 2:28 AM, Sergey Dmitriev <
[email protected]> wrote:
> Thank you David!
>
> 2012/7/11 David Schmidt <[email protected]>
>
>> The object returned by $c->user is not what you are looking for.
>>
>> I assume you are using DBIC.
>>
>> Get the "real" user object with $c->user->get_object()
>>
>>
>> http://search.cpan.org/~bobtfish/Catalyst-Plugin-Authentication-0.10021/lib/Catalyst/Authentication/User.pm#get_object(_)
>>
>> cheers
>> david
>>
>>
>>
>> On 11 July 2012 17:37, Sergey Dmitriev <[email protected]>
>> wrote:
>> > Hello,
>> >
>> > My question is simple. I have object of already authenticated user in
>> $u by
>> > using
>> >
>> > my $u = $c->user()
>> >
>> > So, getter $u->email reflects actual email. How then can I update
>> already
>> > loaded user object? E.g. i need something like:
>> >
>> > print $u->email; # old@email
>> >
>> > $u->email = 'new@email';
>> >
>> > print $u->email; # new@email
>> >
>> > How to achieve this simple way? Do I need to update user rec in DB then
>> > re-load user from DB? Then, which is the simplest way to re-trieve user
>> > again?
>> >
>> > Thank you.
>> > Sergey
>> >
>> >
>> >
>> > _______________________________________________
>> > List: [email protected]
>> > Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
>> > Searchable archive:
>> http://www.mail-archive.com/[email protected]/
>> > Dev site: http://dev.catalyst.perl.org/
>> >
>>
>> _______________________________________________
>> List: [email protected]
>> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
>> Searchable archive:
>> http://www.mail-archive.com/[email protected]/
>> Dev site: http://dev.catalyst.perl.org/
>>
>
>
> _______________________________________________
> List: [email protected]
> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> Searchable archive:
> http://www.mail-archive.com/[email protected]/
> Dev site: http://dev.catalyst.perl.org/
>
>
--
Jack
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
