Changeset 741 for LATMOS-Accounts/lib/LATMOS
- Timestamp:
- 01/25/10 11:59:26 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r731 r741 93 93 allsite => 'allsite', 94 94 managerContact => 'managerContact', 95 expireText => 'expireText', 95 96 ) : ()), 96 97 ) … … 109 110 $self->_get_c_field('physicalDeliveryOfficeName'))) || '', 110 111 $self->_get_c_field('telephoneNumber') || '', 111 ''112 $self->_get_c_field('expireText') || '', 112 113 ); 113 114 $gecos =~ s/:/ /g; … … 188 189 $res->{expire} =~ /(\d+) days\s*(\w)?/; 189 190 return $1 + ($2 ? 1 : 0); 191 } elsif ($field eq 'expireText') { 192 my $sth = $self->db->prepare_cached( 193 sprintf( 194 q{select to_char(expire, 'Dy. DD Mon YYYY') as expire 195 from %s where %s = ?}, 196 $self->db->quote_identifier($self->object_table), 197 $self->db->quote_identifier($self->key_field), 198 ) 199 ); 200 $sth->execute($self->id); 201 my $res = $sth->fetchrow_hashref; 202 $sth->finish; 203 return $res->{expire} 190 204 } elsif ($field eq 'otheraddress') { 191 205 my $sth = $self->db->prepare_cached(q{
Note: See TracChangeset
for help on using the changeset viewer.