From: Wolfgang Bangerth <bangerth@math.tamu.edu>
Date: Wed, 17 Feb 2016 12:19:41 +0000 (-0600)
Subject: Also use the proper name in the title of the program.
X-Git-Tag: v8.5.0-rc1~1305^2
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=refs%2Fpull%2F2204%2Fhead;p=dealii.git

Also use the proper name in the title of the program.
---

diff --git a/doc/doxygen/scripts/make_gallery.pl b/doc/doxygen/scripts/make_gallery.pl
index 06a2ebf88c..eb7e002ea2 100644
--- a/doc/doxygen/scripts/make_gallery.pl
+++ b/doc/doxygen/scripts/make_gallery.pl
@@ -25,7 +25,6 @@ my $gallery_underscore = $gallery;
 $gallery_underscore    =~ s/-/_/;
 
 my $gallery_dir = shift(@ARGV);
-my $author_file = "$gallery_dir/doc/author";
 
 # next get the source files. sort all markdown files
 # first so that we get to show them first. this makes
@@ -38,15 +37,26 @@ push @src_files, sort(grep { !($_ =~ m/.*\.(md|markdown)/) }@ARGV);
 # read the names of authors; escape '<' and '>' as they
 # appear in the email address. also trim trailing space and
 # newlines
-open AUTHORS, "<$author_file";
+open AUTHORS, "<$gallery_dir/doc/author";
 my $authors = <AUTHORS>;
 $authors    =~ s/</&lt;/g; 
 $authors    =~ s/>/&gt;/g; 
 $authors    =~ s/\s*$//g;
 
+
+# Read the proper name of the program
+open ENTRYNAME, "<$gallery_dir/doc/entry-name";
+my $entryname;
+while (my $line = <ENTRYNAME>) {
+    chop $line;
+    $entryname .= $line . " ";
+}
+chop $entryname;
+
+
 print
 "/**
-  * \@page code_gallery_$gallery_underscore The $gallery code gallery program
+  * \@page code_gallery_$gallery_underscore The '$entryname' code gallery program
 \@htmlonly
 <p align=\"center\"> 
   This program was contributed by $authors.