[bknr-cvs] r2154 - in trunk: bknr/src/images bknr/src/web projects/bos/payment-website/static

[bknr at bknr.net]

Author: hhubner
Date: 2007-04-15 03:27:51 -0400 (Sun, 15 Apr 2007)
New Revision: 2154

Modified:
   trunk/bknr/src/images/image.lisp
   trunk/bknr/src/web/web-macros.lisp
   trunk/projects/bos/payment-website/static/cms.css
Log:
Improve error message formatting


Modified: trunk/bknr/src/images/image.lisp
===================================================================
--- trunk/bknr/src/images/image.lisp	2007-04-15 07:27:22 UTC (rev 2153)
+++ trunk/bknr/src/images/image.lisp	2007-04-15 07:27:51 UTC (rev 2154)
@@ -70,7 +70,7 @@
   (unless (scan #?r"\D" name)
     (error "invalid image name ~A, needs to contain at least one non-digit character" name))
   (when (store-image-with-name name)
-    (error "can't make image with name ~A, an image with name already exists in the datastore" name))
+    (error "can't make image with name ~A, an image with this name already exists in the datastore" name))
   (let ((store-image (apply #'make-object
 			    class-name
 			    :name name

Modified: trunk/bknr/src/web/web-macros.lisp
===================================================================
--- trunk/bknr/src/web/web-macros.lisp	2007-04-15 07:27:22 UTC (rev 2153)
+++ trunk/bknr/src/web/web-macros.lisp	2007-04-15 07:27:51 UTC (rev 2154)
@@ -105,7 +105,8 @@
         ((:body :class "cms")
          (:h1 "Error processing your request")
          (:p "While processing your request, an error occured:")
-         (:pre (:princ-safe error)))))))
+         ((:div :class "error")
+	  (:princ-safe error)))))))
 
 (defun show-page-with-error-handlers (fn req &key response title)
   (unless response

Modified: trunk/projects/bos/payment-website/static/cms.css
===================================================================
--- trunk/projects/bos/payment-website/static/cms.css	2007-04-15 07:27:22 UTC (rev 2153)
+++ trunk/projects/bos/payment-website/static/cms.css	2007-04-15 07:27:51 UTC (rev 2154)
@@ -51,3 +51,8 @@
 .footer {
 	font-size: 70%;
 }
+
+.error {
+	color:#f00;
+	font-size: 110%;
+}
\ No newline at end of file