15 |
|
|
16 |
my $system_user = Arh::CurrentUser->superuser( _bootstrap => 1 ); |
my $system_user = Arh::CurrentUser->superuser( _bootstrap => 1 ); |
17 |
|
|
18 |
|
my $user = Arh::Model::User->new; |
19 |
|
|
20 |
|
$user->create( |
21 |
|
name => 'Admin', |
22 |
|
lastname => 'User', |
23 |
|
email => 'admin@example.com', |
24 |
|
email_confirmed => 1, |
25 |
|
password => 'siteadmin', |
26 |
|
administrator => 1, |
27 |
|
organization => 'Site administrator', |
28 |
|
); |
29 |
|
|
30 |
my $pt = Arh::Model::PictureType->new(current_user => $system_user); |
my $pt = Arh::Model::PictureType->new(current_user => $system_user); |
31 |
|
|
32 |
$pt->create( name => $_ ) foreach ( qw/ |
$pt->create( name => $_ ) foreach ( qw/ |