[clhp-cvs] CVS update: public_html/funcs.lisp

[Anthony Ventimiglia]

Update of /project/clhp/cvsroot/public_html
In directory common-lisp.net:/tmp/cvs-serv14058

Modified Files:
	funcs.lisp 
Log Message:
Finished footer function

Date: Thu Nov 13 12:27:06 2003
Author: aventimiglia

Index: public_html/funcs.lisp
diff -u public_html/funcs.lisp:1.3 public_html/funcs.lisp:1.4
--- public_html/funcs.lisp:1.3	Thu Nov 13 12:24:40 2003
+++ public_html/funcs.lisp	Thu Nov 13 12:27:05 2003
@@ -1,4 +1,4 @@
-;; $Id: funcs.lisp,v 1.3 2003/11/13 17:24:40 aventimiglia Exp $
+;; $Id: funcs.lisp,v 1.4 2003/11/13 17:27:05 aventimiglia Exp $
 ;;
 ;; Functions used on clhp website
 ;; at http://common-lisp.net/project/clhp
@@ -65,11 +65,12 @@
    (page-footer cvs-date)))
 
 (defun page-footer (cvs-date)
-  (tag '|div| '|id| "footer"
-       (tag '|div|
-	    (list
-	     (tag '|b| "Modified: ")
-	     (tag '|span| '|class| "footerCol2" cvs-date)))))
+  (let ((date (string-trim "$ Date:" cvs-date)))
+    (tag '|div| '|id| "footer"
+	 (tag '|div|
+	      (list
+	       (tag '|b| "Modified: ")
+	       (tag '|span| '|class| "footerCol2" date))))))