From 755df002ff6e794dd19bbb5d32906bc4305a8c21 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 17 Sep 2007 09:28:00 +0000
Subject: - advertising: restore support for $title in .pl files (wrongly
 dropped in 10.4.195)

---
 perl-install/install/steps_gtk.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

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

diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 3501b7f73..dd3a96d8d 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -484,6 +484,14 @@ sub installPackages {
 	my $f = $install::any::advertising_images[$i++ % @install::any::advertising_images];
 	log::l("advertising $f");
 	gtkval_modify(\$advertising_image, $f);
+
+	if (my $banner = $w->{window}{banner}) {
+	    my ($title);
+	    my $pl = $f; $pl =~ s/\.png$/.pl/;
+	    eval(cat_($pl)) if -e $pl;    
+	    $banner->{text} = $title;
+	    Gtk2::Banner::set_pixmap($banner);
+	}
     };
 
     my $cancel = gtknew('Button', text => N("Cancel"), clicked => sub { $install::pkgs::cancel_install = 1 });
-- 
cgit v1.2.1