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 $user = Arh::Model::User->new;

        $user->create(
                name => 'Admin',
                lastname => 'User',
                email => 'admin@example.com',
                email_confirmed => 1,
                password => 'siteadmin',
                administrator => 1,
                organization => 'Site administrator',
        );

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

        my $chronology = Arh::Model::Chronology->new(current_user => $system_user);
        $chronology->create(
                name => 'kraj 8. stoljeća',
        );

        my $material = Arh::Model::Material->new;
        $material->create(
                name => 'tvrdi vapnenac',
        );

        my $location = Arh::Model::Location->new;
        $location->create(
                name => 'Lapidarij u Balama',
        );

        my $place = Arh::Model::Place->new;
        $place->create(
                name => 'mjesto iskapanja',
        );

        my $campaign = Arh::Model::Campaign->new(current_user => $system_user);
        $campaign->create(
                place => $place,
                name => 'prvo iskapanje',
                date_from => '2007-11-28',
                date_to => '2008-03-15',
        );

        my $unit = Arh::Model::Unit->new(current_user => $system_user);
        $unit->create(
                name => 'Mali kapitel stupića mnolitnog oltara',
                number => 'SMV - 96/60',
                campaign => $campaign,
                dimensions => 'visina kapitola 13,5 cm; ukupna visina: 14,5 cm; presjek 13,5x13,5x5cm; manji presjek 11cm',
                position => 'otkriveno cca 12m od istočne fasade crkve',
                description => 'Ukrašen u doljnjem dijelu astragalom. U dobrom stanju. Abakus ukrašen na klasičan način, astragal u dva pojasa. Pojasnica sa spojenim listovima.',
                chronology => $chronology,
                location => $location,
        );

        my $um = Arh::Model::UnitMaterial->new;
        $um->create(
                unit => $unit,
                material => $material,
        );
}

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	dpavlin	10	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	dpavlin	4	my $pt = Arh::Model::PictureType->new(current_user => $system_user);
31
32			$pt->create( name => $_ ) foreach ( qw/
33			tlocrt
34			slika
35			rekonstrukcija
36			aksiometrija
37			arhitektura
38	dpavlin	9	namještaj
39	dpavlin	4	/ );
40
41	dpavlin	9	my $chronology = Arh::Model::Chronology->new(current_user => $system_user);
42			$chronology->create(
43			name => 'kraj 8. stoljeća',
44			);
45
46			my $material = Arh::Model::Material->new;
47			$material->create(
48			name => 'tvrdi vapnenac',
49			);
50
51			my $location = Arh::Model::Location->new;
52			$location->create(
53			name => 'Lapidarij u Balama',
54			);
55
56			my $place = Arh::Model::Place->new;
57			$place->create(
58			name => 'mjesto iskapanja',
59			);
60
61			my $campaign = Arh::Model::Campaign->new(current_user => $system_user);
62			$campaign->create(
63			place => $place,
64			name => 'prvo iskapanje',
65			date_from => '2007-11-28',
66			date_to => '2008-03-15',
67			);
68
69			my $unit = Arh::Model::Unit->new(current_user => $system_user);
70			$unit->create(
71			name => 'Mali kapitel stupića mnolitnog oltara',
72			number => 'SMV - 96/60',
73			campaign => $campaign,
74			dimensions => 'visina kapitola 13,5 cm; ukupna visina: 14,5 cm; presjek 13,5x13,5x5cm; manji presjek 11cm',
75			position => 'otkriveno cca 12m od istočne fasade crkve',
76			description => 'Ukrašen u doljnjem dijelu astragalom. U dobrom stanju. Abakus ukrašen na klasičan način, astragal u dva pojasa. Pojasnica sa spojenim listovima.',
77			chronology => $chronology,
78			location => $location,
79			);
80
81			my $um = Arh::Model::UnitMaterial->new;
82			$um->create(
83			unit => $unit,
84			material => $material,
85			);
86	dpavlin	4	}
87
88			1;