Parent Directory | Revision Log
added bunch of models and script to resize tif pictures
1 | use warnings; |
2 | use strict; |
3 | |
4 | package Arh::Bootstrap; |
5 | use base qw(Jifty::Bootstrap); |
6 | |
7 | =head1 Bootstrap application data |
8 | |
9 | Create initial data |
10 | |
11 | =cut |
12 | |
13 | sub run { |
14 | my $self = shift; |
15 | |
16 | my $system_user = Arh::CurrentUser->superuser( _bootstrap => 1 ); |
17 | |
18 | my $pt = Arh::Model::PictureType->new(current_user => $system_user); |
19 | |
20 | $pt->create( name => $_ ) foreach ( qw/ |
21 | tlocrt |
22 | slika |
23 | rekonstrukcija |
24 | aksiometrija |
25 | arhitektura |
26 | namjeĀ¹taj |
27 | / ); |
28 | |
29 | } |
30 | |
31 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |