--- loncom/build/doc_template.pl	2002/05/01 22:15:37	1.6
+++ loncom/build/doc_template.pl	2003/02/03 18:03:52	1.10
@@ -1,6 +1,7 @@
-# perl script
+# doc_template.pl - A perl script for beautifying doc/build/*.html files
+
+# (Quick and dirty xml reading and substitution.)
 
-# a quick and dirty xml reading and substitution
 
 # --------------------------------------- slurp in information
 unless (scalar(@ARGV)==2) {
@@ -21,8 +22,8 @@ my $title=$1;
 $t=~s/\<TITLE \/\>/$title/g;
 $d=~/\$(.*?)\$/;
 my $e=$1;
-$e=~s/\S*\s\S*\s+\S*$/ updated by Scott Harrison/;
-my $cvsdate="<p><font size=\"-2\"><i>CVS $e</i></font></p>";
+$e=~s/\S*\s\S*\s+\S*$/ last updated/;
+my $cvsdate="<p align=\"left\"><font size=\"-2\"><i>CVS $e</i></font></p>";
 $t=~s/\<DATE \/\>/$cvsdate/g;
 $d=~/\<\!\-\- pdfahref (.*?) \-\-\>/;
 my $pdfahref="<a href='$1'>";
@@ -86,9 +87,9 @@ $d=~/\<\!\-\- maintext start \-\-\>(.*?)
 my $maintext=$1;
 $t=~s/\<MAINTEXT \/\>/$maintext/g;
 my $v=(<<END);
-<p>
+<p align="right">
  <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>
 </p>
 END