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)