Revision c87608ab
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
bin/mozilla/admin.pl | ||
---|---|---|
721 | 721 |
} |
722 | 722 |
|
723 | 723 |
sub create_dataset { |
724 |
$form->{dbsources} = join " ", map { "[${_}]" } sort User->dbsources(\%$form);
|
|
724 |
$form->{dbsources} = join " ", map { "[${_}]" } sort User->dbsources($form); |
|
725 | 725 |
|
726 | 726 |
$form->{CHARTS} = []; |
727 | 727 |
|
... | ... | |
737 | 737 |
my $default_charset = $dbcharset; |
738 | 738 |
$default_charset ||= Common::DEFAULT_CHARSET; |
739 | 739 |
|
740 |
$form->{DBENCODINGS} = []; |
|
740 |
my $cluster_encoding = User->dbclusterencoding($form); |
|
741 |
if ($cluster_encoding && ($cluster_encoding =~ m/^(?:UTF-?8|UNICODE)$/i)) { |
|
742 |
if ($dbcharset !~ m/^UTF-?8$/i) { |
|
743 |
$form->show_generic_error($locale->text('The selected PostgreSQL installation uses UTF-8 as its encoding. ' . |
|
744 |
'Therefore you have to configure Lx-Office to use UTF-8 as well.'), |
|
745 |
'back_button' => 1); |
|
746 |
} |
|
741 | 747 |
|
742 |
foreach my $encoding (@Common::db_encodings) { |
|
743 |
push @{ $form->{DBENCODINGS} }, { "dbencoding" => $encoding->{dbencoding}, |
|
744 |
"label" => $encoding->{label}, |
|
745 |
"selected" => $encoding->{charset} eq $default_charset }; |
|
748 |
$form->{FORCE_DBENCODING} = 'UNICODE'; |
|
749 |
|
|
750 |
} else { |
|
751 |
$form->{DBENCODINGS} = []; |
|
752 |
|
|
753 |
foreach my $encoding (@Common::db_encodings) { |
|
754 |
push @{ $form->{DBENCODINGS} }, { "dbencoding" => $encoding->{dbencoding}, |
|
755 |
"label" => $encoding->{label}, |
|
756 |
"selected" => $encoding->{charset} eq $default_charset }; |
|
757 |
} |
|
746 | 758 |
} |
747 | 759 |
|
748 | 760 |
$form->{title} = |
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.