diff options
author | Norbert Preining <preining@logic.at> | 2008-12-01 18:36:42 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-12-01 18:36:42 +0000 |
commit | edb1998f68e855a856c42834132e0bfb10842b31 (patch) | |
tree | 7bd5b74afbfab3ebafb9a07320f73c80ee269a5d /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | 482e1562295f261296814542810909346b6ef512 (diff) |
fix overwritten long- and shortdesc
git-svn-id: svn://tug.org/texlive/trunk@11497 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 0cfec0e4a32..0a087d22d00 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -604,10 +604,10 @@ sub update_from_catalogue { # $self->cataloguedata->{'miktex'} = $entry->miktex; #} if (defined($entry->caption)) { - $self->{'shortdesc'} = $entry->caption; + $self->{'shortdesc'} = $entry->caption unless $self->{'shortdesc'}; } if (defined($entry->description)) { - $self->{'longdesc'} = $entry->description; + $self->{'longdesc'} = $entry->description unless $self->{'longdesc'}; } # # we need to do the following: |