loncom/build/doc_template.pl - diff

Return to doc_template.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.6, 2002/05/01 22:15:37	version 1.7, 2002/05/02 02:09:34
Line 22 $t=~s/\<TITLE \/\>/$title/g;	Line 22 $t=~s/\<TITLE \/\>/$title/g;
$d=~/\$(.*?)\$/;	$d=~/\$(.*?)\$/;
my $e=$1;	my $e=$1;
$e=~s/\S\s\S\s+\S*$/ updated by Scott Harrison/;	$e=~s/\S\s\S\s+\S*$/ updated by Scott Harrison/;
my $cvsdate="<p><font size=\"-2\"><i>CVS $e</i></font></p>";	my $cvsdate="<p align=\"left\"><font size=\"-2\"><i>CVS $e</i></font></p>";
$t=~s/\<DATE \/\>/$cvsdate/g;	$t=~s/\<DATE \/\>/$cvsdate/g;
$d=~/\<\!\-\- pdfahref (.*?) \-\-\>/;	$d=~/\<\!\-\- pdfahref (.*?) \-\-\>/;
my $pdfahref="<a href='$1'>";	my $pdfahref="<a href='$1'>";
Line 86 $d=~/\<\!\-\- maintext start \-\-\>(.*?)	Line 86 $d=~/\<\!\-\- maintext start \-\-\>(.*?)
my $maintext=$1;	my $maintext=$1;
$t=~s/\<MAINTEXT \/\>/$maintext/g;	$t=~s/\<MAINTEXT \/\>/$maintext/g;
my $v=(<<END);	my $v=(<<END);
<p>	<p align="right">
<a href="http://validator.w3.org/check/referer"><img	<a href="http://validator.w3.org/check/referer"><img
src="http://www.w3.org/Icons/valid-xhtml10"	src="/loncapa_doc_icons/valid-xhtml10"
alt="Valid XHTML 1.0!" height="31" width="88" /></a>	alt="Valid XHTML 1.0!" height="31" width="88" /></a>
</p>	</p>
END	END