From 42964756cd8a1241387e287d4c2024cafb903515 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 26 Mar 2009 15:52:34 +0000 Subject: fix support for disk installation --- perl-install/install/NEWS | 1 + perl-install/install/media.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 929f470da..0d5b462ba 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,6 +1,7 @@ - adjust partition size suggestion o increase / size to 12GB (instead of 8) o create separate /home starting at 13GB drives (instead of 7) +- fix support for disk installation - include & use urpmi translations - when setting update media, make gurpmi.addmedia auto close instead of waiting for user pressing "close" button on "media added with diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm index e72014a25..15b9ffe57 100644 --- a/perl-install/install/media.pm +++ b/perl-install/install/media.pm @@ -502,7 +502,7 @@ sub get_media { $phys_m = url2mounted_phys_medium($o, $_->{url}, 'media_info'); log::l(Data::Dumper->Dump([ $phys_m ], [ 'phys_m' ])); log::l(Data::Dumper->Dump([ $o->{stage2_phys_medium} ], [ 'stage2_phys_medium' ])); - my $uri = $o->{stage2_phys_medium}{method} eq 'disk' ? _get_medium_dir($phys_m) : + my $uri = $o->{stage2_phys_medium}{method} eq 'disk' ? '/tmp/image' : $o->{stage2_phys_medium}{url} =~ m!^(http|ftp)://! && $o->{stage2_phys_medium}{url} || $phys_m->{method} =~ m!^(ftp|http)://! && $phys_m->{method} || $phys_m->{real_mntpoint} || $phys_m->{url}; -- cgit v1.2.1