/[Grep]/lib/Grep/Model/Item.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /lib/Grep/Model/Item.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 128 - (show annotations)
Sun Apr 29 00:48:04 2007 UTC (16 years, 11 months ago) by dpavlin
File size: 1687 byte(s)
use superuser when reindex-ing
1 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 sub since { '0.0.1' }
47
48 # Your model-specific methods go here.
49
50 sub current_user_can {
51 my $self = shift;
52 my $what = shift;
53
54 my $uid = Jifty->web->current_user->id;
55
56 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 # Jifty->log->debug("current_user[$uid]_can($what) on Item ", $self->id || '???', " owner ", $owner_id || '???');
63
64 return 1 if ( $uid && $owner_id && $uid == $owner_id );
65
66 # system user
67 return 1 if ( defined( $uid ) && $uid == 0 );
68
69 warn "$uid can't $what";
70 }
71
72 =for TODO
73
74 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 # use Data::Dump qw/dump/;
84 # warn "after_create ", dump( $self->as_hash );
85
86 return; # return value is ignored
87 }
88
89 =cut
90
91 1;
92

  ViewVC Help
Powered by ViewVC 1.1.26