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 |