diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-30 04:06:24 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-30 04:06:24 +0000 |
| commit | 52d23f43f57b0c0fcf3147ff2542663575b309f5 (patch) | |
| tree | 83f535a73e8bd8d65bc9dca5d97a8ccedbc27b66 /perl-install/interactive | |
| parent | 52c4b1a37afabec90bd74cfd2a83b9cbf7539502 (diff) | |
| download | drakx-52d23f43f57b0c0fcf3147ff2542663575b309f5.tar drakx-52d23f43f57b0c0fcf3147ff2542663575b309f5.tar.gz drakx-52d23f43f57b0c0fcf3147ff2542663575b309f5.tar.bz2 drakx-52d23f43f57b0c0fcf3147ff2542663575b309f5.tar.xz drakx-52d23f43f57b0c0fcf3147ff2542663575b309f5.zip | |
(get_html_file,display_help) add basic support for anchors
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index be2946090..f04c04e32 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -773,6 +773,8 @@ sub load_from_uri { sub get_html_file { my ($o, $url) = @_; + $url =~ s/#.*//; + $url .= '.html' if $url !~ /\.html$/; find { -e $_ } map { "$help_path/${_}" } map { my $id = $_; @@ -787,7 +789,7 @@ sub display_help { require Gtk2::WebKit; my $view = gtknew('WebKit_View'); - load_from_uri($view, "$file.html"); + load_from_uri($view, $file); my $w = ugtk2->new(N("Help"), transient => $mainw->{real_window}, modal => 1); gtkadd($w->{rwindow}, |