From c2a709ca28f5d3bb13b60e3bc0c070ef43750a03 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Tue, 1 Mar 2005 12:41:55 +0000
Subject: - use any::launch_browser_with_wm

---
 perl-install/standalone/drakhelp | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakhelp b/perl-install/standalone/drakhelp
index d76ce8939..97291dde2 100644
--- a/perl-install/standalone/drakhelp
+++ b/perl-install/standalone/drakhelp
@@ -35,14 +35,4 @@ my ($instpath, $ancpath, $package) = ctxhelp::path2help($opt, $idlabel);
 -e $instpath or system("/usr/sbin/drakhelp_inst $package");
 -e $instpath or $in->ask_warn(N("Mandrakelinux Help Center"), N("%s cannot be displayed \n. No Help entry of this type\n", $instpath));
 
-my $wm = any::running_window_manager();
-my %launchhelp = (
-		  'kwin' => sub { system("webclient-kde " . $ancpath . "&") },
-		  'gnome-session' => sub { system("yelp ghelp://" . $ancpath . "&") },
-		  'other' => sub { my $browser = $ENV{BROWSER} || find { -x "/usr/bin/$_" } qw(mozilla konqueror epiphany galeon) or $in->ask_warn('drakhelp', N("No browser is installed on your system, Please install one if you want to browse the help system"));
-				   log::explanations("Loading help system : $ancpath");
-				   system("$browser " . $ancpath . "&") 
-			       }
-		 );
-member($wm, 'kwin', 'gnome-session') or $wm = 'other';
--e $instpath and eval { $launchhelp{$wm}->() };
+-e $instpath and any::launch_browser_with_wm($ancpath);
-- 
cgit v1.2.1