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 { |
72 |
return 1; |
return 1; |
73 |
}; |
}; |
74 |
|
|
75 |
return 1 if ($self->current_user->role('edit')); |
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 |
} |
} |