[bknr-cvs] hans changed trunk/bknr/web/src/

[BKNR Commits]

Revision: 3730
Author: hans
URL: http://bknr.net/trac/changeset/3730

Minor tweaks for QuickHoney 2.0

U   trunk/bknr/web/src/rss/rss.lisp
U   trunk/bknr/web/src/sysclasses/user.lisp

Modified: trunk/bknr/web/src/rss/rss.lisp
===================================================================
--- trunk/bknr/web/src/rss/rss.lisp	2008-08-19 11:49:23 UTC (rev 3729)
+++ trunk/bknr/web/src/rss/rss.lisp	2008-08-22 23:09:48 UTC (rev 3730)
@@ -63,7 +63,7 @@
 (defmethod prepare-for-snapshot ((channel rss-channel))
   "When snapshotting, remove items from CHANNEL that are destroyed."
   (setf (slot-value channel 'items)
-        (remove-if #'object-destroyed-p (rss-channel-items channel))))
+        (remove-if #'object-destroyed-p (slot-value channel 'items))))
 
 ;; Mixin for items
 

Modified: trunk/bknr/web/src/sysclasses/user.lisp
===================================================================
--- trunk/bknr/web/src/sysclasses/user.lisp	2008-08-19 11:49:23 UTC (rev 3729)
+++ trunk/bknr/web/src/sysclasses/user.lisp	2008-08-22 23:09:48 UTC (rev 3730)
@@ -83,7 +83,8 @@
     (set-smb-password (user-login user) plaintext-password)))
 
 (defmethod admin-p ((user user))
-  (user-has-flag user :admin))
+  (when (user-has-flag user :admin)
+    t))
 
 (defmethod user-mail-error-p ((user user))
   (and (slot-boundp user 'mail-error)