/[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 12 by dpavlin, Thu Nov 29 19:32:41 2007 UTC revision 14 by dpavlin, Fri Nov 30 16:43:53 2007 UTC
# Line 13  Create initial data Line 13  Create initial data
13  =cut  =cut
14    
15  sub run {  sub run {
16          warn "## run",dump(@_);          #warn "## run",dump(@_);
17      my $self = shift;      my $self = shift;
18    
19          my $system_user = Arh::CurrentUser->superuser( _bootstrap => 1 );          my $system_user = Arh::CurrentUser->superuser( _bootstrap => 1 );
# Line 52  arhitektura Line 52  arhitektura
52  namještaj  namještaj
53  / );  / );
54    
55          my $chronology = Arh::Model::Chronology->new(current_user => $system_user);          my $chronology_8 = Arh::Model::Chronology->new(current_user => $system_user);
56          $chronology->create(          $chronology_8->create(
57                    name => '8. stoljeće',
58                    year_from => 701,
59                    year_to => 800,
60            );
61            my $chronology_end8 = Arh::Model::Chronology->new(current_user => $system_user);
62            $chronology_end8->create(
63                  name => 'kraj 8. stoljeća',                  name => 'kraj 8. stoljeća',
64                  year_from => 760,                  year_from => 760,
65                  year_to => 800,                  year_to => 800,
66                    part_of => $chronology_8,
67          );          );
68    
69    
70          my $material = Arh::Model::Material->new;          my $material = Arh::Model::Material->new;
71          $material->create(          $material->create(
72                  name => 'tvrdi vapnenac',                  name => 'tvrdi vapnenac',
73          );          );
74    
75            my $material2 = Arh::Model::Material->new;
76            $material2->create(
77                    name => 'nepoznato',
78            );
79    
80          my $location = Arh::Model::Location->new;          my $location = Arh::Model::Location->new;
81          $location->create(          $location->create(
82                  name => 'Lapidarij u Balama',                  name => 'Lapidarij u Balama',
# Line 90  namještaj Line 103  namještaj
103                  dimensions => 'visina kapitola 13,5 cm; ukupna visina: 14,5 cm; presjek 13,5x13,5x5cm; manji presjek 11cm',                  dimensions => 'visina kapitola 13,5 cm; ukupna visina: 14,5 cm; presjek 13,5x13,5x5cm; manji presjek 11cm',
104                  position => 'otkriveno cca 12m od istočne fasade crkve',                  position => 'otkriveno cca 12m od istočne fasade crkve',
105                  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.',                  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.',
106                  chronology => $chronology,                  chronology => $chronology_end8,
107                  location => $location,                  location => $location,
108          );          );
109    
# Line 99  namještaj Line 112  namještaj
112                  unit => $unit,                  unit => $unit,
113                  material => $material,                  material => $material,
114          );          );
115            $um->create(
116                    unit => $unit,
117                    material => $material2,
118            );
119    
120            $unit->create(
121                    name => 'Staklo',
122                    number => 'SMV - 42/60',
123                    campaign => $campaign,
124                    chronology => $chronology_8,
125                    location => $location,
126            );
127    
128            $um->create(
129                    unit => $unit,
130                    material => $material2,
131            );
132  }  }
133    
134  1;  1;
Legend:
Removed from v.12  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.26