From 9f87ea734b52d737a18dda394afc5f4493bf6a40 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 14 Sep 2007 15:56:16 +0000 Subject: advertising: drop support for .pl files, only {title} was still supported, and it's unused --- perl-install/install/any.pm | 2 -- perl-install/install/steps_gtk.pm | 8 -------- 2 files changed, 10 deletions(-) (limited to 'perl-install/install') diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 15e58d428..82d7048a5 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -1293,8 +1293,6 @@ 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 dd3a96d8d..3501b7f73 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -484,14 +484,6 @@ 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