diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-10-01 15:22:54 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-10-01 15:22:54 +0000 |
| commit | 13f9a95feb9a322a052e01fad613eb072251393b (patch) | |
| tree | c322f9d55e0ac1eb37c42f7f3345c8ae0ce19e0c /perl-install | |
| parent | fbefee92f724b73cb53e943cd19f80f898eec084 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 6 |
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); |