summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-05-25 10:05:51 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-05-25 10:05:51 +0000
commit94a5a592f91fcf367e00ee14925c731c0206106a (patch)
tree124cddf103200d583204d4af7f24f68d05cb22a6 /perl-install/install_steps_gtk.pm
parent2be3766b2c1fafa44da4b93b2851044d977a128a (diff)
downloaddrakx-94a5a592f91fcf367e00ee14925c731c0206106a.tar
drakx-94a5a592f91fcf367e00ee14925c731c0206106a.tar.gz
drakx-94a5a592f91fcf367e00ee14925c731c0206106a.tar.bz2
drakx-94a5a592f91fcf367e00ee14925c731c0206106a.tar.xz
drakx-94a5a592f91fcf367e00ee14925c731c0206106a.zip
Begin refactorization of install medium handling code
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm4
1 files changed, 2 insertions, 2 deletions
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 ];