From b0ea54e9cce592478bac867e9315b72c1fc68b3d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 26 Feb 2002 21:57:29 +0000
Subject: propose some mount points for removable/nfs/smb

---
 perl-install/diskdrake/interactive.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 6ae73d9c5..ba53acf62 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -545,14 +545,14 @@ Remove the loopback first")), return 1;
     $part->{mntpoint} = $mntpoint;
 }
 sub Mount_point_raw_hd {
-    my ($in, $part, $all_hds) = @_;
+    my ($in, $part, $all_hds, $propositions) = @_;
 
     my $mntpoint = $part->{mntpoint};
     $in->ask_from(
         '',
         _("Where do you want to mount device %s?", $part->{device}),
 	[ { label => _("Mount point"), val => \$mntpoint, 
-	    list => [ if_($mntpoint, $mntpoint), '' ], 
+	    list => [ if_($mntpoint, $mntpoint), '', @$propositions ], 
 	    not_edit => 0 } ],
 	complete => sub {
 	    $part->{mntpoint} eq $mntpoint || check_mntpoint($in, $mntpoint, {}, $part, $all_hds) or return 1;
-- 
cgit v1.2.1