From c53e74888916d504993bf17dfe3defaf92978667 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 20 Mar 2008 01:51:58 +0000
Subject: update OpenOffice/BrOffice alternative according to selected lang
 (#37820)

---
 perl-install/NEWS         | 2 ++
 perl-install/install/NEWS | 1 +
 perl-install/lang.pm      | 8 ++++++++
 3 files changed, 11 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 611434e3f..cd157ddb6 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -6,6 +6,8 @@
     (no timezone selection, ntp settings as advanced)
 - move functions to get available space from installer
   (to be used in draklive-install)
+- localedrake: update OpenOffice/BrOffice alternative according to
+  selected lang (#37820)
 
 Version 10.16.1 - 18 March 2008
 
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index d199a5dc0..d23bd5716 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,4 +1,5 @@
 - do not unconfigure timezone if timezone screen is canceled (#33565)
+- update OpenOffice/BrOffice alternative according to selected lang (#37820)
 
 Version 10.16 - 18 March 2008
 
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 272c61e6f..6e1dfbcfc 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -1209,6 +1209,14 @@ sub write {
 	}
 
     } if !$b_dont_touch_kde_files;
+
+    #- update alternatives for OpenOffice/BrOffice if present
+    foreach my $name (grep { /^oobr_bootstraprc/ } all("$::prefix/var/lib/alternatives/")) {
+        my $alternative  = common::get_alternatives($name) or next;
+        my $wanted = $locale->{lang} eq 'pt_BR' ? 'bootstraprc.bro' : 'bootstraprc.ooo';
+        my $path = find { basename($_) eq $wanted } map { $_->{file} } @{$alternative->{alternatives}};
+        common::symlinkf_update_alternatives($name, $path) if $path;
+    }
 }
 
 sub configure_hal {
-- 
cgit v1.2.1