summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TeXCatalogue.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TeXCatalogue.pm')
-rw-r--r--Master/tlpkg/TeXLive/TeXCatalogue.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm
index 4819dd46b5d..4fc64058d88 100644
--- a/Master/tlpkg/TeXLive/TeXCatalogue.pm
+++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm
@@ -51,13 +51,17 @@ sub initialize {
$self->{'entry'}{'date'} = $parser->findvalue('/entry/@datestamp');
$self->{'entry'}{'modder'} = $parser->findvalue('/entry/@modifier');
$self->{'name'} = $parser->findvalue("/entry/name");
- $self->{'caption'} = $parser->findvalue("/entry/caption");
+ $self->{'caption'} = beautify($parser->findvalue("/entry/caption"));
$self->{'description'} = beautify($parser->findvalue("/entry/description"));
$self->{'license'} = $parser->findvalue('/entry/license/@type');
$self->{'version'} = $parser->findvalue('/entry/version/@number');
$self->{'ctan'} = $parser->findvalue('/entry/ctan/@path');
- $self->{'texlive'} = $parser->findvalue('/entry/texlive/@location');
- $self->{'miktex'} = $parser->findvalue('/entry/miktex/@location');
+ if ($parser->findvalue('/entry/texlive/@location') ne "") {
+ $self->{'texlive'} = $parser->findvalue('/entry/texlive/@location');
+ }
+ if ($parser->findvalue('/entry/miktex/@location') ne "") {
+ $self->{'miktex'} = $parser->findvalue('/entry/miktex/@location');
+ }
# parse the documentation entries
my $docset = $parser->find('/entry/documentation');
foreach my $node ($docset->get_nodelist) {