rename {mediums} field into {media} to be compatible with urpm:: modules (from urpmi)

1 files changed, 5 insertions, 5 deletions

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index a5452c3d5..4cc86e1af 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -160,7 +160,7 @@ sub bestKernelPackage {
 sub packagesToInstall {
     my ($packages) = @_;
     my @packages;
-    foreach (@{$packages->{mediums}}) {
+    foreach (@{$packages->{media}}) {
 	$_->{selected} or next;
 	log::l("examining packagesToInstall of medium $_->{name}");
 	push @packages, grep { $_->flag_selected } install::media::packagesOfMedium($packages, $_);
@@ -322,7 +322,7 @@ sub empty_packages() {
     my $packages = new URPM;
 
     #- add additional fields used by DrakX.
-    @$packages{qw(count mediums)} = (0, []);
+    @$packages{qw(count media)} = (0, []);
 
     $packages;
 }
@@ -659,7 +659,7 @@ sub selectPackagesToUpgrade {
 sub installTransactionClosure {
     my ($packages, $id2pkg, $isUpgrade) = @_;
 
-    foreach (grep { !$_->{selected} } @{$packages->{mediums}}) {
+    foreach (grep { !$_->{selected} } @{$packages->{media}}) {
 	foreach ($_->{start} .. $_->{end}) {
 	    delete $id2pkg->{$_};
 	}
@@ -669,7 +669,7 @@ sub installTransactionClosure {
     my $medium;
 
     #- search first usable medium (media are sorted).
-    foreach (@{$packages->{mediums}}) {
+    foreach (@{$packages->{media}}) {
 	if ($l[0] <= $_->{end}) {
 	    #- we have a candidate medium, it could be the right one containing
 	    #- the first package of @l...
@@ -779,7 +779,7 @@ sub install {
 	}
 
 	#- extract headers for parent as they are used by callback.
-	extractHeaders(\@transToInstall, $packages->{mediums});
+	extractHeaders(\@transToInstall, $packages->{media});
 
 	my ($retry, $retry_count);
 	while (@transToInstall) {