summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2020-03-16 22:59:15 +0000
committerNorbert Preining <preining@logic.at>2020-03-16 22:59:15 +0000
commite8a2cf6b753014d56bcb5fda3924178d7c085424 (patch)
tree506b886d6fc6c561f6cc87ba2be5b31229c6bf8b /Master/tlpkg/TeXLive
parent17093c4f6511855fb1f0b2d40d5e364c61291ba4 (diff)
parse all licenses listed in the catalogue
git-svn-id: svn://tug.org/texlive/trunk@54367 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TeXCatalogue.pm12
1 files changed, 11 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm
index 2666c17629e..1d370713aca 100644
--- a/Master/tlpkg/TeXLive/TeXCatalogue.pm
+++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm
@@ -81,7 +81,17 @@ sub initialize {
$self->{'name'} = $parser->findvalue("/entry/name")->value();
$self->{'caption'} = beautify($parser->findvalue("/entry/caption")->value());
$self->{'description'} = beautify($parser->findvalue("/entry/description")->value());
- $self->{'license'} = $parser->findvalue('/entry/license/@type')->value();
+ # there can be multiple entries of licenses, collected them all
+ # into one string
+ my $licset = $parser->find('/entry/license');
+ my @liclist;
+ foreach my $node ($licset->get_nodelist) {
+ my $lictype = $parser->find('./@type',$node);
+ push @liclist, "$lictype";
+ }
+ $self->{'license'} = join(' ', @liclist);
+ # was before
+ # $self->{'license'} = $parser->findvalue('/entry/license/@type')->value();
$self->{'version'} = Text::Unidecode::unidecode(
$parser->findvalue('/entry/version/@number')->value());
$self->{'ctan'} = $parser->findvalue('/entry/ctan/@path')->value();