lib/Arh/Bootstrap.pm

use warnings;
use strict;

package Arh::Bootstrap;
use base qw(Jifty::Bootstrap);

=head1 Bootstrap application data

Create initial data

=cut

sub run {
    my $self = shift;

        my $system_user = Arh::CurrentUser->superuser( _bootstrap => 1 );

        my $pt = Arh::Model::PictureType->new(current_user => $system_user);
        
        $pt->create( name => $_ ) foreach ( qw/
tlocrt
slika
rekonstrukcija
aksiometrija
arhitektura
namje¹taj
/ );

}

1;
1	use warnings;
2	use strict;
3
4	package Arh::Bootstrap;
5	use base qw(Jifty::Bootstrap);
6
7	=head1 Bootstrap application data
8
9	Create initial data
10
11	=cut
12
13	sub run {
14	my $self = shift;
15
16	my $system_user = Arh::CurrentUser->superuser( _bootstrap => 1 );
17
18	my $pt = Arh::Model::PictureType->new(current_user => $system_user);
19
20	$pt->create( name => $_ ) foreach ( qw/
21	tlocrt
22	slika
23	rekonstrukcija
24	aksiometrija
25	arhitektura
26	namje¹taj
27	/ );
28
29	}
30
31	1;