Changeset 486

Timestamp:

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

Author:

nanardon

Message:

• fix warning

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
@@ -258 +268 @@
 
 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);
@@ -384 +409 @@
         }
     } 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 {