--- trunk/lib/SQLSession/CurrentUser.pm	2007/01/25 18:19:02	60
+++ trunk/lib/SQLSession/CurrentUser.pm	2007/01/25 20:42:11	69
@@ -59,6 +59,8 @@
 
 	return 1 if ($role eq 'admin' && $self->current_user->is_superuser);
 
+	return 1 if ($role eq 'edit' && $self->current_user->user_object->email_confirmed);
+
 	my $r = SQLSession::Model::Role->new();
 	$r->load_by_cols(
 		user_id => $self->current_user->id,