88 |
name => 'mjesto iskapanja', |
name => 'mjesto iskapanja', |
89 |
); |
); |
90 |
|
|
|
=for later |
|
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( |
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', |
138 |
my $cat = Arh::Model::Category->new; |
my $cat = Arh::Model::Category->new; |
139 |
$cat->create( name => $_ ) foreach ( qw/arhitektura skulptura slikarstvo liturgijske instalacije epigrafija metal/ ); |
$cat->create( name => $_ ) foreach ( qw/arhitektura skulptura slikarstvo liturgijske instalacije epigrafija metal/ ); |
140 |
|
|
141 |
my $cat = Arh::Model::Site->new; |
my $site = Arh::Model::Site->new; |
142 |
$cat->create( name => $_ ) foreach ( qw/Poreè Zagreb Sisak/ ); |
$site->create( name => $_ ) foreach ( qw/Poreè Zagreb Sisak/ ); |
143 |
} |
} |
144 |
|
|
145 |
1; |
1; |