From 99f8b368f9991e00597476dc120c2237fac1f1e6 Mon Sep 17 00:00:00 2001 From: Wolfgang Bangerth Date: Sat, 13 Feb 2016 16:01:37 -0600 Subject: [PATCH] Separate authors by commas, avoid space at the end. --- doc/doxygen/scripts/code-gallery.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/doc/doxygen/scripts/code-gallery.pl b/doc/doxygen/scripts/code-gallery.pl index 8f37c3732c..f83aa6fdbc 100644 --- a/doc/doxygen/scripts/code-gallery.pl +++ b/doc/doxygen/scripts/code-gallery.pl @@ -39,9 +39,14 @@ foreach my $gallery (sort @ARGV) open AUTHOR, "<$gallery_dir/$gallery/doc/author"; my $authors; while (my $line = ) { - $authors .= $line; + chop $line; + $authors .= $line . ", "; } + # remove trailing whitespaces, as well as the trailing comma + chop $authors; + $authors =~ s/,$//; + $gallery_underscore =~ s/-/_/; print "
\@ref code_gallery_${gallery_underscore} \"$gallery\" (by $authors)
\n"; print "
\n"; -- 2.39.5