Bug 11853: Allow to clear the date of birth at the OPAC

[koha-ffzg.git] / about.pl

diff --git a/about.pl b/about.pl
index f0beceb..0a7300c 100755 (executable)
--- a/about.pl
+++ b/about.pl
@@ -32,7 +32,7 @@ use XML::Simple;
 use Config;
 use Search::Elasticsearch;
 use Try::Tiny;
-use YAML;
+use YAML qw/LoadFile/;
 
 use C4::Output;
 use C4::Auth;
@@ -395,7 +395,9 @@ my @yaml_prefs = (
     "RisExportAdditionalFields",
     "UpdateItemWhenLostFromHoldList",
     "MarcFieldsToOrder",
-    "MarcItemFieldsToOrder"
+    "MarcItemFieldsToOrder",
+    "UpdateitemLocationOnCheckin",
+    "ItemsDeniedRenewal"
 );
 my @bad_yaml_prefs;
 foreach my $syspref (@yaml_prefs) {
@@ -518,9 +520,7 @@ $template->param( table => $table );
 
 
 ## ------------------------------------------
-## Koha time line code
-
-#get file location
+## Koha contributions
 my $docdir;
 if ( defined C4::Context->config('docdir') ) {
     $docdir = C4::Context->config('docdir');
@@ -530,6 +530,44 @@ if ( defined C4::Context->config('docdir') ) {
     $docdir = C4::Context->config('intranetdir') . '/docs';
 }
 
+## Contributors
+my $contributors =
+  -e "$docdir" . "/contributors.yaml"
+  ? LoadFile( "$docdir" . "/contributors.yaml" )
+  : {};
+my @people = map {
+    {
+        name => $_,
+        (
+            exists( $contributors->{$_}->{openhub} )
+            ? ( openhub => $contributors->{$_}->{openhub} )
+            : ()
+        ),
+        (
+            exists( $contributors->{$_}->{roles} )
+            ? ( roles => $contributors->{$_}->{roles} )
+            : ()
+        ),
+        (
+            exists( $contributors->{$_}->{commits} )
+            ? ( commits => $contributors->{$_}->{commits} )
+            : ()
+        ),
+        (
+            exists( $contributors->{$_}->{notes} )
+            ? ( notes => $contributors->{$_}->{notes} )
+            : ()
+        )
+    }
+} sort {
+    my ($alast) = $a =~ /(\S+)$/;
+    my ($blast) = $b =~ /(\S+)$/;
+    lc($alast) cmp lc($blast)
+} keys %{$contributors};
+
+$template->param( contributors => \@people );
+
+## Timeline
 if ( open( my $file, "<:encoding(UTF-8)", "$docdir" . "/history.txt" ) ) {
 
     my $i = 0;