Author: hhubner Date: 2006-02-20 13:51:53 -0600 (Mon, 20 Feb 2006) New Revision: 1869

Added: branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml Removed: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml Modified: branches/xml-class-rework/projects/lisp-ecoop/src/participant.lisp branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml Log: home -> news.

Modified: branches/xml-class-rework/projects/lisp-ecoop/src/participant.lisp =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/src/participant.lisp 2006-02-20 19:46:12 UTC (rev 1868) +++ branches/xml-class-rework/projects/lisp-ecoop/src/participant.lisp 2006-02-20 19:51:53 UTC (rev 1869) @@ -43,15 +43,17 @@ (:princ-safe (submission-title submission))))))

(define-lisp-ecoop-class participant (user) - ((url :update :documentation "Personal Website URL" :initform nil) - (picture :update :documentation "Photo of the participant") - (submissions :update :documentation "Submitted documents" :initform nil) - (affiliation :update :documentation "Organization to which the person belongs" :initform nil) + ((login :read :attribute t) + (url :update :documentation "Personal Website URL" :initform nil :attribute t) + (picture :update :documentation "Photo of the participant" :element t) + (submissions :update :documentation "Submitted documents" :initform nil :element t) + (affiliation :update :documentation "Organization to which the person belongs" :initform nil :attribute t) (interests :update :documentation "Interests (as keyword list)" :index-type hash-list-index :index-reader participants-with-interests - :index-keys all-interest-keywords) - (text :update :documentation "Self descriptionary text")) + :index-keys all-interest-keywords + :attribute t) + (text :update :documentation "Self descriptionary text" :element t)) (:default-initargs :picture nil :submission nil :interests nil :text ""))

(defmethod initialize-persistent-instance :after ((participant participant))

Modified: branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp 2006-02-20 19:46:12 UTC (rev 1868) +++ branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp 2006-02-20 19:51:53 UTC (rev 1869) @@ -17,7 +17,7 @@ (make-instance 'website :name "LISP ECOOP CMS" :handler-definitions `(("/" redirect-handler - :to "home") + :to "news") ("/" template-handler :destination ,(namestring (merge-pathnames #p"templates/" *website-directory*)) :command-packages ((:lisp-ecoop . :lisp-ecoop.tags)

Deleted: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-02-20 19:46:12 UTC (rev 1868) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-02-20 19:51:53 UTC (rev 1869) @@ -1,31 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<?xml-stylesheet type="text/xsl" href="lisp-ecoop.xsl" ?> -<lisp-ecoop:page name="home" - xmlns:lisp-ecoop="http://lisp-ecoop06.bknr.net%22%3E - -<h1>Home</h1> - -<p>Welcome to the Website of the 3rd European Lisp -Workshop. Please see the <a href="cfp">Call for Participation</a> for a -description of the goals of the workshop.</p> - -<h1>News</h1> - -<h3>February 20, 2006</h3> - -<ul> -<li>Launched the workshop website.</li> -</ul> - -<!-- -<div align="center"> - <p> - <a href="http://www.alu.org" target="_new"> - <img src="/image/alu-logo" alt="" height="63" width="95" align="middle" target="_new" border="0" /> - </a> - </p> - <p>Supported by ALU</p> -</div> ---> - -</lisp-ecoop:page>

Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml 2006-02-20 19:46:12 UTC (rev 1868) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml 2006-02-20 19:51:53 UTC (rev 1869) @@ -1,6 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <menu name="main"> - <item url="home" title="Home" /> + <item url="news" title="News" /> <item url="cfp" title="Call for Participation" /> <item url="registration" title="Registration" /> <!--

Copied: branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml (from rev 1867, branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml) =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-02-20 19:44:52 UTC (rev 1867) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml 2006-02-20 19:51:53 UTC (rev 1869) @@ -0,0 +1,29 @@ +<?xml version="1.0" encoding="UTF-8"?> +<?xml-stylesheet type="text/xsl" href="lisp-ecoop.xsl" ?> +<lisp-ecoop:page name="home" + xmlns:lisp-ecoop="http://lisp-ecoop06.bknr.net%22%3E + +<h1>News</h1> + +<p>Welcome to the Website of the 3rd European Lisp +Workshop. Please see the <a href="cfp">Call for Participation</a> for a +description of the goals of the workshop.</p> + +<h3>February 20, 2006</h3> + +<ul> +<li>Launched the workshop website.</li> +</ul> + +<!-- +<div align="center"> + <p> + <a href="http://www.alu.org" target="_new"> + <img src="/image/alu-logo" alt="" height="63" width="95" align="middle" target="_new" border="0" /> + </a> + </p> + <p>Supported by ALU</p> +</div> +--> + +</lisp-ecoop:page>