create detect_devices::suggest_mount_point and use it instead of doing it in fs::set_removable_mntpoints

1 files changed, 16 insertions, 0 deletions

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index e8b728b6e..8c647bdb3 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -681,4 +681,20 @@ sub is_a_recent_computer {
     $frequence > 600;
 }
 
+sub suggest_mount_point {
+    my ($e) = @_;
+
+    my $name = $e->{media_type};
+    if (member($name, 'hd', 'fd')) {
+	if (isZipDrive($e)) {
+	    $name = 'zip';
+	} elsif ($name eq 'fd') {
+	    $name = 'floppy';
+	} else {
+	    log::l("set_removable_mntpoints: don't know what to with hd $e->{device}");
+	}
+    }
+    $name;
+}
+
 1;