From 1fb22de76313ebc156d69e0c550c45bcde5ada9a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 6 Dec 2012 16:13:43 +0000
Subject: (media_screen) hint if non_free is needed

---
 perl-install/install/any.pm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 23a018b95..0ce8d5533 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -315,6 +315,23 @@ sub _tainted_medium() { N("Tainted Release") }
 
 sub _nonfree_medium() { N("Nonfree Release") }
 
+# FIXME: move me in ../any.pm or in harddrake::*, might be needed by rpmdrake/harddrake:
+sub is_firmware_needed {
+    my ($o) = @_;
+    require pkgs;
+    pkgs::detect_graphical_drivers($o->do_pkgs);
+}
+
+sub msg_if_firmware_needed {
+    my ($o) = @_;
+    return if !is_firmware_needed($o);
+    join("\n",
+	 # FIXME: actually can be proprietary drivers (same medium eventually):
+         N("Some hardware on your machine needs some non free firmwares in order for the free software drivers to work."),
+         N("You should enable \"%s\"", _nonfree_medium()),
+     );
+}
+
 sub media_screen {
     my ($o) = @_;
 
@@ -337,6 +354,7 @@ sub media_screen {
     $o->ask_from_({ messages => join("\n",
                                       N("Media Choice"),
                                       N("Here you can enable more media if you want."),
+                                      msg_if_firmware_needed($o)
                                   ),
                      focus_first => sub { 1 } }, [ 
         map {
@@ -398,12 +416,15 @@ sub setPackages {
 	    install::pkgs::popup_errors();
 	}
 
+        install::pkgs::start_pushing_error();
         media_screen($o);
 
         # actually read synthesis now we have all the ones we want:
         require urpm::media;
         urpm::media::configure($urpm);
 
+        install::pkgs::popup_errors();
+
         install::media::adjust_paths_in_urpmi_cfg($urpm);
         log::l('urpmi completely set up');
 
-- 
cgit v1.2.1