Parent Directory | Revision Log
added bunch of models and script to resize tif pictures
1 | dpavlin | 4 | 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 |