Grep/Model/Item.pm

use strict;
use warnings;

package Grep::Model::Item;
use Jifty::DBI::Schema;

use Grep::Model::Feed;

use Grep::Record schema {

        column in_feed =>
                refers_to Grep::Model::Feed by 'id',
                is mandatory;
        
        column title =>
                type is 'text',
                is mandatory;
        
        column link =>
                type is 'text',
                is mandatory;
        
        column content =>
                type is 'text',
                is mandatory;

        column summary =>
                type is 'text';

        column category =>
                type is 'text';
        
        column author =>
                type is 'text';

        column issued =>
                type is 'timestamp',
                filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );

        column modified =>
                type is 'timestamp',
                filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );

};

sub since { '0.0.1' }

# Your model-specific methods go here.

sub current_user_can {
        my $self = shift;
        my $what = shift;

        my $uid = Jifty->web->current_user->id;

        return 1 if ( $uid && $what eq 'create' );

        return 1 if ( $uid && ! $self->id );

        my $owner_id = $self->in_feed->owner->id;

#       Jifty->log->debug("current_user[$uid]_can($what) on Item ", $self->id || '???', " owner ", $owner_id || '???');

        return 1 if ( $uid && $owner_id && $uid == $owner_id );

        # system user
        return 1 if ( defined( $uid ) && $uid == 0 );

        warn "$uid can't $what";
}

=for TODO

sub after_create {
        my $self                    = shift;
        my $insert_return_value_ref = shift;

        return unless $$insert_return_value_ref;    # bail if insert failed
        $self->load($$insert_return_value_ref);     # load ourselves from db

        # Do whatever needs to be done here

#       use Data::Dump qw/dump/;
#       warn "after_create ", dump( $self->as_hash );

        return; # return value is ignored
}

=cut

1;

1	dpavlin	2	use strict;
2			use warnings;
3
4			package Grep::Model::Item;
5			use Jifty::DBI::Schema;
6
7			use Grep::Model::Feed;
8
9			use Grep::Record schema {
10
11			column in_feed =>
12			refers_to Grep::Model::Feed by 'id',
13			is mandatory;
14
15			column title =>
16			type is 'text',
17			is mandatory;
18
19			column link =>
20			type is 'text',
21			is mandatory;
22
23			column content =>
24			type is 'text',
25			is mandatory;
26
27			column summary =>
28			type is 'text';
29
30			column category =>
31			type is 'text';
32
33			column author =>
34			type is 'text';
35
36			column issued =>
37			type is 'timestamp',
38			filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );
39
40			column modified =>
41			type is 'timestamp',
42			filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );
43
44			};
45
46	dpavlin	3	sub since { '0.0.1' }
47
48	dpavlin	2	# Your model-specific methods go here.
49
50	dpavlin	37	sub current_user_can {
51			my $self = shift;
52			my $what = shift;
53
54	dpavlin	63	my $uid = Jifty->web->current_user->id;
55	dpavlin	37
56	dpavlin	63	return 1 if ( $uid && $what eq 'create' );
57
58			return 1 if ( $uid && ! $self->id );
59
60			my $owner_id = $self->in_feed->owner->id;
61
62	dpavlin	70	# Jifty->log->debug("current_user[$uid]_can($what) on Item ", $self->id \|\| '???', " owner ", $owner_id \|\| '???');
63	dpavlin	63
64	dpavlin	110	return 1 if ( $uid && $owner_id && $uid == $owner_id );
65	dpavlin	128
66			# system user
67			return 1 if ( defined( $uid ) && $uid == 0 );
68
69			warn "$uid can't $what";
70	dpavlin	37	}
71
72	dpavlin	128	=for TODO
73
74	dpavlin	127	sub after_create {
75			my $self = shift;
76			my $insert_return_value_ref = shift;
77
78			return unless $$insert_return_value_ref; # bail if insert failed
79			$self->load($$insert_return_value_ref); # load ourselves from db
80
81			# Do whatever needs to be done here
82
83	dpavlin	128	# use Data::Dump qw/dump/;
84			# warn "after_create ", dump( $self->as_hash );
85	dpavlin	127
86			return; # return value is ignored
87			}
88
89	dpavlin	128	=cut
90
91	dpavlin	2	1;
92