Browse Source

Bug 28386: Sort authors by lastname || firstname

If several authors have the same lastname, they are swapped in the list between the different runs.

This is reusing the code from the release_tools, see issue #24

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
tags/v21.05.00
Jonathan Druart 2 weeks ago
parent
commit
3e8b14aa8e
1 changed files with 9 additions and 4 deletions
  1. +9
    -4
      about.pl

+ 9
- 4
about.pl View File

@@ -719,10 +719,15 @@ for my $version ( sort { $a <=> $b } keys %{$teams->{team}} ) {
my @people = map {
{ name => $_, ( $contributors->{$_} ? %{ $contributors->{$_} } : () ) }
} sort {
my ($alast) = ( split( /\s/, $a ) )[-1];
my ($blast) = ( split( /\s/, $b ) )[-1];
lc($alast) cmp lc($blast)
} keys %{$contributors};
my ($alast) = $a =~ /(\S+)$/;
my ($blast) = $b =~ /(\S+)$/;
my $cmp = lc($alast||"") cmp lc($blast||"");
return $cmp if $cmp;

my ($a2last) = $a =~ /(\S+)\s\S+$/;
my ($b2last) = $b =~ /(\S+)\s\S+$/;
lc($a2last||"") cmp lc($b2last||"");
} keys %$contributors;

$template->param( contributors => \@people );
$template->param( maintenance_team => $teams->{team}->{$dev_team} );


Loading…
Cancel
Save