diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-05-25 10:05:51 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-05-25 10:05:51 +0000 |
| commit | 94a5a592f91fcf367e00ee14925c731c0206106a (patch) | |
| tree | 124cddf103200d583204d4af7f24f68d05cb22a6 /perl-install/install_steps_gtk.pm | |
| parent | 2be3766b2c1fafa44da4b93b2851044d977a128a (diff) | |
| download | drakx-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.pm | 4 |
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 ]; |