Add authors to the lines that list the code gallery programs.

diff --git a/doc/doxygen/scripts/code-gallery.pl b/doc/doxygen/scripts/code-gallery.pl
index 0bc718c33cf2d28ab0cd6406161d78d4227ba9eb..8f37c3732c825a79afa082627acef39ace2494c4 100644 (file)
--- 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>) {