summaryrefslogtreecommitdiff
path: root/Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl')
-rw-r--r--Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl11
1 files changed, 9 insertions, 2 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl b/Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl
index 716bc24b2aa..e39c3d21237 100644
--- a/Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl
+++ b/Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl
@@ -10,7 +10,7 @@ sub fromenv;
sub load_data;
sub save_data;
-my $VERSION = 'v1.2a from 2012/05/03';
+my $VERSION = 'v1.2b from 2012/05/06';
my %CTAN_SERVERURLS = (
dante => 'http://dante.ctan.org/upload.html',
uktug => 'http://www.tex.ac.uk/upload/',
@@ -343,10 +343,17 @@ if ($FIELDS{DoNotAnnounce}) {
$DoNotAnnounce = '[x]';
}
else {
- delete $FIELDS{DoNotAnnounce};
+ $FIELDS{DoNotAnnounce} = 'Yes';
delete $FIELDS{to_announce};
$DoNotAnnounce = '[ ]';
}
+# Only keep the announcement field used by the site:
+if ($CTAN_URL eq $CTAN_SERVERURLS{dante}) {
+ delete $FIELDS{to_announce};
+}
+else {
+ delete $FIELDS{DoNotAnnounce};
+}
if (!$FIELDS{directory}) {
$FIELDS{directory} = '/macros/latex/contrib/' . $FIELDS{contribution};