doc/help/texxml2latex.pl - diff

Return to texxml2latex.pl CVS log

Up to [LON-CAPA] / doc / help

version 1.9, 2003/09/02 18:29:58	version 1.10, 2004/09/14 21:18:44
Line 36 use File::Temp;	Line 36 use File::Temp;
my $p = HTML::TokeParser->new( $ARGV[0] );	my $p = HTML::TokeParser->new( $ARGV[0] );
my $dirprefix = "../../loncom/html/adm/help/tex/";	my $dirprefix = "../../loncom/html/adm/help/tex/";

	my $include_filenames = ($ARGV[1] eq '--with-filenames');
# Make myself a temp dir for processing POD	# Make myself a temp dir for processing POD
my $tmpdir = File::Temp::tempdir('loncapahelpgenXXXXXXX', TMPDIR => 1);	my $tmpdir = File::Temp::tempdir('loncapahelpgenXXXXXXX', TMPDIR => 1);

Line 68 while (my $token = $p->get_token())	Line 69 while (my $token = $p->get_token())
my $file = $attr->{'name'};	my $file = $attr->{'name'};
open (LATEX_FILE, $dirprefix . $file) or	open (LATEX_FILE, $dirprefix . $file) or
($! = 1, die "Can't find LaTeX file $dirprefix/$file; terminating build.");	($! = 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 <LATEX_FILE>;
print "\n\n";	print "\n\n";
}	}