/[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

revision 62 by dpavlin, Thu Jan 25 19:16:18 2007 UTC revision 71 by dpavlin, Thu Jan 25 21:16:49 2007 UTC
# Line 4  use warnings; Line 4  use warnings;
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 {
# Line 71  sub current_user_can { Line 72  sub current_user_can {
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  }  }
Legend:
Removed from v.62  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.26