diff options
| -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}, |