--- lib/Arh/Model/UnitMaterial.pm	2007/11/29 19:32:41	12
+++ lib/Arh/Model/UnitMaterial.pm	2007/11/30 00:03:15	13
@@ -19,13 +19,7 @@
 
 # Your model-specific methods go here.
 
-sub current_user_can {
-	my ( $self, $action,$item,$name ) = @_;
-	return 1 if $self->current_user->administrator;
-	return 1 if $self->current_user->superuser;
-	return 1 if $action eq 'read';
-    return 0;
-}
+use Arh::DefaultACL;
 
 1;