Changeset 2236 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

04/01/19 16:57:40 (5 years ago)

Author:

nanardon

Message:

Don't maintains attributes list in SQL table anymore

This patch remove the attributes_list table which contain the list of
allowed attributes on object.
The list of attributes is now only in the application side.

File:

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

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

@@ -18 +18 @@
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
-sub SCHEMA_VERSION { 30 };
+sub SCHEMA_VERSION { 31 };
 
 =head1 NAME
@@ -104 +104 @@
                     $self->rollback;
                     return;
-                }
-            }
-        }
-
-        foreach my $otype ($self->list_supported_objects) {
-            my %attrlist = map { $_ => 1 } $self->list_registered_attributes($otype);
-            foreach my $attribute ($self->list_canonical_fields($otype, 'a')) {
-                my $attr = $self->attribute($otype, $attribute);
-                $attr->{inline} and next;
-                $attr->{managed} and next;
-
-                if ($attrlist{$attribute}) {
-                } else {
-                    if($self->register_attribute($otype, $attribute, $attr->{comment})) {
-                        $self->log(LA_NOTICE, "Attr. $attribute for object type $otype registred");
-                    } else {
-                        $self->log(LA_ERR, "Can't register attribute $attribute");
-                        $self->{_db}->rollback;
-                        return;
-                    }
                 }
             }
@@ -967 +947 @@
 }
 
-=head2 register_attribute ($otype, $attribute, $comment)
-
-Register a new attribute in base
-
-=cut
-
-sub register_attribute {
-    my ($self, $otype, $attribute, $comment) = @_;
-    my $pclass = $self->_load_obj_class($otype) or return;
-    $pclass->register_attribute($self, $attribute, $comment);
-}
-
-=head2 is_registered_attribute ($otype, $attribute)
-
-Return true is attribute already exists
-
-=cut
-
-sub is_registered_attribute {
-    my ($self, $otype, $attribute) = @_;
-    my $pclass = $self->_load_obj_class($otype) or return;
-    $pclass->is_registered_attribute($self, $attribute);
-}
-
-=head2 list_registered_attributes ($otype)
-
-List all regiestered attribute
-
-=cut
-
-sub list_registered_attributes {
-    my ($self, $otype) = @_;
-    my $pclass = $self->_load_obj_class($otype) or return;
-    if ($pclass->_has_extended_attributes) {
-        return $pclass->list_registered_attributes($self);
-    } else {
-        return ();
-    }
-}
-
-=head2 get_attribute_comment ($otype, $attribute)
-
-Return the comment associated to attribute
-
-=cut
-
-sub get_attribute_comment {
-    my ($self, $otype, $attribute) = @_;
-    my $pclass = $self->_load_obj_class($otype) or return;
-    $pclass->get_attribute_comment($self, $attribute);
-}
-
-=head2 set_attribute_comment ($otype, $attribute, $comment)
-
-Set comment to attribute
-
-=cut
-
-sub set_attribute_comment {
-    my ($self, $otype, $attribute, $comment) = @_;
-    my $pclass = $self->_load_obj_class($otype) or return;
-    $pclass->set_attribute_comment($self, $attribute, $comment);
-}
-
 =head2 getEmploymentRange