From 2925206bd2213cd380b37045bcfc857e8eac3f6e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 31 Jul 2008 20:16:40 +0000 Subject: TLPostAction: only link the toplevel index.html into the win32 menu git-svn-id: svn://tug.org/texlive/trunk@9955 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPostActions.pm | 24 +++--------------------- 1 file changed, 3 insertions(+), 21 deletions(-) diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm index 9d56f21cf31..432a87c7b05 100644 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ b/Master/tlpkg/TeXLive/TLPostActions.pm @@ -269,36 +269,18 @@ sub do_install_texlive_infra { if (win32()) { add_menu_shortcut( $mainmenu, - 'TeX Live Readme (en)', + 'TeX Live Toplevel Readme Index', '', # default pdf icon - $texdir.'/readme.html/readme.en.html', + $texdir.'/index.html', '', '', ); - # try to also install the national language document - my $lang = TeXLive::TLWinGoo::reg_country(); - if ($lang) { - if (-r "$texdir/readme.html/readme.$lang.html") { - add_menu_shortcut( - $mainmenu, - "TeX Live Readme ($lang)", - '', # without anything default icon - $texdir."/readme.html/readme.$lang.html", - '', - '', - ); - } - } } } sub do_remove_texlive_infra { my ($texdir) = @_; if (win32()) { - remove_menu_shortcut($mainmenu,'TeX Live Readme (en)'); - my $lang = TeXLive::TLWinGoo::reg_country(); - if ($lang) { - remove_menu_shortcut($mainmenu,"TeX Live Readme ($lang)"); - } + remove_menu_shortcut($mainmenu,'TeX Live Toplevel Readme Index'); } } $PostInstall{'texlive.infra'} = \&do_install_bin_texlive_infra; -- cgit v1.2.3