/[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 14 by dpavlin, Fri Nov 30 16:43:53 2007 UTC revision 41 by dpavlin, Sun Apr 6 12:04:13 2008 UTC
# Line 29  sub run { Line 29  sub run {
29                  password => 'password',                  password => 'password',
30                  administrator => 1,                  administrator => 1,
31                  organization => 'Site administrator',                  organization => 'Site administrator',
32                    editing => 1,
33          );          );
34    
35          $u->create(          $u->create(
# Line 87  namještaj Line 88  namještaj
88                  name => 'mjesto iskapanja',                  name => 'mjesto iskapanja',
89          );          );
90    
91    
92          my $campaign = Arh::Model::Campaign->new(current_user => $system_user);          my $campaign = Arh::Model::Campaign->new(current_user => $system_user);
93          $campaign->create(          $campaign->create(
94                  place => $place,                  place => $place,
# Line 95  namještaj Line 97  namještaj
97                  date_to => '2008-03-15',                  date_to => '2008-03-15',
98          );          );
99    
100    =for later
101          my $unit = Arh::Model::Unit->new(current_user => $system_user);          my $unit = Arh::Model::Unit->new(current_user => $system_user);
102          $unit->create(          $unit->create(
103                  name => 'Mali kapitel stupića mnolitnog oltara',                  name => 'Mali kapitel stupića mnolitnog oltara',
104                  number => 'SMV - 96/60',                  inventory_nr => 'SMV - 96/60',
105                  campaign => $campaign,  #               campaign => $campaign,
106                  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',
107                  position => 'otkriveno cca 12m od istočne fasade crkve',                  discovered_at => 'otkriveno cca 12m od istočne fasade crkve',
108                  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.',
109                  chronology => $chronology_end8,                  chronology => $chronology_end8,
110                  location => $location,                  location => $location,
# Line 119  namještaj Line 122  namještaj
122    
123          $unit->create(          $unit->create(
124                  name => 'Staklo',                  name => 'Staklo',
125                  number => 'SMV - 42/60',                  inventory_nr => 'SMV - 42/60',
126                  campaign => $campaign,                  campaign => $campaign,
127                  chronology => $chronology_8,                  chronology => $chronology_8,
128                  location => $location,                  location => $location,
# Line 129  namještaj Line 132  namještaj
132                  unit => $unit,                  unit => $unit,
133                  material => $material2,                  material => $material2,
134          );          );
135    
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 $site = Arh::Model::Site->new;
142            $site->create( name => $_ ) foreach ( qw/Pore Zagreb Sisak/ );
143  }  }
144    
145  1;  1;
Legend:
Removed from v.14  
changed lines
  Added in v.41
  ViewVC Help
Powered by ViewVC 1.1.26