From 67d371735b988a28af4f63892921421b15525c07 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 22 Sep 2004 08:12:30 +0000
Subject: New method selectSupplMedia

---
 perl-install/install_steps.pm             | 2 ++
 perl-install/install_steps_interactive.pm | 6 ++++++
 2 files changed, 8 insertions(+)

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index f6fc97b2f..39673bd3e 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -287,6 +287,8 @@ sub setPackages {
     $rebuild_needed and pkgs::selectPackagesToUpgrade($o->{packages}, $o->{prefix});
 }
 
+sub selectSupplMedia { '' }
+
 sub choosePackages {
     my ($o, $packages, $_compssUsers, $first_time) = @_;
 
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e4af32ada..6b5c58566 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -382,6 +382,12 @@ sub setPackages {
 	pkgs::selectPackagesToUpgrade($o->{packages}, $o->{prefix});
     }
 }
+
+sub selectSupplMedia {
+    my ($o, $suppl_method) = @_;
+    install_any::selectSupplMedia($o, $suppl_method);
+}
+
 #------------------------------------------------------------------------------
 sub choosePackages {
     my ($o, $packages, $compssUsers, $_first_time) = @_;
-- 
cgit v1.2.1