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)))