Changeset 52 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

Timestamp:

04/25/09 23:56:24 (15 years ago)

Author:

nanardon

Message:

• add revision support in Sql base

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (1 diff)

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

@@ -41 +41 @@
 sub key_field { 'login' }
 
+sub get_field {
+    my ($self, $field) = @_;
+    if ($field eq 'gecos') {
+        return $self->get_field('firstname') . ' ' . $self->get_field('name');
+    } else {
+        return $self->SUPER::get_field($field);
+    }
+}
+
+sub set_fields {
+    my ($self, %data) = @_;
+    $self->SUPER::set_fields(
+        map { $_ => $data{$_} }
+        grep { $_ ne 'gecos' } keys %data
+    );
+}
+
 1;