From 174c1bf4baf78d83bcbfae169af2d934748b3476 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 30 Sep 2008 04:13:28 +0000 Subject: fix/adjust some help pages (#42986) --- perl-install/any.pm | 4 ++-- perl-install/diskdrake/hd_gtk.pm | 2 +- perl-install/install/NEWS | 2 ++ perl-install/install/steps_gtk.pm | 5 ++++- perl-install/security/level.pm | 2 +- perl-install/services.pm | 6 ++++-- 6 files changed, 14 insertions(+), 7 deletions(-) (limited to 'perl-install') diff --git a/perl-install/any.pm b/perl-install/any.pm index 3564ef8f6..14ac12749 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -1121,7 +1121,7 @@ sub selectCountry { $in->ask_from_( { title => N("Country / Region"), messages => N("Please choose your country"), - interactive_help_id => 'selectCountry', + interactive_help_id => 'misc-params.html#drakxid-selectCountry', if_(@best, advanced_messages => N("Here is the full list of available countries")), advanced_label => @best ? N("Other Countries") : N("Advanced"), }, @@ -1431,7 +1431,7 @@ sub configure_time_more { my $tz_prefix = timezone::get_timezone_prefix(); local $ENV{TZ} = ':' . $tz_prefix . '/' . $timezone->{timezone}; - $in->ask_from_({ interactive_help_id => 'configureTimezoneGMT', + $in->ask_from_({ interactive_help_id => 'misc-params#drakxid-configureTimezoneGMT', title => N("Date, Clock & Time Zone Settings"), }, [ { label => N("Date, Clock & Time Zone Settings"), title => 1 }, diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index a5828783e..a6a904589 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -162,7 +162,7 @@ sub add_kind2notebook { sub interactive_help() { if ($::isInstall) { - my $func = $in->interactive_help_sub_display_id('partition_with_diskdrake'); + my $func = $in->interactive_help_sub_display_id('diskdrake'); $func and $func->(); } else { require run_program; diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index dd4bd3c87..23858808b 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- fix/adjust some help pages (#42986) + Version 11.58 - 29 September 2008 - ask_deselect_media__copy_on_disk: diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 0b211221b..30c900a50 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -479,7 +479,10 @@ sub choosePackagesTree { return; }, auto_deps => N("Show automatically selected packages"), - interactive_help => sub { interactive::gtk::display_help($o, { interactive_help_id => 'choosePackages' }, $w) }, + interactive_help => sub { + interactive::gtk::display_help($o, + { interactive_help_id => + 'choosePackages#choosePackagesTree' }, $w) }, ok => N("Install"), cancel => N("Previous"), diff --git a/perl-install/security/level.pm b/perl-install/security/level.pm index 7f7188c86..826617ad3 100644 --- a/perl-install/security/level.pm +++ b/perl-install/security/level.pm @@ -53,7 +53,7 @@ connections from many clients. Note: if your machine is only a client on the Int my @l = 2 .. 5; $in->ask_from_({ title => $::isInstall ? N("Security") : N("DrakSec Basic Options"), - interactive_help_id => 'miscellaneous', + interactive_help_id => 'misc-params#draxid-miscellaneous', }, [ { label => N("Please choose the desired security level"), title => 1 }, { val => $security, list => \@l, diff --git a/perl-install/services.pm b/perl-install/services.pm index f9f0e8727..6fe9aee33 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -173,8 +173,10 @@ sub ask_ { scalar(values %services)); }, get_info => sub { formatLines(description($_[0])) }, - interactive_help => sub { - interactive::gtk::display_help($o, { interactive_help_id => 'misc-params' }, $w) }, + interactive_help => sub { + interactive::gtk::display_help($o, + { interactive_help_id => + 'misc-params#drakxid-configureServices' }, $w) }, }) or return $l, $on_services; #- no change on cancel. [ grep { $services{$_} } @$l ]; } -- cgit v1.2.1