bugfix: couch-urlize design document names
Mon Jun 23 18:42:14 PDT 2008 Ryszard Szopa <ryszard.szopa@gmail.com>
* bugfix: couch-urlize design document names
diff -rN -u old-cl-couch/view-server/views.lisp new-cl-couch/view-server/views.lisp
--- old-cl-couch/view-server/views.lisp 2014-07-29 17:57:14.000000000 -0700
+++ new-cl-couch/view-server/views.lisp 2014-07-29 17:57:14.000000000 -0700
@@ -180,7 +180,7 @@
(let* (req
(uri-spec
(list database
- (couch-urlize (format nil "_design/~a" (string-downcase (symbol-name (name-of doc)))))))
+ (couch-urlize (format nil "_design/~a" (couch-urlize (name-of doc))))))
(syncing (lambda ()
(couch-request* :put couchdb-server
uri-spec