Meta/cook: retire Old New Topics and send them directly to Cooking

diff --git a/cook b/cook
index 44120b2414bf372c9feb5471e7e8178549b6da0d..8cbc474c9b56e38702820ff3b93ff2426722d527 100755 (executable)
--- a/cook
+++ b/cook
@@ -461,7 +461,7 @@ sub write_cooking {
 my $graduated = 'Graduated to "master"';
 my $new_topics = 'New Topics';
 my $discarded = 'Discarded';
-my $old_new_topics = 'Old New Topics';
+my $cooking_topics = 'Cooking';
 
 sub update_issue {
        my ($cooking) = @_;
@@ -512,20 +512,13 @@ sub update_issue {
        if (!$incremental) {
                my $sd = $cooking->{'section_data'};
                my $sl = $cooking->{'section_list'};
-               # Rename "New" to "Old New" and insert "New".
-               # Move "New" to "Old New"
-               my $i;
-               my $doneso;
-               for ($i = 0; $i < @{$sl}; $i++) {
-                       if ($sl->[$i] eq $new_topics) {
-                               $sl->[$i] = $old_new_topics;
-                               unshift @{$sl}, $new_topics;
-                               $doneso = 1;
-                               last;
+
+               if (exists $sd->{$new_topics}) {
+                       if (!exists $sd->{$cooking_topics}) {
+                               $sd->{$cooking_topics} = [];
+                               unshift @{$sl}, $cooking_topics;
                        }
-               }
-               if ($doneso) {
-                       $sd->{$old_new_topics} = $sd->{$new_topics};
+                       unshift @{$sd->{$cooking_topics}}, @{$sd->{$new_topics}};
                }
                $sd->{$new_topics} = [];
        }