anchor.diff:                               :description (getf data :text)
                                :image (awhen (first (getf data :images))
                                         (get-image-thumbnail it 1200 1200)))
  -               :selected (awhen (get-parameter-string "menu") it)))))
  +               :selected (awhen (get-parameter-string "menu") it))))
  +        ;; 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.
  +        ;(friend-tags-to-authorize (get-parameter-integer-list
  +        ;                            "authorize-fb-friend-tag"))
  +        ;(new-fb-authorization (string= (get-parameter-string "state") "user_friends_scope_granted"))
  +        ;(fb-user-friends-permission
  +        ;  (when (and *user* self-author-p (or friend-tags-to-authorize new-fb-authorization))
  +        ;    (multiple-value-list (check-facebook-permission :user-friends *userid*))))
  +        ;(possible-fb-friends-to-tag
  +        ;  (or friend-tags-to-authorize
  +        ;      (remove nil
  +        ;              (mapcar (lambda (subject-id)
  +        ;                        (let ((subject (db subject-id)))
  +        ;                          (when (and (getf subject :fb-id)
  +        ;                                     (getf subject :fb-link-active)
  +        ;                                     (check-facebook-permission
  +        ;                                       :user-friends
  +        ;                                       subject-id))
  +        ;                          subject-id)))
  +        ;                (getf data :subjects)))))
  +         )
  +
       (cond
         ((and data (not *user*))
          gratitude-page)
  
positive.code:   (let* ((data (db id))
           (result (gethash id *db-results*))
           (self-author-p (eql (getf data :author) *userid*))
           (friend-tags-to-authorize (get-parameter-integer-list
                                       "authorize-fb-friend-tag"))
           (new-fb-authorization (string= (get-parameter-string "state") "user_friends_scope_granted"))
           (fb-user-friends-permission
             (when (and *user* self-author-p (or friend-tags-to-authorize new-fb-authorization))
               (multiple-value-list (check-facebook-permission :user-friends *userid*))))
           (possible-fb-friends-to-tag
             (or friend-tags-to-authorize
                 (remove nil
                         (mapcar (lambda (subject-id)
                                   (let ((subject (db subject-id)))
                                     (when (and (getf subject :fb-id)
                                                (getf subject :fb-link-active)
                                                (check-facebook-permission
                                                  :user-friends
                                                  subject-id))
                                     subject-id)))
                           (getf data :subjects)))))
  
           (gratitude-page
             (when result
               (standard-page
  
negative.code:                           "when they reactivate their account.")
                        "Your statement of gratitude has been posted"))
               (see-other
                 (or (when (and (post-parameter "publish-facebook")
                               ;facebook-recipients
                                )
                       (flash "Your statement of gratitude has been published on Facebook")
                       (apply #'url-compose
                              (strcat "gratitude/" new-id)
                             ;(flatten
                             ;  (mapcar (lambda (id)
                             ;            (cons "authorize-fb-friend-tag"
                             ;                  (strcat id)))
                             ;          facebook-recipients))
                              ))
                     next
                     (if inactive-subject
                       "/home"
  