/[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 38 by dpavlin, Fri Nov 30 23:23:14 2007 UTC revision 39 by dpavlin, Sun Apr 6 11:12:58 2008 UTC
# Line 88  namještaj Line 88  namještaj
88                  name => 'mjesto iskapanja',                  name => 'mjesto iskapanja',
89          );          );
90    
91    =for later
92    
93          my $campaign = Arh::Model::Campaign->new(current_user => $system_user);          my $campaign = Arh::Model::Campaign->new(current_user => $system_user);
94          $campaign->create(          $campaign->create(
95                  place => $place,                  place => $place,
# Line 99  namještaj Line 101  namještaj
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                  inv_id => '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                  discovered_at => '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.',
# Line 120  namještaj Line 122  namještaj
122    
123          $unit->create(          $unit->create(
124                  name => 'Staklo',                  name => 'Staklo',
125                  inv_id => '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 130  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 $cat = Arh::Model::Site->new;
142            $cat->create( name => $_ ) foreach ( qw/Pore Zagreb Sisak/ );
143  }  }
144    
145  1;  1;
Legend:
Removed from v.38  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.26