summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/guinb1.pl11
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl2
2 files changed, 6 insertions, 7 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/guinb1.pl b/Master/texmf/scripts/texlive/tlmgrgui/guinb1.pl
index 5a775db3d3d..674a2268735 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/guinb1.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/guinb1.pl
@@ -82,13 +82,12 @@ $back_f1_f21_lb->bind('<<ListboxSelect>>',
my $pkgname = $allpackages[$selind[0]];
$pkgname =~ s/^\s*(\(i\) )?//;
my $tlp = $tlmediatlpdb->get_package($pkgname);
- $longdesc = $tlmediatlpdb->get_package($pkgname)->longdesc;
+ my $longdesc = $tlmediatlpdb->get_package($pkgname)->longdesc;
+ my $shortdesc = $tlmediatlpdb->get_package($pkgname)->shortdesc;
+ $longdesc || $longdesc = "(no short description available)";
+ $shortdesc || $shortdesc = "(no long description available)";
$back_f1_f33_t->delete("0.0", "end");
- if (defined($longdesc)) {
- $back_f1_f33_t->insert("0.0", "$longdesc");
- } else {
- $back_f1_f33_t->insert("0.0", "");
- }
+ $back_f1_f33_t->insert("0.0", "$shortdesc\n\n$longdesc");
});
# scrollbar .back.f1.f21.scrx -command ".back.f1.f21.lb xview" -orient horizontal
$back_f1_f21_scrx = $back_f1_f21->Scrollbar(
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl
index ddd74a939c8..1951db56434 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl
@@ -13,7 +13,7 @@ BEGIN {
$^W = 1;
$Master = `kpsewhich -var-value=SELFAUTOPARENT`;
chomp($Master);
- unshift (@INC, "$Master/tlpkg");
+ unshift (@INC, "$Master/tlpkg", "$Master/texmf/script/texlive/tlmgrgui");
}
use TeXLive::TLMedia;