anchor.diff:        ((not self-author-p)
          (permission-denied))
   
  -      ((not (first fb-user-friends-permission))
  -       (facebook-friends-permission-html
  -             :redirect-uri (strcat "gratitude/" id)
  -             :re-request (eql (second fb-user-friends-permission) :declined)
  -             :cancel-link (strcat "gratitude/" id)
  -             :fb-gratitude-subjects possible-fb-friends-to-tag))
  -
  -      (possible-fb-friends-to-tag
  -       (tag-facebook-friends-html
  -         :gratitude-id id
  -         :fb-gratitude-subjects (mapcar (lambda (id) (cons (db id :name)
  -                                                           id))
  -                                        possible-fb-friends-to-tag)))
  -
  +      ;; Tagging is convoluted until Facebook changes it's API to allow apps to pass
  +      ;; FB user ids to tag an item. Now they only pass a special token that prevents
  +      ;; us from verifying that a gratitude recipient is also a facebook friend.
  +
  +     ;((not (first fb-user-friends-permission))
  +     ; (facebook-friends-permission-html
  +     ;       :redirect-uri (strcat "gratitude/" id)
  +     ;       :re-request (eql (second fb-user-friends-permission) :declined)
  +     ;       :cancel-link (strcat "gratitude/" id)
  +     ;       :fb-gratitude-subjects possible-fb-friends-to-tag))
  +
  +     ;(possible-fb-friends-to-tag
  +     ; (tag-facebook-friends-html
  +     ;   :gratitude-id id
  +     ;   :fb-gratitude-subjects (mapcar (lambda (id) (cons (db id :name)
  +     ;                                                     id))
  +     ;                                  possible-fb-friends-to-tag)))
         (t (not-found)))))
   
   (defun post-gratitude
     (id
      &aux (url (strcat "/gratitude/" id))
  -        (friends-to-tag (when (post-parameter "tag-friends")
  -                          (post-parameter-integer-list "tag-fb-friend"))))
  +       ;(friends-to-tag (when (post-parameter "tag-friends")
  +       ;                  (post-parameter-integer-list "tag-fb-friend")))
  +       )
     (require-user (:require-active-user t :allow-test-user t)
       (setf id (parse-integer id))
       (aif (db id)
  
positive.code:                              :description (getf data :text)
                               :image (awhen (first (getf data :images))
                                        (get-image-thumbnail it 1200 1200)))
                 :selected (awhen (get-parameter-string "menu") it)))))
      (cond
        ((and data (not *user*))
         gratitude-page)
  
negative.code:                                             :time time
                                              :text text))
                    (gratitude-url (format nil "/gratitude/~A" new-id))
                   ; (facebook-recipients)
                    )
  
  
               (when (and (getf *user* :fb-link-active)
                          (getf *user* :fb-id)
                          (post-parameter "publish-facebook"))
                 (notice :new-facebook-action :item-id new-id)
                ;; Tagging is convoluted until Facebook changes it's API to allow apps to pass
                ;; FB user ids to tag an item. Now they only pass a special token that prevents
                ;; us from verifying that a gratitude recipient is also a facebook friend.
  
                ;(dolist (subject-id g-subjects)
                ;  (let ((subject-data (db subject-id)))
                ;    (when (and (getf subject-data :fb-id)
                ;               (getf subject-data :fb-link-active)
                ;               (check-facebook-permission :user-friends
                ;                                          subject-id))
                ;      (push subject-id facebook-recipients))))
                 )
  
               (awhen on-id
                 (let* ((inventory-result (gethash on-id *db-results*))
  