summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-03 12:15:36 +0000
committerNorbert Preining <preining@logic.at>2008-05-03 12:15:36 +0000
commit6d44e6cbe3c5d36234b1ae2e3713b395ffe84613 (patch)
tree23a6e0eff304f20ee09c6e8dbbd27d8e29eb97c5
parent7007f7dc33aced36d53426ba530b3d38e1923b7b (diff)
small fixes
git-svn-id: svn://tug.org/texlive/trunk@7819 c570f23f-e606-0410-a88d-b1316a301751
-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;