From 383376384e8be7e270474ce287fea73559c81d0a Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 18 Oct 2007 14:19:51 +0000 Subject: remove the Category at the beginning of a depend line adapt modules update texlive tlpdb, including the info from the catalogue git-svn-id: svn://tug.org/texlive/trunk@5228 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TeXCatalogue.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/TeXLive/TeXCatalogue.pm') 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) { -- cgit v1.2.3