diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-15 20:16:21 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-15 20:16:21 +0000 |
commit | 97cb49f1c40856804ccac5925459187b4d3724bb (patch) | |
tree | acf3fbd4f163ccf1970d0fc61efc6801c1da0dec /src/cgi-bin | |
parent | 150f2f64e4e580c0d6ab75d4bee150a4369cc4f1 (diff) | |
download | ellinika-97cb49f1c40856804ccac5925459187b4d3724bb.tar.gz ellinika-97cb49f1c40856804ccac5925459187b4d3724bb.tar.bz2 |
Update sql-error-handler definitions.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@542 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'src/cgi-bin')
-rw-r--r-- | src/cgi-bin/dict.scm4 | 9 | ||||
-rw-r--r-- | src/cgi-bin/nea.scm4 | 7 |
2 files changed, 3 insertions, 13 deletions
diff --git a/src/cgi-bin/dict.scm4 b/src/cgi-bin/dict.scm4 index 4d301fb..9cd23a8 100644 --- a/src/cgi-bin/dict.scm4 +++ b/src/cgi-bin/dict.scm4 @@ -33,15 +33,10 @@ ifelse(IFACE,[CGI],(cgi:init)) ;; Τα μέρη του λογου (define part-of-speech '()) -(define (sql-error-handler err descr) +(define (sql-error-handler key func fmt fmtargs data) (format #t "<h1 class=\"error\">~A</h1>\n" (_ "ΣΦΆΛΜΑ: σύνδεση με το λέξικο απέτυχε.")) - (with-output-to-port - (current-error-port) - (lambda () - (display err) - (display ": ") - (display descr)))) + (apply format (current-error-port) fmt fmtargs)) (define (mk-dict-connect) (let ((db-connection #f)) diff --git a/src/cgi-bin/nea.scm4 b/src/cgi-bin/nea.scm4 index b5a9af0..d6099d1 100644 --- a/src/cgi-bin/nea.scm4 +++ b/src/cgi-bin/nea.scm4 @@ -62,12 +62,7 @@ ifelse(IFACE,[CGI],(cgi:init)) (define (sql-error-handler err descr) (format #t "<h1 class=\"error\">~A</h1>\n" (_ "ΣΦΆΛΜΑ: σύνδεση με την βάση δεδομένων απέτυχε.")) - (with-output-to-port - (current-error-port) - (lambda () - (display err) - (display ": ") - (display descr)))) + (apply format (current-error-port) fmt fmtargs)) (defmacro catch-sql (expr) `(catch 'gsql-error |