anchor.diff:                               :image (awhen (first (getf data :images))
                                         (get-image-thumbnail it 1200 1200)))
                  :selected (awhen (get-parameter-string "menu") it))))
  -         (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)
  -         (fb-taggable-friends)
  -         (possible-fb-friends-to-tag friend-tags-to-authorize))
  -
  -    (when (and self-author-p
  -               (getf *user* :fb-link-active))
  -      (unless possible-fb-friends-to-tag
  -        (setf fb-taggable-friends
  -              (multiple-value-list (facebook-taggable-friend-tokens
  -                                     (getf data :subjects))))
  -        (awhen (remove nil (mapcar 'car (first fb-taggable-friends)))
  -          (when (set-difference it (getf data :fb-tagged-friends))
  -            (setf possible-fb-friends-to-tag it))))
  -      (when (and (not new-fb-authorization)
  -                 possible-fb-friends-to-tag)
  -        (setf fb-user-friends-permission
  -              (multiple-value-list (check-facebook-permission :user-friends *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)
  +        ;(fb-taggable-friends)
  +        ;(possible-fb-friends-to-tag friend-tags-to-authorize)
  +         )
  +
  +   ;;Facebook tagging functionality is broken since Facebook ended support for custom open graph stories
  +   ;(when (and self-author-p
  +   ;           (getf *user* :fb-link-active))
  +   ;  (unless possible-fb-friends-to-tag
  +   ;    (setf fb-taggable-friends
  +   ;          (multiple-value-list (facebook-taggable-friend-tokens
  +   ;                                 (getf data :subjects))))
  +   ;    (awhen (remove nil (mapcar 'car (first fb-taggable-friends)))
  +   ;      (when (set-difference it (getf data :fb-tagged-friends))
  +   ;        (setf possible-fb-friends-to-tag it))))
  +   ;  (when (and (not new-fb-authorization)
  +   ;             possible-fb-friends-to-tag)
  +   ;    (setf fb-user-friends-permission
  +   ;          (multiple-value-list (check-facebook-permission :user-friends *userid*)))))
   
       (cond
         ((not data) (not-found))
  
positive.code:             (renew-fb-token :item-to-publish id
                              :fb-permission-requested :publish-actions
                              :next next)))
           (friends-to-tag
            (tag-facebook-friends id friends-to-tag)
            (see-other url))
           ((post-parameter "edit")
            (see-other (s+ url "/edit")))))
        (not-found))))
  
negative.code:            (update-folder-data message :read))
           gratitude-page))
  
       ;((or (getf data :fb-tagged-friends)
       ;     (not possible-fb-friends-to-tag)
       ;     (get-parameter "skip-fb-tagging"))
       ; gratitude-page)
  
        ;; Tagging was convoluted because Facebook's  API didn't allow apps to pass
        ;; FB user ids to tag an item. They only passed a special token that prevented
        ;; us from verifying that a gratitude recipient is also a facebook friend.
        ;; Now Facebook tagging functionality is totally broken since Facebook ended support
        ;; for custom open graph stories
  
       ;((not (first fb-user-friends-permission))
       ; (fb-taggable-friends-auth-warning (second fb-taggable-friends))
       ; (facebook-friends-permission-html
       ;       :redirect-uri (strcat "gratitude/" id)
       ;       :re-request (eql (second fb-user-friends-permission) :declined)
       ;       :cancel-link (url-compose (strcat "gratitude/" id)
       ;                                 "skip-fb-tagging" "t")
       ;       :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 gratitude-page)
      )))
  
  (defun post-gratitude
    (id
     &aux (url (strcat "/gratitude/" id))
          (next (or (post-parameter-string "next") url))
  
         ;Facebook tagging functionality is broken since Facebook ended support for
         ;custom open graph stories
         ;(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)
  