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

Timestamp:

01/25/10 11:59:26 (14 years ago)

Author:

nanardon

Message:

• add user attributes expireText, showing date in human readeable format
• add expire date into gecos (last value is unused) #4

File:

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

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

@@ -93 +93 @@
         allsite   => 'allsite',
         managerContact => 'managerContact',
+        expireText => 'expireText',
         ) : ()),
     )
@@ -109 +110 @@
                 $self->_get_c_field('physicalDeliveryOfficeName'))) || '',
             $self->_get_c_field('telephoneNumber') || '',
-            ''
+            $self->_get_c_field('expireText') || '',
         );
         $gecos =~ s/:/ /g;
@@ -188 +189 @@
         $res->{expire} =~ /(\d+) days\s*(\w)?/;
         return $1 + ($2 ? 1 : 0);
+    } elsif ($field eq 'expireText') {
+        my $sth = $self->db->prepare_cached(
+            sprintf(
+                q{select to_char(expire, 'Dy. DD Mon YYYY') as expire
+                from %s where %s = ?},
+                $self->db->quote_identifier($self->object_table),
+                $self->db->quote_identifier($self->key_field),
+            )
+        );
+        $sth->execute($self->id);
+        my $res = $sth->fetchrow_hashref;
+        $sth->finish;
+        return $res->{expire}
     } elsif ($field eq 'otheraddress') {
         my $sth = $self->db->prepare_cached(q{