From 94a5a592f91fcf367e00ee14925c731c0206106a Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 25 May 2005 10:05:51 +0000
Subject: Begin refactorization of install medium handling code

---
 perl-install/install_steps_gtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_steps_gtk.pm')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 762581b38..158c63717 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -250,7 +250,7 @@ sub choosePackagesTree {
 			    },
 			    node_state => sub {
 				my $p = pkgs::packageByName($packages, $_[0]) or return;
-				pkgs::packageMedium($packages, $p)->{selected} or return;
+				pkgs::packageMedium($packages, $p)->selected or return;
 				$p->arch eq 'src'                       and return;
 				$p->flag_base                           and return 'base';
 				$p->flag_installed && !$p->flag_upgrade and return 'installed';
@@ -640,7 +640,7 @@ sub deselectFoundMedia {
     my $i = 0;
     my $totalsize = 0;
     foreach (@$hdlists) {
-	my $cd = install_any::getCDNumber($_->[3]);
+	my $cd = install_medium->new(descr => $_->[3])->get_cd_number;
 	if (!$cd || !@{$cdlist{$cd} || []}) {
 	    push @hdlist2, $_;
 	    $corresp[$i] = [ $i ];
-- 
cgit v1.2.1