diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TeXCatalogue.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TeXCatalogue.pm | 10 |
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) { |