aboutsummaryrefslogtreecommitdiffstats
path: root/rpmtools.xs
Commit message (Expand)AuthorAgeFilesLines
* 4.2-6mdkFrancois Pons2002-02-271-14/+10
* 4.2-3mdk, memory leak fixed.Francois Pons2002-02-141-21/+38
* 4.2-2mdkFrancois Pons2002-02-081-2/+2
* 4.1-2mdkFrancois Pons2002-01-241-0/+2
* 4.0-7mdk4.0.7Francois Pons2002-01-171-22/+19
* 4.0-6mdk4.0.6Francois Pons2002-01-171-0/+13
* 4.0 release (changes of provides internally).4.0Francois Pons2001-12-051-4/+9
* use rpmlib version comparison function, force destiny.3.1.2Francois Pons2001-07-251-0/+8
* first 3.1 major relase, with fullname in info hash.3.1Francois Pons2001-07-231-32/+42
* add sourcerpm tagFlorent Villard2001-07-211-0/+4
* new 3.0 release, see rpmtools.spec.Francois Pons2001-06-211-3/+19
* added arch support.Francois Pons2001-05-221-0/+9
* *** empty log message ***Francois Pons2001-03-231-3/+3
* try to be cleaner for subscript but not enough.Francois Pons2001-03-231-3/+3
* *** empty log message ***Francois Pons2001-02-191-1/+9
* *** empty log message ***Francois Pons2001-02-191-2/+2
* *** empty log message ***Francois Pons2001-02-161-0/+1
* *** empty log message ***Francois Pons2001-02-141-15/+36
* added faster method to rpmtools.xs, fixed code and added exit too.Francois Pons2001-02-131-65/+85
* *** empty log message ***Francois Pons2000-12-081-189/+206
* use iterators.Frederic Lepied2000-10-191-14/+13
* *** empty log message ***Francois Pons2000-08-251-0/+429
mp;id=755df002ff6e794dd19bbb5d32906bc4305a8c21'>perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- advertising: restore support for $title in .pl files (wrongly dropped in 10.4.195)
+
Version 10.4.199 - 17 September 2007, by Olivier "blino" Blin
- fix loading of tifm_sd module
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 82d7048a5..15e58d428 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -1293,6 +1293,8 @@ sub copy_advertising {
foreach (@files) {
chomp;
install::media::getAndSaveFile_($o->{stage2_phys_medium}, "$source_dir/$_", "$dir/$_");
+ (my $pl = $_) =~ s/\.png/.pl/;
+ install::media::getAndSaveFile_($o->{stage2_phys_medium}, "$source_dir/$pl", "$dir/$pl");
}
@advertising_images = map { "$dir/$_" } @files;
}
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 });