From 15459009833f8cb01fbb9b6fe00d1b65822d1e57 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 26 May 2005 05:23:24 +0000
Subject: More refactorisation

---
 perl-install/pkgs.pm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

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

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 ?
-- 
cgit v1.2.1