tlmgr show now also shows the collection in which a package is included

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

1 files changed, 11 insertions, 0 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 546f9fb0f3b..77399e956d2 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -439,6 +439,7 @@ sub action_show {
   }
   init_local_db();
   my $tlmediatlpdb;
+  my @colls;
   foreach my $pkg (@ARGV) {
     my $tlp = $localtlpdb->get_package($pkg);
     my $installed = 0;
@@ -450,6 +451,15 @@ sub action_show {
       $tlp = $tlmediatlpdb->get_package($pkg);
     } else {
       $installed = 1;
+      @colls = $localtlpdb->needed_by($pkg);
+      if (!@colls) {
+        # not referenced in the local tlpdb, so try the remote here, too
+        if (!$tlmediatlpdb) {
+          init_tlmedia();
+          $tlmediatlpdb = $tlmediasrc->tlpdb;
+        }
+        @colls = $tlmediatlpdb->needed_by($pkg);
+      }
     }
     if ($tlp) {
       print "Package:   ", $tlp->name, "\n";
@@ -457,6 +467,7 @@ sub action_show {
       print "ShortDesc: ", $tlp->shortdesc, "\n" if ($tlp->shortdesc);
       print "LongDesc:  ", $tlp->longdesc, "\n" if ($tlp->longdesc);
       print "Installed: ", ($installed?"Yes\n":"No\n");
+      print "Collection:", @colls, "\n" if (@colls);
       print "\n";
     } else {
       printf STDERR "Cannot find $pkg\n";