From 7055a1f668beb7c5fb8854069cb7ea0a27842369 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 30 May 2005 07:25:31 +0000
Subject: allow to ask for some configuration fields (useful for "device" in
 "rtc" category)

---
 perl-install/network/thirdparty.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/network/thirdparty.pm')

diff --git a/perl-install/network/thirdparty.pm b/perl-install/network/thirdparty.pm
index 23471aab2..e4a85b5f8 100644
--- a/perl-install/network/thirdparty.pm
+++ b/perl-install/network/thirdparty.pm
@@ -414,7 +414,8 @@ sub install_packages {
 }
 
 sub setup_device {
-    my ($in, $category, $driver) = @_;
+    my ($in, $category, $driver, $o_config, $o_fields) = @_;
+
     if (my $settings = find_settings($category, $driver)) {
 	log::explanations(qq(Found settings for driver "$driver" in category "$category"));
 
@@ -437,6 +438,10 @@ sub setup_device {
     } else {
 	log::explanations(qq(No settings found for driver "$driver" in category "$category"));
     }
+
+    #- assign requested settings, erase with undef if no settings have been found
+    $o_config->{$_} = $settings->{$_} foreach ($o_fields);
+
     1;
 }
 
-- 
cgit v1.2.1