Parent Directory | Revision Log
added columns owner and create_on for Query, some Upgrade code to create admin@example.com user with admin and edit roles. Added real current_user_can which is a bit more complicated whan minimal.
1 | # Dobrica Pavlinusic, <dpavlin@rot13.org> 01/25/07 18:13:01 CET |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | package SQLSession::Upgrade; |
7 | |
8 | use Jifty::Upgrade; |
9 | use base qw/Jifty::Upgrade/; |
10 | |
11 | my $system_user = SQLSession::CurrentUser->superuser; |
12 | |
13 | =head2 0.0.5 |
14 | |
15 | Added user class, so create test userdkdkd |
16 | |
17 | =cut |
18 | |
19 | since '0.0.5' => sub { |
20 | |
21 | my $u = SQLSession::Model::User->new( current_user => $system_user ); |
22 | $u->create( |
23 | name => 'Administrator', |
24 | email => 'admin@example.com', |
25 | password => 'admin', |
26 | email_confirmed => 1, |
27 | ); |
28 | |
29 | my $r = SQLSession::Model::Role->new( current_user => $system_user ); |
30 | $r->create( |
31 | user_id => $u->id, |
32 | role => 'admin', |
33 | ); |
34 | $r->create( |
35 | user_id => $u->id, |
36 | role => 'edit', |
37 | ); |
38 | |
39 | }; |
40 | |
41 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |