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	dpavlin	4	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;