summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-10-01 15:22:54 +0000
committerThierry Vignaud <tv@mandriva.org>2008-10-01 15:22:54 +0000
commit13f9a95feb9a322a052e01fad613eb072251393b (patch)
treec322f9d55e0ac1eb37c42f7f3345c8ae0ce19e0c /perl-install/interactive/gtk.pm
parentfbefee92f724b73cb53e943cd19f80f898eec084 (diff)
downloaddrakx-13f9a95feb9a322a052e01fad613eb072251393b.tar
drakx-13f9a95feb9a322a052e01fad613eb072251393b.tar.gz
drakx-13f9a95feb9a322a052e01fad613eb072251393b.tar.bz2
drakx-13f9a95feb9a322a052e01fad613eb072251393b.tar.xz
drakx-13f9a95feb9a322a052e01fad613eb072251393b.zip
(is_help_file_exist) introduce it
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm6
1 files changed, 6 insertions, 0 deletions
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);