summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-05-26 05:23:24 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-05-26 05:23:24 +0000
commit15459009833f8cb01fbb9b6fe00d1b65822d1e57 (patch)
tree06b24e3ad2e596e560581219ecfd42de443c814f /perl-install/pkgs.pm
parent7f26f4486207e8775f6e1d5df5658687737368fb (diff)
downloaddrakx-backup-do-not-use-15459009833f8cb01fbb9b6fe00d1b65822d1e57.tar
drakx-backup-do-not-use-15459009833f8cb01fbb9b6fe00d1b65822d1e57.tar.gz
drakx-backup-do-not-use-15459009833f8cb01fbb9b6fe00d1b65822d1e57.tar.bz2
drakx-backup-do-not-use-15459009833f8cb01fbb9b6fe00d1b65822d1e57.tar.xz
drakx-backup-do-not-use-15459009833f8cb01fbb9b6fe00d1b65822d1e57.zip
More refactorisation
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm9
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 ?