summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-10-25 05:49:35 +0000
committerNorbert Preining <preining@logic.at>2007-10-25 05:49:35 +0000
commit51a660b8c96ca59ea8cff3d9b12ff9068deb236b (patch)
treed1247ca81975389b3c69cf7dcd20b5509946046d /Master/tlpkg/TeXLive
parent4de2d98dd659c6d463167afc985ad06abf1618dc (diff)
remove texcatalogue-texlive, texcatalogue-miktex from the texlive.tlpdb,
reformat texcatalogue-date fix the "wide chars" warning git-svn-id: svn://tug.org/texlive/trunk@5277 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm18
-rw-r--r--Master/tlpkg/TeXLive/TeXCatalogue.pm2
2 files changed, 13 insertions, 7 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index b8e81eaf11a..0c16484e7d9 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -478,6 +478,12 @@ sub update_from_catalogue {
my $tlcname = defined($self->catalogue) ? $self->catalogue : $self->name;
if (defined($tlc->entries->{$tlcname})) {
my $entry = $tlc->entries->{$tlcname};
+ if (defined($entry->entry->{'date'})) {
+ my $foo = $entry->entry->{'date'};
+ $foo =~ s/^.Date: //;
+ $foo =~ s/ \(.*\) \$$//;
+ $self->cataloguedata->{'date'} = $foo;
+ }
if (defined($entry->license)) {
$self->cataloguedata->{'license'} = $entry->license;
}
@@ -487,12 +493,12 @@ sub update_from_catalogue {
if (defined($entry->ctan)) {
$self->cataloguedata->{'ctan'} = $entry->ctan;
}
- if (defined($entry->texlive)) {
- $self->cataloguedata->{'texlive'} = $entry->texlive;
- }
- if (defined($entry->miktex)) {
- $self->cataloguedata->{'miktex'} = $entry->miktex;
- }
+ #if (defined($entry->texlive)) {
+ # $self->cataloguedata->{'texlive'} = $entry->texlive;
+ #}
+ #if (defined($entry->miktex)) {
+ # $self->cataloguedata->{'miktex'} = $entry->miktex;
+ #}
if (defined($entry->caption)) {
$self->{'shortdesc'} = $entry->caption;
}
diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm
index 4fc64058d88..f94672181ec 100644
--- a/Master/tlpkg/TeXLive/TeXCatalogue.pm
+++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm
@@ -167,7 +167,7 @@ sub initialize {
chdir($self->{'location'} . "/entries") || die ("Cannot chdir to TeX Catalogue entries: $!");
# parse all the files
foreach (glob("?/*.xml")) {
- open(my $io,"<$_") or die "Cannot read $_: $!";
+ open(my $io,"<:utf8", "$_") or die "Cannot read $_: $!";
my $tce = TeXLive::TeXCatalogue::Entry->new( 'ioref' => $io );
close($io);
$self->{'entries'}{$tce->name} = $tce;