--- doc/help/texxml2latex.pl	2003/09/02 18:29:58	1.9
+++ doc/help/texxml2latex.pl	2004/09/14 21:18:44	1.10
@@ -36,6 +36,7 @@ use File::Temp;
 my $p = HTML::TokeParser->new( $ARGV[0] );
 my $dirprefix = "../../loncom/html/adm/help/tex/";
 
+my $include_filenames = ($ARGV[1] eq '--with-filenames');
 # Make myself a temp dir for processing POD
 my $tmpdir = File::Temp::tempdir('loncapahelpgenXXXXXXX', TMPDIR => 1);
 
@@ -68,6 +69,11 @@ while (my $token = $p->get_token())
 	    my $file = $attr->{'name'};
 	    open (LATEX_FILE, $dirprefix . $file) or 
 		($! = 1, die "Can't find LaTeX file $dirprefix/$file; terminating build.");
+	    my $esc_file=$file;
+	    $esc_file=~s/_/\\_/g;
+	    if ($include_filenames) {
+		print "\\textrm{File: \\bf $esc_file}\\\\\n";
+	    }
 	    print <LATEX_FILE>;
 	    print "\n\n";
 	}