/[SQLSession]/trunk/lib/SQLSession/Model/Query.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

Diff of /trunk/lib/SQLSession/Model/Query.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/lib/SQLSession/Model/Page.pm revision 14 by dpavlin, Sun Dec 3 13:45:00 2006 UTC trunk/lib/SQLSession/Model/Query.pm revision 71 by dpavlin, Thu Jan 25 21:16:49 2007 UTC
# Line 1  Line 1 
1  use strict;  use strict;
2  use warnings;  use warnings;
3    
4  package SQLSession::Model::Page;  package SQLSession::Model::Query;
5  use Jifty::DBI::Schema;  use Jifty::DBI::Schema;
6  use SQLSession::Model::Database;  use SQLSession::Model::Database;
7    use SQLSession::Model::User;
8    use Scalar::Defer;
9    
10  use SQLSession::Record schema {  use SQLSession::Record schema {
11          column name =>          column name =>
12                  type is 'text',                  type is 'text',
13                  label is 'Name of query',                  label is 'Name of query',
14                  distinct,                  distinct,
15                  hints is 'Short name of this page',                  hints is 'Short name for this query',
16                  mandatory;                  mandatory;
17    
18          column sql_query =>          column sql_query =>
# Line 22  use SQLSession::Record schema { Line 24  use SQLSession::Record schema {
24                  render as 'textarea';                  render as 'textarea';
25                    
26          column on_database =>          column on_database =>
27                  refers_to SQLSession::Model::Database by 'name';                  refers_to SQLSession::Model::Database by 'id',
28                    label is 'on database',
29                    mandatory;
30            
31            column note =>
32                    type is 'text',
33                    label is 'Note',
34                    render as 'textarea',
35                    since '0.0.2';
36            
37            column visible =>
38                    type is 'boolean',
39                    default is 1,
40                    indexed,
41                    since '0.0.3';
42    
43            column owner =>
44                    refers_to SQLSession::Model::User by 'id',
45                    label is 'Query owner',
46                    default is defer { Jifty->web->current_user->id || 0 },
47                    since '0.0.6';
48    
49            column created_on =>
50                    type is 'timestamp',
51                    label is 'Created On',
52                    default is defer { DateTime->now },
53                    filters are 'Jifty::DBI::Filter::DateTime',
54                    since '0.0.6';
55  };  };
56    
57  # Your model-specific methods go here.  # Your model-specific methods go here.
58    
59    sub current_user_can {
60            my $self = shift;
61    
62            my ($action,$item,$name) = @_;
63    
64            # prevent deep recursion for next rule
65            if ( $action && $item && $name &&
66                    $action eq 'read' && $item eq 'column' && ( $name eq 'owner' || $name eq 'visible' )
67            ) {
68                    return 1;
69            }
70    
71            if ( $self->visible || $self->owner == $self->current_user->id ) {
72                    return 1;
73            };
74    
75            return 1 if ( $self->visible && self->current_user->role('edit'));
76    
77            return 1 if ( $self->current_user->is_superuser );
78    
79            return 0;
80    }
81    
82  1;  1;
83    
Legend:
Removed from v.14  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.26