Arh/Model/Picture.pm

use strict;
use warnings;

package Arh::Model::Picture;
use Jifty::DBI::Schema;
use File::Find;
use Data::Dump qw/dump/;

use Arh::Record schema {

        column filename =>
                label is _("Picture filename");
#               is immutable,
#               is indexed,
#               is unique;

        column content =>
                label is _('Picture'),
                type is 'bytea',
#               render as 'Upload',
                render as 'Arh::Web::Form::Field::Upload',
                is mandatory;

        column campaign =>
                label is _("Part of campaign"),
                refers_to Arh::Model::Campaign,
                is mandatory,
                is indexed,
                since '0.0.4';
        
        column type =>
                label is _("Type of picture"),
                refers_to Arh::Model::PictureType,
                is mandatory,
                is indexed,
                since '0.0.4';

        column unit =>
                label is _('Unit'),
                refers_to Arh::Model::Unit,
                is mandatory,
                is indexed;

        column thumbnail =>
                label is _('Thumbnail name'),
                is indexed,
                since '0.0.12';

        column width =>
                label is _('Thumbnail width'),
                type is 'int',
                since '0.0.12';

        column height =>
                label is _('Thumbnail height'),
                type is 'int',
                since '0.0.12';

};

# Your model-specific methods go here.

sub all_filenames {

        my @files;
        my $path = Jifty::Util->app_root . '/share/web/static/pics';

#       warn "## path = $path";

        find({ wanted => sub {
                my $f = $File::Find::name;
                return unless -f $f;
                push @files, $_;
        }, follow => 0 }, $path);

#       warn "## all_filenames = ",dump( @files );

        return @files;
}

#use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on

use Arh::DefaultACL;

1;

1	dpavlin	4	use strict;
2			use warnings;
3
4			package Arh::Model::Picture;
5			use Jifty::DBI::Schema;
6	dpavlin	6	use File::Find;
7			use Data::Dump qw/dump/;
8	dpavlin	4
9			use Arh::Record schema {
10
11	dpavlin	44	column filename =>
12			label is _("Picture filename");
13			# is immutable,
14			# is indexed,
15			# is unique;
16
17			column content =>
18			label is _('Picture'),
19			type is 'bytea',
20	dpavlin	53	# render as 'Upload',
21			render as 'Arh::Web::Form::Field::Upload',
22	dpavlin	44	is mandatory;
23
24	dpavlin	4	column campaign =>
25			label is _("Part of campaign"),
26			refers_to Arh::Model::Campaign,
27	dpavlin	17	is mandatory,
28	dpavlin	4	is indexed,
29			since '0.0.4';
30
31			column type =>
32			label is _("Type of picture"),
33			refers_to Arh::Model::PictureType,
34	dpavlin	17	is mandatory,
35	dpavlin	4	is indexed,
36	dpavlin	5	since '0.0.4';
37	dpavlin	4
38	dpavlin	50	column unit =>
39			label is _('Unit'),
40			refers_to Arh::Model::Unit,
41			is mandatory,
42			is indexed;
43
44	dpavlin	61	column thumbnail =>
45			label is _('Thumbnail name'),
46	dpavlin	62	is indexed,
47			since '0.0.12';
48	dpavlin	61
49			column width =>
50			label is _('Thumbnail width'),
51	dpavlin	62	type is 'int',
52			since '0.0.12';
53	dpavlin	61
54			column height =>
55			label is _('Thumbnail height'),
56	dpavlin	62	type is 'int',
57			since '0.0.12';
58	dpavlin	61
59	dpavlin	4	};
60
61			# Your model-specific methods go here.
62
63	dpavlin	6	sub all_filenames {
64
65			my @files;
66			my $path = Jifty::Util->app_root . '/share/web/static/pics';
67
68	dpavlin	13	# warn "## path = $path";
69	dpavlin	6
70			find({ wanted => sub {
71			my $f = $File::Find::name;
72			return unless -f $f;
73			push @files, $_;
74			}, follow => 0 }, $path);
75
76	dpavlin	13	# warn "## all_filenames = ",dump( @files );
77	dpavlin	6
78			return @files;
79			}
80
81	dpavlin	10	#use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on
82
83	dpavlin	13	use Arh::DefaultACL;
84	dpavlin	10
85	dpavlin	4	1;
86