Revision c2230797
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| sql/Pg-upgrade2/contacts_convert_cp_birthday_to_date.pl | ||
|---|---|---|
| 11 | 11 |
sub convert_to_date {
|
| 12 | 12 |
my ($self, $str) = @_; |
| 13 | 13 |
|
| 14 |
return '' if !$str;
|
|
| 14 |
return '' if !$str || ($str =~ m/00.*00.*00.*00/); # 0000-00-00 may be present in old databases.
|
|
| 15 | 15 |
|
| 16 | 16 |
my $sth = $self->dbh->prepare('SELECT ?::date AS date') or return undef;
|
| 17 |
$sth->execute($str) or return undef; |
|
| 17 |
$sth->execute($str) or return undef;
|
|
| 18 | 18 |
|
| 19 | 19 |
return $sth->fetchrow_hashref->{date};
|
| 20 | 20 |
} |
Auch abrufbar als: Unified diff
Umstellung Geburtsspalte Ansprechppersonen auf Datum: Wert '0000-00-00' als leer werten