% while (my $project = $projects->next) { % }

<% $user->username | h %>

Email address: <% $email | h %>
Status: <% $user->status || '' | h %>
 

Projects

<% $project->name | h %>
<%shared> my $user = eval { $Schema->User_t->row_by_pk( pk => $m->request_args->{user_id} ) } || $m->comp( '/lib/redirect.mas', path => '/' ); <%args> $user_id <%init> my $projects = $Schema->join( select => $Schema->Project_t, join => [ $Schema->tables( 'ProjectMember', 'Project' ) ], where => [ $Schema->ProjectMember_t->user_id_c, '=', $user_id ], order_by => $Schema->Project_t->name_c ); my $email = $user->email_address; # Try to make it a little harder for the spam robots to grab the # email address. $email =~ s/\@/ AT /; <%method title> <& PARENT:title &> - <% $user->username | h %>