tlmgr info: print 'also'/'topics', search: search in topics, too

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

1 files changed, 5 insertions, 0 deletions

diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index c4e07694a78..12ff8c373dc 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -1553,6 +1553,10 @@ sub action_info {
       if $tlp->cataloguedata->{'date'};
     print "cat-license: ", $tlp->cataloguedata->{'license'}, "\n"
       if $tlp->cataloguedata->{'license'};
+    print "cat-topics:  ", $tlp->cataloguedata->{'topics'}, "\n"
+      if $tlp->cataloguedata->{'topics'};
+    print "cat-related: ", $tlp->cataloguedata->{'also'}, "\n"
+      if $tlp->cataloguedata->{'also'};
     print "collection:  ", @colls, "\n" if (@colls);
     if ($opts{"list"}) {
       if ($tlp->category eq "Collection" || $tlp->category eq "Scheme") {
@@ -1685,6 +1689,7 @@ sub search_pkg_desc {
   my $t = "$pkg\n";
   $t = $t . $tlp->shortdesc . "\n" if (defined($tlp->shortdesc));
   $t = $t . $tlp->longdesc . "\n" if (defined($tlp->longdesc));
+  $t = $t . $tlp->cataloguedata->{'topics'} . "\n" if (defined($tlp->cataloguedata->{'topics'}));
   my $pat = $what;
   $pat = '\W' . $what . '\W' if ($inword);
   my $matched = "";