[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv23000

Modified Files:
	web-server.lisp 
Log Message:
Added a note about the annotation functionality on the post-submission page.

Date: Wed Nov 12 01:18:55 2003
Author: bmastenbrook

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.14 lisppaste2/web-server.lisp:1.15
--- lisppaste2/web-server.lisp:1.14	Wed Nov 12 01:04:14 2003
+++ lisppaste2/web-server.lisp	Wed Nov 12 01:18:55 2003
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.14 2003/11/12 06:04:14 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.15 2003/11/12 06:18:55 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -170,6 +170,7 @@
 	     (body
 	      (h1 "Pasted!")
 	      (p ,(if annotate "Your annotation should be available at " "Your paste should be available at ") ((a :href ,url) ,url) ", and was also sent to " ,*channel* " @ " ,(irc:server-name *connection*))
+	      (p "If you wish to paste a correction or addendum to this paste, you can annotate the paste using the submission button on the " ((a :href ,url) "paste's page."))
 	      ,@(bottom-links))))))))))
 
 (defmethod araneida:handle-request-response ((handler display-paste-handler) method request)