[bknr-cvs] r1839 - branches/xml-class-rework/bknr/src/web

[bknr at bknr.net]

Author: hhubner
Date: 2006-02-17 14:55:40 -0600 (Fri, 17 Feb 2006)
New Revision: 1839

Modified:
   branches/xml-class-rework/bknr/src/web/templates.lisp
Log:
Change file type of template files to "xml".  This makes it easier to work
with the files using default file types of the operating system.


Modified: branches/xml-class-rework/bknr/src/web/templates.lisp
===================================================================
--- branches/xml-class-rework/bknr/src/web/templates.lisp	2006-02-17 20:52:07 UTC (rev 1838)
+++ branches/xml-class-rework/bknr/src/web/templates.lisp	2006-02-17 20:55:40 UTC (rev 1839)
@@ -216,7 +216,7 @@
 	  (let ((result (multiple-value-list (find-template next-dir (cdr components)))))
 	    (when (car result)
 	      (return-from find-template (values-list result)))))
-	(let ((file (merge-pathnames (make-pathname :type "bknr"
+	(let ((file (merge-pathnames (make-pathname :type "xml"
 						    :name (first components))
 				     dir)))
 	  (when (probe-file file)
@@ -248,14 +248,6 @@
       (setf (gethash namestring table) cache-entry))
     (cdr cache-entry)))
 
-#+nil
-(defmethod make-template-pathname ((page-handler template-handler) template-name)
-  (merge-pathnames
-   (make-pathname :type "bknr")
-   (pathname (concatenate 'string
-			  (namestring (template-handler-destination page-handler))
-			  template-name))))
-
 (defun send-error-response (handler req message &key (response-code *response-internal-server-error*))
   (let* ((pathname (find-template-pathname handler "user-error" :request req))
          (template (get-cached-template pathname handler)))