<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
O que há de errado com o seguinte código?<br>sub edit : Local Form {<br> my ($self, $c, $id) = @_;<br> my $person = $c->model('AddressDB::People')-><br> find_or_new({id => $id});<br> if ($c->form->submitted && $c->form->validate) {<br><br> $person->firstname($c->form->field('firstname'));<br> $person->lastname ($c->form->field( 'lastname'));<br> $person->update_or_insert;<br> $c->stash->{message} =<br> ($id > 0 ? 'Updated ' : 'Added ') . $person->name;<br> $c->forward('list');<br> }<br> else {<br><br> if(!$id){<br> $c->stash->{message} = 'Adding a new person';<br> }<br> $c->form->field(name => 'firstname',<br> value => $person->firstname);<br> $c->form->field(name => 'lastname',<br> value => $person->lastname);<br> }<br>}<br><br><br>                                            <br /><hr />Quer 25 GB de armazenamento gratuito na web? <a href='http://www.eutenhomaisnowindowslive.com.br/?utm_source=MSN_Hotmail&utm_medium=Tagline&utm_campaign=InfuseSocial' target='_new'>Conheça o Skydrive clicando aqui.</a></body>
</html>