TLPostActions.pm: Add the other languages' html docs, too, to the win32 menu

git-svn-id: svn://tug.org/texlive/trunk@9960 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 44 insertions, 8 deletions

diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm
index 76e424b258e..aaef3d19c67 100644
--- a/Master/tlpkg/TeXLive/TLPostActions.pm
+++ b/Master/tlpkg/TeXLive/TLPostActions.pm
@@ -328,18 +328,27 @@ sub do_install_texlive_cz {
   if (win32()) {
     add_menu_shortcut(
       $mainmenu,
-      'TeX Live Manual (cz)',
+      'TeX Live Manual (cz) (PDF)',
       '', # default pdf icon
       $texdir.'/texmf-doc/doc/czechslovak/texlive-cz/live.pdf',
       '',
       '',
     );
+    add_menu_shortcut(
+      $mainmenu,
+      'TeX Live Manual (cz) (HTML)',
+      '', # default pdf icon
+      $texdir.'/texmf-doc/doc/czechslovak/texlive-cz/live.html',
+      '',
+      '',
+    );
   }
 }
 sub do_remove_texlive_cz {
   my ($texdir) = @_;
   if (win32()) {
-    remove_menu_shortcut($mainmenu,'TeX Live Manual (cz)');
+    remove_menu_shortcut($mainmenu,'TeX Live Manual (cz) (PDF)');
+    remove_menu_shortcut($mainmenu,'TeX Live Manual (cz) (HTML)');
   }
 }
 $PostInstall{'texlive-cz'} = \&do_install_texlive_cz;
@@ -387,18 +396,27 @@ sub do_install_texlive_de {
   if (win32()) {
     add_menu_shortcut(
       $mainmenu,
-      'TeX Live Manual (de)',
+      'TeX Live Manual (de) (PDF)',
       '', # default pdf icon
       $texdir.'/texmf-doc/doc/german/texlive-de/live.pdf',
       '',
       '',
     );
+    add_menu_shortcut(
+      $mainmenu,
+      'TeX Live Manual (de) (HTML)',
+      '', # default pdf icon
+      $texdir.'/texmf-doc/doc/german/texlive-de/live.html',
+      '',
+      '',
+    );
   }
 }
 sub do_remove_texlive_de {
   my ($texdir) = @_;
   if (win32()) {
-    remove_menu_shortcut($mainmenu,'TeX Live Manual (de)');
+    remove_menu_shortcut($mainmenu,'TeX Live Manual (de) (PDF)');
+    remove_menu_shortcut($mainmenu,'TeX Live Manual (de) (HTML)');
   }
 }
 $PostInstall{'texlive-de'} = \&do_install_texlive_de;
@@ -412,18 +430,27 @@ sub do_install_texlive_pl {
   if (win32()) {
     add_menu_shortcut(
       $mainmenu,
-      'TeX Live Manual (pl)',
+      'TeX Live Manual (pl) (PDF)',
       '', # default pdf icon
       $texdir.'/texmf-doc/doc/polish/texlive-pl/live.pdf',
       '',
       '',
     );
+    add_menu_shortcut(
+      $mainmenu,
+      'TeX Live Manual (pl) (HTML)',
+      '', # default pdf icon
+      $texdir.'/texmf-doc/doc/polish/texlive-pl/live.html',
+      '',
+      '',
+    );
   }
 }
 sub do_remove_texlive_pl {
   my ($texdir) = @_;
   if (win32()) {
-    remove_menu_shortcut($mainmenu,'TeX Live Manual (pl)');
+    remove_menu_shortcut($mainmenu,'TeX Live Manual (pl) (PDF)');
+    remove_menu_shortcut($mainmenu,'TeX Live Manual (pl) (HTML)');
   }
 }
 $PostInstall{'texlive-pl'} = \&do_install_texlive_pl;
@@ -437,18 +464,27 @@ sub do_install_texlive_ru {
   if (win32()) {
     add_menu_shortcut(
       $mainmenu,
-      'TeX Live Manual (ru)',
+      'TeX Live Manual (ru) (PDF)',
       '', # default pdf icon
       $texdir.'/texmf-doc/doc/russian/texlive-ru/live.pdf',
       '',
       '',
     );
+    add_menu_shortcut(
+      $mainmenu,
+      'TeX Live Manual (ru) (HTML)',
+      '', # default pdf icon
+      $texdir.'/texmf-doc/doc/russian/texlive-ru/live.html',
+      '',
+      '',
+    );
   }
 }
 sub do_remove_texlive_ru {
   my ($texdir) = @_;
   if (win32()) {
-    remove_menu_shortcut($mainmenu,'TeX Live Manual (ru)');
+    remove_menu_shortcut($mainmenu,'TeX Live Manual (ru) (HTML)');
+    remove_menu_shortcut($mainmenu,'TeX Live Manual (ru) (PDF)');
   }
 }
 $PostInstall{'texlive-ru'} = \&do_install_texlive_ru;