diff options
| author | Norbert Preining <preining@logic.at> | 2008-05-03 12:15:36 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-05-03 12:15:36 +0000 |
| commit | 6d44e6cbe3c5d36234b1ae2e3713b395ffe84613 (patch) | |
| tree | 23a6e0eff304f20ee09c6e8dbbd27d8e29eb97c5 | |
| parent | 7007f7dc33aced36d53426ba530b3d38e1923b7b (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.pl | 11 | ||||
| -rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl | 2 |
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; |