/[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 4 by dpavlin, Thu Nov 29 11:20:24 2007 UTC revision 9 by dpavlin, Thu Nov 29 16:40:10 2007 UTC
# Line 23  slika Line 23  slika
23  rekonstrukcija  rekonstrukcija
24  aksiometrija  aksiometrija
25  arhitektura  arhitektura
26  namjetaj  namještaj
27  / );  / );
28    
29            my $chronology = Arh::Model::Chronology->new(current_user => $system_user);
30            $chronology->create(
31                    name => 'kraj 8. stoljeća',
32            );
33    
34            my $material = Arh::Model::Material->new;
35            $material->create(
36                    name => 'tvrdi vapnenac',
37            );
38    
39            my $location = Arh::Model::Location->new;
40            $location->create(
41                    name => 'Lapidarij u Balama',
42            );
43    
44            my $place = Arh::Model::Place->new;
45            $place->create(
46                    name => 'mjesto iskapanja',
47            );
48    
49            my $campaign = Arh::Model::Campaign->new(current_user => $system_user);
50            $campaign->create(
51                    place => $place,
52                    name => 'prvo iskapanje',
53                    date_from => '2007-11-28',
54                    date_to => '2008-03-15',
55            );
56    
57            my $unit = Arh::Model::Unit->new(current_user => $system_user);
58            $unit->create(
59                    name => 'Mali kapitel stupića mnolitnog oltara',
60                    number => 'SMV - 96/60',
61                    campaign => $campaign,
62                    dimensions => 'visina kapitola 13,5 cm; ukupna visina: 14,5 cm; presjek 13,5x13,5x5cm; manji presjek 11cm',
63                    position => 'otkriveno cca 12m od istočne fasade crkve',
64                    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.',
65                    chronology => $chronology,
66                    location => $location,
67            );
68    
69            my $um = Arh::Model::UnitMaterial->new;
70            $um->create(
71                    unit => $unit,
72                    material => $material,
73            );
74  }  }
75    
76  1;  1;
Legend:
Removed from v.4  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26