/[Arh]/lib/Arh/Bootstrap.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Arh/Bootstrap.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 9 by dpavlin, Thu Nov 29 16:40:10 2007 UTC revision 10 by dpavlin, Thu Nov 29 17:17:16 2007 UTC
# Line 15  sub run { Line 15  sub run {
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/
Legend:
Removed from v.9  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.26