From 490c63a582c6c156b6ea4c63792a52a8f61f71b7 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Wed, 10 Jan 2024 13:46:58 +0000
Subject: [PATCH] Bug 35504: Distinguish different RMaint and Topic Expert
 roles

This patch further splits up release maintanence and topic expert roles
so that they display with further, more accurate, detail in the
development team section.
---
 about.pl                                      | 31 ++++++++++++++-----
 .../prog/en/includes/about-team.inc           |  9 +++++-
 2 files changed, 32 insertions(+), 8 deletions(-)

diff --git a/about.pl b/about.pl
index 6c3175c2d8b..218c384b389 100755
--- a/about.pl
+++ b/about.pl
@@ -767,13 +767,23 @@ my $contributors =
 delete $contributors->{_others_};
 for my $version ( sort { $a <=> $b } keys %{$teams->{team}} ) {
     for my $role ( keys %{ $teams->{team}->{$version} } ) {
+        my $detail = $teams->{team}->{$version}->{$role};
         my $normalized_role = "$role";
         $normalized_role =~ s/s$//;
-        if ( ref( $teams->{team}->{$version}->{$role} ) eq 'ARRAY' ) {
-            for my $contributor ( @{ $teams->{team}->{$version}->{$role} } ) {
+        if ( ref( $detail ) eq 'ARRAY' ) {
+            for my $contributor ( @{ $detail } ) {
+
+                my $localized_role = $normalized_role;
+                if ( my $subversion = $contributor->{version} ) {
+                    $localized_role .= ':' . $subversion;
+                }
+                if ( my $area = $contributor->{area} ) {
+                    $localized_role .= ':' . $area;
+                }
+
                 my $name = $contributor->{name};
                 # Add role to contributors
-                push @{ $contributors->{$name}->{roles}->{$normalized_role} },
+                push @{ $contributors->{$name}->{roles}->{$localized_role} },
                   $version;
                 # Add openhub to teams
                 if ( exists( $contributors->{$name}->{openhub} ) ) {
@@ -782,22 +792,29 @@ for my $version ( sort { $a <=> $b } keys %{$teams->{team}} ) {
             }
         }
         elsif ( $role eq 'release_date' ) {
-            $teams->{team}->{$version}->{$role} = DateTime->from_epoch( epoch => $teams->{team}->{$version}->{$role});
+            $teams->{team}->{$version}->{$role} = DateTime->from_epoch( epoch => $teams->{team}->{$version}->{$role} );
         }
         elsif ( $role eq 'codename' ) {
             if ( $version == $short_version ) {
-                $codename = $teams->{team}->{$version}->{$role};
+                $codename = $detail;
             }
             next;
         }
         else {
-            my $name = $teams->{team}->{$version}->{$role}->{name};
+            if ( my $subversion = $detail->{version} ) {
+                $normalized_role .= ':' . $subversion;
+            }
+            if ( my $area = $detail->{area} ) {
+                $normalized_role .= ':' . $area;
+            }
+
+            my $name = $detail->{name};
             # Add role to contributors
             push @{ $contributors->{$name}->{roles}->{$normalized_role} },
               $version;
             # Add openhub to teams
             if ( exists( $contributors->{$name}->{openhub} ) ) {
-                $teams->{team}->{$version}->{$role}->{openhub} =
+                $detail->{openhub} =
                   $contributors->{$name}->{openhub};
             }
         }
diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/about-team.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/about-team.inc
index 065bae112fb..fbafd90ebe7 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/about-team.inc
+++ b/koha-tmpl/intranet-tmpl/prog/en/includes/about-team.inc
@@ -1,5 +1,8 @@
 [%- BLOCK role -%]
-  [%- SWITCH role.key -%]
+  [% matches = role.key.match('(\w+):?(.*)?') %]
+  [% ro = matches.0 %]
+  [% ex = matches.1 %]
+  [%- SWITCH ro -%]
     [%- CASE 'manager'               -%]<span>Release manager</span>
     [%- CASE 'manager_assistant'     -%]<span>Release manager assistant</span>
     [%- CASE 'manager_mentor'        -%]<span>Release manager mentor</span>
@@ -27,7 +30,11 @@
     [%- CASE 'live_cd'               -%]<span>Live CD maintainer</span>
     [%- CASE 'accessibility_advocate'-%]<span>Accessibility advocate</span>
     [%- CASE 'meeting_facilitator'   -%]<span>Meeting facilitator</span>
+    [%- CASE 'ktd'                   -%]<span>Developer tooling</span>
+    [%- CASE 'website'               -%]<span>Website administrator</span>
+    [%- CASE -%]<span>MISSING MAP FOR ROLE: [% role.key | html %]</span>
   [%- END -%]
+  [%- IF ex %] - [% ex | html %][% END -%]
 [%- END -%]
 
 [%- BLOCK person -%]
-- 
2.43.0