Revision c87608ab
Von Moritz Bunkus vor etwa 16 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 311 | 311 |
return @dbsources; |
| 312 | 312 |
} |
| 313 | 313 |
|
| 314 |
sub dbclusterencoding {
|
|
| 315 |
$main::lxdebug->enter_sub(); |
|
| 316 |
|
|
| 317 |
my ($self, $form) = @_; |
|
| 318 |
|
|
| 319 |
$form->{dbdefault} ||= $form->{dbuser};
|
|
| 320 |
|
|
| 321 |
dbconnect_vars($form, $form->{dbdefault});
|
|
| 322 |
|
|
| 323 |
my $dbh = DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}) || $form->dberror();
|
|
| 324 |
my $query = qq|SELECT pg_encoding_to_char(encoding) FROM pg_database WHERE datname = 'template0'|; |
|
| 325 |
my ($cluster_encoding) = $dbh->selectrow_array($query); |
|
| 326 |
$dbh->disconnect(); |
|
| 327 |
|
|
| 328 |
$main::lxdebug->leave_sub(); |
|
| 329 |
|
|
| 330 |
return $cluster_encoding; |
|
| 331 |
} |
|
| 332 |
|
|
| 314 | 333 |
sub dbcreate {
|
| 315 | 334 |
$main::lxdebug->enter_sub(); |
| 316 | 335 |
|
Auch abrufbar als: Unified diff
Bugfix beim Anlegen der Authentifizierungsdatenbank mit UTF-8. Anzeigen von Fehlermeldungen, wenn Lx-Office nicht mit UTF-8 sondern z.B. ISO-8859 konfiguriert ist und Datenbanken auf einem PostgreSQL angelegt werden sollen, das selber UTF-8 verwendet (weil das nicht geht). Forcieren von UTF-8 als Datenbankcharset auf PostgreSQL-Installationen, die mit UTF-8 als Charset angelegt wurden.