doc/help/texxml2latex.pl - diff

Return to texxml2latex.pl CVS log

Up to [LON-CAPA] / doc / help

version 1.2, 2002/07/17 15:47:15	version 1.4, 2003/07/01 18:20:52
Line 33 use GDBM_File;	Line 33 use GDBM_File;

# accept texxml document on standard in	# accept texxml document on standard in
my $p = HTML::TokeParser->new( $ARGV[0] );	my $p = HTML::TokeParser->new( $ARGV[0] );
my $dirprefix = "/home/httpd/html/adm/help/tex/";	my $dirprefix = "../../loncom/html/adm/help/tex/";

# Print the header	# Print the header
open (LATEX_FILE, $dirprefix . "Latex_Header.tex");	open (LATEX_FILE, $dirprefix . "Latex_Header.tex");
Line 70 while (my $token = $p->get_token())	Line 70 while (my $token = $p->get_token())
my $file = $attr->{'name'};	my $file = $attr->{'name'};
open (LATEX_FILE, $dirprefix . $file);	open (LATEX_FILE, $dirprefix . $file);
print <LATEX_FILE>;	print <LATEX_FILE>;
	print "\n\n";
}	}

if ($tag eq 'tex')	if ($tag eq 'tex')
{	{
print "\n";	print "\n\n";
print $attr->{'content'};	print $attr->{'content'};
print "\n";	print "\n\n";
}	}
}	}
}	}