From 6cd3ed67905e431eacce3572a685f21132568afb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 14 Dec 2012 14:05:11 +0000
Subject: (setPackages) fix dialogs title

---
 perl-install/install/NEWS         | 1 +
 perl-install/install/steps_gtk.pm | 9 +++++++++
 2 files changed, 10 insertions(+)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index c28c7e7fe..decb34549 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,6 @@
 - time steps in logs
 - media step:
+  o fix dialogs title
   o show which media are disabled when offering to pick supplementary ones
 
 Version 15.11 - 13 December 2012
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index a8f998f7a..24588cbc6 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -234,6 +234,14 @@ sub selectMouse {
     } 
 }
 
+sub setPackages {
+    my ($o) = @_;
+    my (undef, $old_title) = get_default_step_items();
+    set_default_step_items(N("Media Selection") || $old_title);
+    install::any::setPackages($o);
+    set_default_step_items($old_title);
+}
+
 sub reallyChooseDesktop {
     my ($o, $title, $message, $choices, $choice) = @_;
 
@@ -794,4 +802,5 @@ It will then continue from the hard disk drive and the packages will remain avai
     log::l("keeping media " . join ',', map { $_->{rpmsdir} } grep { !$_->{ignore} } @$hdlists);
 }
 
+
 1;
-- 
cgit v1.2.1