summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake25
1 files changed, 5 insertions, 0 deletions
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;