From db0e5c728ac01665d9cf1d79ccc3fb4d4dbd8ec0 Mon Sep 17 00:00:00 2001 From: Wolfgang Bangerth Date: Wed, 17 Feb 2016 06:19:41 -0600 Subject: [PATCH] Also use the proper name in the title of the program. --- doc/doxygen/scripts/make_gallery.pl | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) 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 =~ s//>/g; $authors =~ s/\s*$//g; + +# Read the proper name of the program +open ENTRYNAME, "<$gallery_dir/doc/entry-name"; +my $entryname; +while (my $line = ) { + 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

This program was contributed by $authors. -- 2.39.5