summaryrefslogtreecommitdiffstats
path: root/perl-install/network/modem.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-13 14:35:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-13 14:35:52 +0000
commitfe57c63558450228ca52c6f3302910372be6ebb4 (patch)
treecba149bbace96874d5e4831b24c29621c7c7b1cd /perl-install/network/modem.pm
parent39824973bc990aabe121d812abfc3467df8be98a (diff)
downloaddrakx-backup-do-not-use-fe57c63558450228ca52c6f3302910372be6ebb4.tar
drakx-backup-do-not-use-fe57c63558450228ca52c6f3302910372be6ebb4.tar.gz
drakx-backup-do-not-use-fe57c63558450228ca52c6f3302910372be6ebb4.tar.bz2
drakx-backup-do-not-use-fe57c63558450228ca52c6f3302910372be6ebb4.tar.xz
drakx-backup-do-not-use-fe57c63558450228ca52c6f3302910372be6ebb4.zip
- set_help is deprecated
- it is replaced by interactive_help_id on each ask_* - many set_help do not have any correspondance in help.pm (drakxid-*), those are commented for now
Diffstat (limited to 'perl-install/network/modem.pm')
-rw-r--r--perl-install/network/modem.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 011ee9054..050743794 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -218,8 +218,9 @@ sub ppp_choose {
$mouse ||= {};
$mouse->{device} ||= readlink "$::prefix/dev/mouse";
- $::isInstall and $in->set_help('selectSerialPort');
- $modem->{device} ||= $in->ask_from_listf('', N("Please choose which serial port your modem is connected to."),
+ $modem->{device} ||= $in->ask_from_listf_raw({ messsages => N("Please choose which serial port your modem is connected to."),
+ interactive_help_id => 'selectSerialPort',
+ },
\&mouse::serial_port2text,
[ grep { $_ ne $mouse->{device} } (mouse::serial_ports(), if_(-e '/dev/modem', '/dev/modem')) ]) || return;
@@ -228,7 +229,7 @@ sub ppp_choose {
foreach (@$secret) {
push @cnx_list, $_->{server};
}
- $::isStandalone || $in->set_help('configureNetworkISP');
+# $::isStandalone || $in->set_help('configureNetworkISP');
$in->ask_from('', N("Dialup options"), [
{ label => N("Connection name"), val => \$modem->{connection} },
{ label => N("Phone number"), val => \$modem->{phone} },