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 | dpavlin | 61 | # 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 |