Changeset 852 for LATMOS-Accounts/lib

Timestamp:

04/04/10 18:22:20 (14 years ago)

Author:

nanardon

Message:

• add basic code to handle attributes schema and factorize code through all possible GUI (web/curses/...)

Location:

LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases.pm (modified) (2 diffs)
• Bases/Attributes.pm (added)
• Bases/Objects.pm (modified) (2 diffs)

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

@@ -5 +5 @@
 use warnings;
 use LATMOS::Accounts::Bases::Objects;
+use LATMOS::Accounts::Bases::Attributes;
 use LATMOS::Accounts::Log;
 use LATMOS::Accounts::Utils qw(exec_command to_ascii);
@@ -139 +140 @@
     my $pclass = $self->_load_obj_class($otype) or return;
     sort $pclass->_canonical_fields($self, $for);
+}
+
+sub get_attr_schema {
+    my ($self, $otype, $attribute) = @_;
+    my $pclass = $self->_load_obj_class($otype) or return;
+    if ($pclass->can('_get_attr_schema')) {
+        my $info = $pclass->_get_attr_schema($attribute);
+        return $info if ($info);
+    }
+    if ($self->can('_get_attr_schema')) {
+        my $info = $self->_get_attr_schema($otype, $attribute);
+        return $info if($info);
+    }
+    return {}
+}
+
+sub attribute {
+    my ($self, $otype, $attribute) = @_;
+    return LATMOS::Accounts::Bases::Attributes->new(
+        $attribute,
+        $self,
+        $otype,
+    );
 }
 

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

@@ -5 +5 @@
 use warnings;
 use LATMOS::Accounts::Log;
+use LATMOS::Accounts::Bases::Attributes;
 use Crypt::Cracklib;
 
@@ -127 +128 @@
     $self->base->list_canonical_fields($self->type, $for);
 }
+
+sub attribute {
+    my ($self, $attribute) = @_;
+    return LATMOS::Accounts::Bases::Attributes->new(
+        $attribute,
+        $self,
+    );
+}   
 
 =head2 get_field_name($field, $for)