[Catalyst] How to update a hashed password column?

Hi mates,

I have an authenticated Cat app with salted SHA1 passwords. Just
followed the steps in the tutorial to get it going. Inserting a new
user in the BD works fine, and after that, I can use the user in the
app, it correctly authenticates, etc.

Now I'm trying to allow him/her to change the password, I get the old
and new password with a FormFu form, and after checking (with
$c->authenticate) that the old password is the right one, I try to
update the web user model, changing the password to the new one:

if (not
$c->model('LocalDB::UsuarioFront')->find($c->user->id)->password($form->param_value('new_password')))
{
$c->flash(error => 'Password NOT changed!');
}

When I try to do it, the app then dies with a cryptic message:
I assumed that PassphraseColumn registered columns are automatically
deflated and inflated from the DB, but I don't seem to get the way to
do it.

I have also tried "update" syntax:

if (not
$c->model('LocalDB::UsuarioFront')->find($c->user->id)->update({password
=> $form->param_value('new_password')})) {
$c->flash(error => 'Password NOT changed!');
}

With the same results.

I have also skimmed over PassphraseColumn.pm, but I didn't reach any
conclussion...

Any ideas?
Regards
Jorge


--

*/Jorge González Villalonga/*
Director Técnico

*/DAIKON Integración y Desarrollo S.L./*
Telf: (+34) 91 188 08 28
Fax: (+34) 91 632 65 42
*www.daikon.es*


_______________________________________________
List: Catalyst@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/