Changeset 487

Timestamp:

10/04/09 17:11:07 (15 years ago)

Author:

nanardon

Message:

• revert previous commit

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm (modified) (3 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

@@ -226 +226 @@
 sub create_c_object {
     my ($self, $otype, $id, %cdata) = @_;
-    $self->check_acl($otype, '@CREATE', 'w') or do {
-        $self->log(LA_WARN, 'permission denied to create object type %s',
-            $otype);
-        return;
-    };
-    $self->_create_c_object($otype, $id, %cdata);
-}
-
-sub _create_c_object {
-    my ($self, $otype, $id, %cdata) = @_;
 
     # populating default value
@@ -268 +258 @@
 
 sub delete_object {
-    my ($self, $otype, $id) = @_;
-    my $obj = $self->get_object($otype, $id) or do {
-        $self->log(LA_WARN, 'Cannot delete %s/%s: no such object',
-            $otype, $id);
-        return;
-    };
-    $self->check_acl($obj, '@DELETE', 'w') or do {
-        $self->log(LA_WARN, 'permission denied to delete %s/%s',
-            $otype, $id);
-        return;
-    };
-    $self->_delete_object($otype, $id);
-}
-
-sub _delete_object {
     my ($self, $otype, $id) = @_;
     my $pclass = $self->_load_obj_class($otype);
@@ -409 +384 @@
         }
     } elsif(!$options{nocreate}) {
-        if ($self->_create_c_object($srcobj->type, $srcobj->id, %data)) {
+        if ($self->create_c_object($srcobj->type, $srcobj->id, %data)) {
             return 'CREATE'
         } else {