From 13f9a95feb9a322a052e01fad613eb072251393b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 1 Oct 2008 15:22:54 +0000
Subject: (is_help_file_exist) introduce it

---
 perl-install/interactive/gtk.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl-install/interactive/gtk.pm')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index af8c51453..5ec9f3c2f 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -763,6 +763,12 @@ sub filter_widgets {
 
 my $help_path = "/usr/share/doc/installer-help";
 
+sub is_help_file_exist {
+    my ($id) = @_;
+    $id =~ s/#.*//;
+    -e "$help_path/$id.html";
+}
+
 sub load_from_uri {
     my ($view, $url) = @_;
     $url = get_html_file($::o, $url);
-- 
cgit v1.2.1