Fix changelog generator

scripts/generate-changelog.pl

@@ -6,7 +6,7 @@ use LWP::UserAgent;
 use JSON;
 
 my $milestone = '2.0.0';
-my @cat = ( 'Bug', 'Improvement', 'New Feature' );
+my @cat = ( 'Bug', 'Improvement', 'New feature' );
 
 open F, "$ENV{HOME}/.ow2-token" or die "Unable to get OW2 token ($!)";
 my $token = join '',<F>;
@@ -16,12 +16,13 @@ $token =~ s/\s//sg or die "No token";
 my $ua = LWP::UserAgent->new();
 
 for (@cat) {
+    #s/ /%20/g;
     my $res = $ua->get(
-"https://gitlab.ow2.org/api/v4/projects/181/issues?label_name=$_&milestone_title=$milestone&state=all&private_token=$token"
+"https://gitlab.ow2.org/api/v4/projects/181/issues?labels=$_&milestone=$milestone&state=all&scope=all&per_page=100&private_token=$token"
     );
     print "### $_\n";
     $res = JSON::from_json( $res->content );
-    for my $i (@$res) {
+    while( my $i = pop @$res) {
         print "$i->{iid} - $i->{title}\n";
     }
     print "\n";