From 8e99afa697c86beeb608e39670b7f156cc3b1eb3 Mon Sep 17 00:00:00 2001
From: Wolfgang Bangerth <bangerth@math.tamu.edu>
Date: Sat, 13 Feb 2016 07:22:33 -0600
Subject: [PATCH] Add authors to the lines that list the code gallery programs.

---
 doc/doxygen/scripts/code-gallery.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/doc/doxygen/scripts/code-gallery.pl b/doc/doxygen/scripts/code-gallery.pl
index 0bc718c33c..8f37c3732c 100644
--- a/doc/doxygen/scripts/code-gallery.pl
+++ b/doc/doxygen/scripts/code-gallery.pl
@@ -35,8 +35,15 @@ print "<dl>\n";
 foreach my $gallery (sort @ARGV)
 {
     my $gallery_underscore = $gallery;
+
+    open AUTHOR, "<$gallery_dir/$gallery/doc/author";
+    my $authors;
+    while (my $line = <AUTHOR>) {
+        $authors .= $line;
+    }
+
     $gallery_underscore    =~ s/-/_/;
-    print "  <dt><b>\@ref code_gallery_${gallery_underscore} \"$gallery\"</b></dt>\n";
+    print "  <dt><b>\@ref code_gallery_${gallery_underscore} \"$gallery\"</b> (by $authors)</dt>\n";
     print "    <dd>\n";
     open TOOLTIP, "<$gallery_dir/$gallery/doc/tooltip";
     while (my $line = <TOOLTIP>) {
-- 
2.39.5