From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 18 Apr 2004 20:45:40 +0000 (+0000)
Subject: r9074: handle find-ustats-all when srl is nil
X-Git-Tag: v2006ac.2~109
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=cebf651f3b7cfaea45efcaa9a754643d96f33392

r9074: handle find-ustats-all when srl is nil
---

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 2171632..6b606db 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -844,11 +844,18 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
 	       conn))
 
 (defun find-ustats-all (&key (srl *current-srl*))
-  (collect-umlisp-query (ustats (name count srl) nil srl srl
-				   :order (name asc))
-   (make-instance 'ustats :name name :hits (ensure-integer count)
-		  :srl (ensure-integer srl))))
-
+  (if srl
+      (collect-umlisp-query (ustats (name count srl) nil srl srl
+				    :order (name asc))
+			    (make-instance 'ustats :name name
+					   :hits (ensure-integer count)
+					   :srl (ensure-integer srl)))
+    (collect-umlisp-query (ustats (name count srl) nil nil nil
+				  :order (name asc))
+			  (make-instance 'ustats :name name
+					 :hits (ensure-integer count)
+					 :srl (ensure-integer srl)))))
+  
 (defun find-ustats-srl (srl)
   (collect-umlisp-query (ustats (name count) nil srl srl :order (name asc))
 			   (make-instance 'ustats :name name :hits (ensure-integer count))))