From 52d23f43f57b0c0fcf3147ff2542663575b309f5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 30 Sep 2008 04:06:24 +0000
Subject: (get_html_file,display_help) add basic support for anchors

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

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

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},
-- 
cgit v1.2.1