--- trunk/lib/SQLSession/Model/Query.pm 2007/01/28 00:46:48 73 +++ trunk/lib/SQLSession/Model/Query.pm 2007/01/28 00:59:43 74 @@ -61,6 +61,8 @@ my ($action,$item,$name) = @_; +# warn "$action | $item | $name "; + # prevent deep recursion for next rule if ( $action && $item && $name && $action eq 'read' && $item eq 'column' && ( $name eq 'owner' || $name eq 'visible' ) @@ -72,7 +74,8 @@ return 1; }; - return 1 if ( $self->visible && self->current_user->role('edit')); + return 1 if ( $self->visible && $self->current_user->role('edit')); + return 1 if ( $action eq 'create' && $self->current_user->role('edit')); return 1 if ( $self->current_user->is_superuser );