/[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 45 by dpavlin, Sun Apr 6 12:04:13 2008 UTC revision 46 by dpavlin, Sun Apr 6 15:36:03 2008 UTC
# Line 5  package Arh::Bootstrap; Line 5  package Arh::Bootstrap;
5  use base qw(Jifty::Bootstrap);  use base qw(Jifty::Bootstrap);
6    
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8    use utf8;
9    
10  =head1 Bootstrap application data  =head1 Bootstrap application data
11    
# Line 82  namještaj Line 83  namještaj
83          $location->create(          $location->create(
84                  name => 'Lapidarij u Balama',                  name => 'Lapidarij u Balama',
85          );          );
86            $location->create(
87                    name => 'Katedralni kompleks',
88            );
89    
90    
91          my $place = Arh::Model::Place->new;          my $place = Arh::Model::Place->new;
92          $place->create(          $place->create(
# Line 97  namještaj Line 102  namještaj
102                  date_to => '2008-03-15',                  date_to => '2008-03-15',
103          );          );
104    
105  =for later          my $cat = Arh::Model::Category->new;
106            $cat->create( name => $_ ) foreach ( qw/
107                    arhitektura
108                    skulptura
109                    slikarstvo
110                    liturgijske
111                    instalacije
112                    epigrafija
113                    metal
114            / );
115    
116            my $site = Arh::Model::Site->new;
117            $site->create( name => $_ ) foreach ( qw/
118                    Poreč
119            / );
120    
121          my $unit = Arh::Model::Unit->new(current_user => $system_user);          my $unit = Arh::Model::Unit->new(current_user => $system_user);
122          $unit->create(          $unit->create(
123                  name => 'Mali kapitel stupića mnolitnog oltara',                  unit_id => '01/01',
124                  inventory_nr => 'SMV - 96/60',                  name => 'Eufrazijeva bazilika',
125  #               campaign => $campaign,                  subcategory => 'crkva',
126                  dimensions => 'visina kapitola 13,5 cm; ukupna visina: 14,5 cm; presjek 13,5x13,5x5cm; manji presjek 11cm',                  category => $cat,
                 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,  
127                  location => $location,                  location => $location,
128                    site => $site,
129                    # gps
130                    placement => 'Sjeveroistočno od antičkog foruma, uz sjeverne zidine grada',
131                    context => 'urbani',
132                    function => 'Katedrala',
133                    ownership => 'Katolička crkva - porečko-pulska biskupija',
134                    dimensions => '20x35x15m',
135                    condition => 'Very good',
136                    toplogy => 'Trobrodna bazilika s apsidom i dvije apsidiole',
137                    # material
138                    technique => 'Opus incertum',
139                    description => "Trobrodna bazilika s istaknutom srednjom apsidom (izvana poligonalna iznutra polukružna)\ndvije bočne apsidiole upisane u ravni začeljni zid.",
140                    construction => "Stupovi s kapitelima i impostima;\ndrveno gređe, otvoreno krovište",
141                    decoration => "Podni mozaik, zidni mozaik, štuko",
142                    chronology => $chronology_end8,
143                    bibliography => 'M. Prelog; A.Terry, I. Matejčić',
144                    copyright => 'I. Matejčić',
145          );          );
146    
147          my $um = Arh::Model::UnitMaterial->new;          my $um = Arh::Model::UnitMaterial->new;
# Line 120  namještaj Line 154  namještaj
154                  material => $material2,                  material => $material2,
155          );          );
156    
157    =for later
158          $unit->create(          $unit->create(
159                  name => 'Staklo',                  name => 'Staklo',
160                  inventory_nr => 'SMV - 42/60',                  inventory_nr => 'SMV - 42/60',
# Line 135  namještaj Line 170  namještaj
170    
171  =cut  =cut
172    
         my $cat = Arh::Model::Category->new;  
         $cat->create( name => $_ ) foreach ( qw/arhitektura skulptura slikarstvo liturgijske instalacije epigrafija metal/ );  
   
         my $site = Arh::Model::Site->new;  
         $site->create( name => $_ ) foreach ( qw/Pore Zagreb Sisak/ );  
173  }  }
174    
175  1;  1;
Legend:
Removed from v.45  
changed lines
  Added in v.46
  ViewVC Help
Powered by ViewVC 1.1.26