diff options
author | Norbert Preining <preining@logic.at> | 2018-08-31 03:41:21 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2018-08-31 03:41:21 +0000 |
commit | 6932d0a2cd30904e3502d9893f7014958a762f26 (patch) | |
tree | 76c31cbf43b92a5e220c3327cb93240fd439ea4c /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | a4d6397e21499768cd1e3d88fd06aee6db0176d5 (diff) |
include contact from TeX Catalogue in tlpdb
git-svn-id: svn://tug.org/texlive/trunk@48521 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 238dd94f393..88aef34b345 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -850,6 +850,11 @@ sub update_from_catalogue { if (@{$entry->topics}) { $self->cataloguedata->{'topics'} = "@{$entry->topics}"; } + if (%{$entry->contact}) { + for my $k (keys %{$entry->contact}) { + $self->cataloguedata->{"contact-$k"} = $entry->contact->{$k}; + } + } #if (defined($entry->texlive)) { # $self->cataloguedata->{'texlive'} = $entry->texlive; #} |