summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-02-18 18:55:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-02-18 18:55:04 +0000
commita2a899d33d08be6a2013988adf130876efda32e2 (patch)
tree53622b56c56708c0dc864fb12dbd680d4c222796
parent442b3e408d436fb1ea15856696f69c6479787f91 (diff)
downloaddrakx-a2a899d33d08be6a2013988adf130876efda32e2.tar
drakx-a2a899d33d08be6a2013988adf130876efda32e2.tar.gz
drakx-a2a899d33d08be6a2013988adf130876efda32e2.tar.bz2
drakx-a2a899d33d08be6a2013988adf130876efda32e2.tar.xz
drakx-a2a899d33d08be6a2013988adf130876efda32e2.zip
use ->ask_filename instead of ->ask_file (esp. useful in "save" mode)
-rw-r--r--perl-install/diskdrake/interactive.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index efe38a135..d48379ed9 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -373,7 +373,7 @@ sub ReadFromFile {
my ($h, $file, $fh);
if ($::isStandalone) {
- $file = $in->ask_file(N("Select file")) or return;
+ $file = $in->ask_filename({ title => N("Select file") }) or return;
} else {
undef $h; #- help perl_checker
my $name = $hd->{device}; $name =~ s!/!_!g;
@@ -399,7 +399,7 @@ sub SaveInFile {
my ($h, $file) = ('', '');
if ($::isStandalone) {
- $file = $in->ask_file(N("Select file")) or return;
+ $file = $in->ask_filename({ save => 1, title => N("Select file") }) or return;
} else {
undef $h; #- help perl_checker
my $name = $hd->{device}; $name =~ s!/!_!g;