4 |
package SQLSession::Model::Query; |
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; |
use Scalar::Defer; |
9 |
|
|
10 |
use SQLSession::Record schema { |
use SQLSession::Record schema { |
44 |
refers_to SQLSession::Model::User by 'id', |
refers_to SQLSession::Model::User by 'id', |
45 |
label is 'Query owner', |
label is 'Query owner', |
46 |
default is defer { Jifty->web->current_user->id || 0 }, |
default is defer { Jifty->web->current_user->id || 0 }, |
|
mandatory, |
|
47 |
since '0.0.6'; |
since '0.0.6'; |
48 |
|
|
49 |
column created_on => |
column created_on => |
72 |
return 1; |
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; |
return 0; |
80 |
} |
} |
81 |
|
|