From b6c81a431dc681db51eaf22eaf090c280b56d9f4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 19 May 2003 14:12:51 +0000
Subject: localize drive capabilites (aka burning, dvd managment, ...)

---
 perl-install/standalone/harddrake2 | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/standalone/harddrake2')

diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 6127f3b6b..627d355af 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -273,6 +273,11 @@ foreach (@harddrake::data::tree) {
             my $i = $_;
             $_->{bus_location} = join ':', map { sprintf("%lx", $i->{$_}) } qw(channel id lun);
         }
+        if (defined $_->{capacity}) {
+            my ($burner, $dvd) = (N("burner"), N("DVD"));
+            $_->{capacity} =~ s/burner/$burner/;
+            $_->{capacity} =~ s/DVD/$dvd/;
+        }
         $configurator .= harddrake::data::set_removable_configurator($Ident, $_);
         if ($Ident eq "AUDIO") {
             require harddrake::sound;
-- 
cgit v1.2.1