[Catalyst] How to update data of already logged-in user?

鲁国庆(Jack Lu) luguoqing at gmail.com
Thu Jul 12 02:54:56 GMT 2012


    my $user =3D $c->find_user({ user_id =3D> $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 <
sergey.programmer at gmail.com> wrote:

> Thank you David!
>
> 2012/7/11 David Schmidt <davewood at gmx.at>
>
>> 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 <sergey.programmer at gmail.com>
>> wrote:
>> > Hello,
>> >
>> > My question is simple. I have object of already authenticated user in
>> $u by
>> > using
>> >
>> > my $u =3D $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 at email
>> >
>> > $u->email =3D 'new at email';
>> >
>> > print $u->email; # new at 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: Catalyst at lists.scsys.co.uk
>> > Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
>> > Searchable archive:
>> http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
>> > Dev site: http://dev.catalyst.perl.org/
>> >
>>
>> _______________________________________________
>> List: Catalyst at lists.scsys.co.uk
>> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
>> Searchable archive:
>> http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
>> Dev site: http://dev.catalyst.perl.org/
>>
>
>
> _______________________________________________
> List: Catalyst at lists.scsys.co.uk
> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> Searchable archive:
> http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
> Dev site: http://dev.catalyst.perl.org/
>
>


-- =

Jack
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/catalyst/attachments/20120712/8d9d9=
afd/attachment.htm


More information about the Catalyst mailing list