diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-05-26 05:23:24 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-05-26 05:23:24 +0000 |
| commit | 15459009833f8cb01fbb9b6fe00d1b65822d1e57 (patch) | |
| tree | 06b24e3ad2e596e560581219ecfd42de443c814f /perl-install/pkgs.pm | |
| parent | 7f26f4486207e8775f6e1d5df5658687737368fb (diff) | |
| download | drakx-15459009833f8cb01fbb9b6fe00d1b65822d1e57.tar drakx-15459009833f8cb01fbb9b6fe00d1b65822d1e57.tar.gz drakx-15459009833f8cb01fbb9b6fe00d1b65822d1e57.tar.bz2 drakx-15459009833f8cb01fbb9b6fe00d1b65822d1e57.tar.xz drakx-15459009833f8cb01fbb9b6fe00d1b65822d1e57.zip | |
More refactorisation
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index f8e9c8583..8f3d784e6 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -241,11 +241,6 @@ sub allMediums { } keys %{$packages->{mediums}}; } -sub mediumDescr { - my ($packages, $medium_name) = @_; - $packages->{mediums}{$medium_name}{descr}; -} - sub packageRequest { my ($packages, $pkg) = @_; @@ -1483,10 +1478,10 @@ sub new { my ($class, %h) = @_; bless \%h, $class } sub by_id { my ($medium_id, $o_packages) = @_; $o_packages = $::o->{packages} unless defined $o_packages; - log::l("select $medium_id among ".join(",",keys%{$o_packages->{mediums}})); defined $o_packages->{mediums}{$medium_id} ? $o_packages->{mediums}{$medium_id} - : bless { invalid => 1 }; + #- if the medium is not known, return a placeholder + : bless { invalid => 1, medium => $medium_id }; } #- is this medium a supplementary medium ? |