I am trying to come up with a way to manage roles for users in my Catalyst app, I have a database structure much like what is used in Chapter 5 of the Catalyst::Manual::Tutorial <<meta http-equiv="content-type" content="text/html; charset=utf-8"><a href="http://search.cpan.org/~bobtfish/Catalyst-Manual-5.8007/lib/Catalyst/Manual/Tutorial/05_Authentication.pod">http://search.cpan.org/~bobtfish/Catalyst-Manual-5.8007/lib/Catalyst/Manual/Tutorial/05_Authentication.pod</a>> where I have a user table, a role table, and and a usertorole table. I am trying to find a way to get a list of roles for a user to be able to make changes, add new roles and/or remove roles from the user. I have both authentication and authorization working in my app and I can fetch the roles for the user currently logged in by <div>
<br></div><div><ul></div><div>[% FOR role = c.user.roles %]<li>[% role %]</li>[% END %]</div><div></ul></div><div><br></div><div>But when I try to get a list from a different user it doesn't work as expected, here is what I am currently doing</div>
<div><br></div><div><meta http-equiv="content-type" content="text/html; charset=utf-8"><span class="Apple-style-span" style="font-family: 'Times New Roman'; font-size: medium; "><pre style="word-wrap: break-word; white-space: pre-wrap; ">
sub base : Chained('/'): PathPart('admin') :CaptureArgs(0) {
my ( $self, $c ) = @_;
$c->stash( users_rs => $c->model('DB::User'));
$c->stash( role_rs => $c->model('DB::Role'));
$c->stash( usertorole_rs => $c->model('DB::Userstorole'));
}</pre><pre style="word-wrap: break-word; white-space: pre-wrap; "><br></pre><pre style="word-wrap: break-word; white-space: pre-wrap; "><meta http-equiv="content-type" content="text/html; charset=utf-8"><span class="Apple-style-span" style="font-family: 'Times New Roman'; white-space: normal; "><pre style="word-wrap: break-word; white-space: pre-wrap; ">
sub user : Chained('base'): CaptureArgs(1) {
my ( $self, $c, $uniqid ) = @_;
if ( $uniqid == m/[^0-9]/ ) {
die "The ID number is not numeric\n";
}
my $user = $c->stash->{users_rs}->find({ uniqid => $uniqid });
die "No such user: $uniqid\n" if (!$user);
my $roles = $c->stash->{usertorole_rs}->search(
undef,
{
where => { 'userid', $uniqid }
},
);
warn "No such role: $uniqid\n" if (!$roles);
$c->stash(user => $user,
roles => $roles);
}</pre><pre style="word-wrap: break-word; white-space: pre-wrap; "><meta http-equiv="content-type" content="text/html; charset=utf-8"><span class="Apple-style-span" style="font-family: helvetica, arial, freesans, clean, sans-serif; font-size: 11px; line-height: 14px; white-space: normal; "><pre style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; font: normal normal normal 12px/normal Monaco, 'Courier New', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', monospace; line-height: 1.4em; font-family: 'Bitstream Vera Sans Mono', 'Courier New', monospace; font-size: 12px; ">
<div class="line" id="LC19" style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 1em; line-height: 1.4em; ">[% FOR role IN roles %]</div>
<div class="line" id="LC20" style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 1em; line-height: 1.4em; "> <tr><td>Role #:</td><td>Role [% role.role %] Role ID [% role.roleid %] User id [% role.userid %]</td></tr></div>
<div class="line" id="LC21" style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 1em; line-height: 1.4em; ">[% END %]</div>
</pre></span></pre></span></pre></span></div><div>My database schema is so</div><div><br></div><div><meta http-equiv="content-type" content="text/html; charset=utf-8"><span class="Apple-style-span" style="font-family: 'Times New Roman'; font-size: medium; "><pre style="word-wrap: break-word; white-space: pre-wrap; ">
CREATE TABLE roles (
uniqid integer NOT NULL,
role character varying(32) NOT NULL
);
</pre><div><meta http-equiv="content-type" content="text/html; charset=utf-8"><pre style="word-wrap: break-word; white-space: pre-wrap; ">CREATE TABLE users (
uniqid integer NOT NULL,
username character varying(20) NOT NULL,
password character varying(40) NOT NULL,
firstname character varying(20) NOT NULL,
lastname character varying(20) NOT NULL,
email character varying(20) NOT NULL,
active boolean DEFAULT true NOT NULL,
created timestamp without time zone DEFAULT now() NOT NULL
);</pre><pre style="word-wrap: break-word; white-space: pre-wrap; "><meta http-equiv="content-type" content="text/html; charset=utf-8"><span class="Apple-style-span" style="font-family: 'Times New Roman'; white-space: normal; "><pre style="word-wrap: break-word; white-space: pre-wrap; ">
CREATE TABLE userstoroles (
userid integer NOT NULL,
role integer NOT NULL
);</pre><pre style="word-wrap: break-word; white-space: pre-wrap; "><br></pre><pre style="word-wrap: break-word; white-space: pre-wrap; ">Am I going about this the wrong way or is there something that I am over looking?</pre>
</span></pre></div></span></div>