From c861e15f24d234d8abcf8cafb8777cf317a54093 Mon Sep 17 00:00:00 2001 From: damien Date: Fri, 25 Jan 2002 12:54:21 +0000 Subject: advertising engine updated --- perl-install/install_any.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 9f10eac6a..b207962c7 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1033,11 +1033,14 @@ sub copy_advertising { getAndSaveFile("$source_dir/$_", "$dir/$_"); s/\.png/\.pl/; getAndSaveFile("$source_dir/$_", "$dir/$_"); - s/\.pl/\.png/; + s/\.pl/_icon\.png/; + getAndSaveFile("$source_dir/$_", "$dir/$_"); + s/_icon\.png/\.png/; } @advertising_images = map { "$dir/$_" } @files; } } + sub remove_advertising { my ($o) = @_; unlink @advertising_images; -- cgit v1.2.1