lib/Arh/Bootstrap.pm

use warnings;
use strict;

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

use Data::Dump qw/dump/;

=head1 Bootstrap application data

Create initial data

=cut

sub run {
        #warn "## run",dump(@_);
    my $self = shift;

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


        my $u = Arh::Model::User->new(current_user => $system_user);

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

        $u->create(
                name => 'Anonymous',
                lastname => 'User',
                email => 'anonymous@example.com',
                email_confirmed => 1,
                password => 'password',
                administrator => 0,
                organization => 'Part of anonymous user crowd',
        );

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

        my $chronology_8 = Arh::Model::Chronology->new(current_user => $system_user);
        $chronology_8->create(
                name => '8. stoljeÄe',
                year_from => 701,
                year_to => 800,
        );
        my $chronology_end8 = Arh::Model::Chronology->new(current_user => $system_user);
        $chronology_end8->create(
                name => 'kraj 8. stoljeÄa',
                year_from => 760,
                year_to => 800,
                part_of => $chronology_8,
        );


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

        my $material2 = Arh::Model::Material->new;
        $material2->create(
                name => 'nepoznato',
        );

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

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

=for later

        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',
                inventory_nr => 'SMV - 96/60',
#               campaign => $campaign,
                dimensions => 'visina kapitola 13,5 cm; ukupna visina: 14,5 cm; presjek 13,5x13,5x5cm; manji presjek 11cm',
                discovered_at => '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_end8,
                location => $location,
        );

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

        $unit->create(
                name => 'Staklo',
                inventory_nr => 'SMV - 42/60',
                campaign => $campaign,
                chronology => $chronology_8,
                location => $location,
        );

        $um->create(
                unit => $unit,
                material => $material2,
        );

=cut

        my $cat = Arh::Model::Category->new;
        $cat->create( name => $_ ) foreach ( qw/arhitektura skulptura slikarstvo liturgijske instalacije epigrafija metal/ );

        my $cat = Arh::Model::Site->new;
        $cat->create( name => $_ ) foreach ( qw/Poreè Zagreb Sisak/ );
}

1;
1	dpavlin	4	use warnings;
2			use strict;
3
4			package Arh::Bootstrap;
5			use base qw(Jifty::Bootstrap);
6
7	dpavlin	11	use Data::Dump qw/dump/;
8
9	dpavlin	4	=head1 Bootstrap application data
10
11			Create initial data
12
13			=cut
14
15			sub run {
16	dpavlin	14	#warn "## run",dump(@_);
17	dpavlin	4	my $self = shift;
18
19			my $system_user = Arh::CurrentUser->superuser( _bootstrap => 1 );
20
21	dpavlin	10
22	dpavlin	11	my $u = Arh::Model::User->new(current_user => $system_user);
23
24			$u->create(
25	dpavlin	10	name => 'Admin',
26			lastname => 'User',
27			email => 'admin@example.com',
28			email_confirmed => 1,
29	dpavlin	11	password => 'password',
30	dpavlin	10	administrator => 1,
31			organization => 'Site administrator',
32	dpavlin	23	editing => 1,
33	dpavlin	10	);
34
35	dpavlin	11	$u->create(
36			name => 'Anonymous',
37			lastname => 'User',
38			email => 'anonymous@example.com',
39			email_confirmed => 1,
40			password => 'password',
41			administrator => 0,
42			organization => 'Part of anonymous user crowd',
43			);
44
45	dpavlin	4	my $pt = Arh::Model::PictureType->new(current_user => $system_user);
46
47			$pt->create( name => $_ ) foreach ( qw/
48			tlocrt
49			slika
50			rekonstrukcija
51			aksiometrija
52			arhitektura
53	dpavlin	9	namjeÅ¡taj
54	dpavlin	4	/ );
55
56	dpavlin	14	my $chronology_8 = Arh::Model::Chronology->new(current_user => $system_user);
57			$chronology_8->create(
58			name => '8. stoljeÄe',
59			year_from => 701,
60			year_to => 800,
61			);
62			my $chronology_end8 = Arh::Model::Chronology->new(current_user => $system_user);
63			$chronology_end8->create(
64	dpavlin	9	name => 'kraj 8. stoljeÄa',
65	dpavlin	12	year_from => 760,
66			year_to => 800,
67	dpavlin	14	part_of => $chronology_8,
68	dpavlin	9	);
69
70	dpavlin	14
71	dpavlin	9	my $material = Arh::Model::Material->new;
72			$material->create(
73			name => 'tvrdi vapnenac',
74			);
75
76	dpavlin	14	my $material2 = Arh::Model::Material->new;
77			$material2->create(
78			name => 'nepoznato',
79			);
80
81	dpavlin	9	my $location = Arh::Model::Location->new;
82			$location->create(
83			name => 'Lapidarij u Balama',
84			);
85
86			my $place = Arh::Model::Place->new;
87			$place->create(
88			name => 'mjesto iskapanja',
89			);
90
91	dpavlin	39	=for later
92
93	dpavlin	9	my $campaign = Arh::Model::Campaign->new(current_user => $system_user);
94			$campaign->create(
95			place => $place,
96			name => 'prvo iskapanje',
97			date_from => '2007-11-28',
98			date_to => '2008-03-15',
99			);
100
101			my $unit = Arh::Model::Unit->new(current_user => $system_user);
102			$unit->create(
103			name => 'Mali kapitel stupiÄa mnolitnog oltara',
104	dpavlin	39	inventory_nr => 'SMV - 96/60',
105			# campaign => $campaign,
106	dpavlin	9	dimensions => 'visina kapitola 13,5 cm; ukupna visina: 14,5 cm; presjek 13,5x13,5x5cm; manji presjek 11cm',
107	dpavlin	23	discovered_at => 'otkriveno cca 12m od istoÄne fasade crkve',
108	dpavlin	9	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.',
109	dpavlin	14	chronology => $chronology_end8,
110	dpavlin	9	location => $location,
111			);
112
113			my $um = Arh::Model::UnitMaterial->new;
114			$um->create(
115			unit => $unit,
116			material => $material,
117			);
118	dpavlin	14	$um->create(
119			unit => $unit,
120			material => $material2,
121			);
122
123			$unit->create(
124			name => 'Staklo',
125	dpavlin	39	inventory_nr => 'SMV - 42/60',
126	dpavlin	14	campaign => $campaign,
127			chronology => $chronology_8,
128			location => $location,
129			);
130
131			$um->create(
132			unit => $unit,
133			material => $material2,
134			);
135	dpavlin	39
136			=cut
137
138			my $cat = Arh::Model::Category->new;
139			$cat->create( name => $_ ) foreach ( qw/arhitektura skulptura slikarstvo liturgijske instalacije epigrafija metal/ );
140
141			my $cat = Arh::Model::Site->new;
142			$cat->create( name => $_ ) foreach ( qw/Poreè Zagreb Sisak/ );
143	dpavlin	4	}
144
145			1;