From 894d0a424dcb4b801bdd3271d8f4d9199025869a Mon Sep 17 00:00:00 2001
From: Wolfgang Bangerth <bangerth@math.tamu.edu>
Date: Tue, 16 Feb 2016 21:09:18 -0600
Subject: [PATCH] Read the proper names of the code gallery programs, now that
 they are available.

---
 doc/doxygen/scripts/code-gallery.pl | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/doc/doxygen/scripts/code-gallery.pl b/doc/doxygen/scripts/code-gallery.pl
index f83aa6fdbc..04a514828e 100644
--- a/doc/doxygen/scripts/code-gallery.pl
+++ b/doc/doxygen/scripts/code-gallery.pl
@@ -36,19 +36,28 @@ foreach my $gallery (sort @ARGV)
 {
     my $gallery_underscore = $gallery;
 
+    # Read the proper name of the program
+    open ENTRYNAME, "<$gallery_dir/$gallery/doc/entry-name";
+    my $entryname;
+    while (my $line = <ENTRYNAME>) {
+        chop $line;
+        $entryname .= $line . " ";
+    }
+    chop $entryname;
+
+    # Read the names of the authors, collate with commas, and at the
+    # end chop the last comma off
     open AUTHOR, "<$gallery_dir/$gallery/doc/author";
     my $authors;
     while (my $line = <AUTHOR>) {
         chop $line;
         $authors .= $line . ", ";
     }
-
-    # remove trailing whitespaces, as well as the trailing comma
     chop $authors;
     $authors =~ s/,$//;
 
     $gallery_underscore    =~ s/-/_/;
-    print "  <dt><b>\@ref code_gallery_${gallery_underscore} \"$gallery\"</b> (by $authors)</dt>\n";
+    print "  <dt><b>\@ref code_gallery_${gallery_underscore} \"$entryname\"</b> (by $authors)</dt>\n";
     print "    <dd>\n";
     open TOOLTIP, "<$gallery_dir/$gallery/doc/tooltip";
     while (my $line = <TOOLTIP>) {
-- 
2.39.5