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:              (if (not publish-facebook-p)
                 (see-other (or next
                                (if inactive-subject "/home" gratitude-url)))
                 (let* ((taggable-friends (multiple-value-list
                                            (facebook-taggable-friend-tokens
                                              g-subjects)))
                        (next (apply #'url-compose
                                    gratitude-url
                                    (awhen (first taggable-friends)
                                      (flatten
                                        (mapcar (lambda (pair)
                                                  (cons "authorize-fb-friend-tag"
                                                        (strcat (car pair))))
                                                it))))))
  
                   (fb-taggable-friends-auth-warning (second taggable-friends))
  
                   (cond
                     ((current-fb-token-p :publish-actions)
  
negative.code:             (renew-fb-token :item-to-publish id
                              :fb-permission-requested :publish-actions
                              :next next)))
          ;Facebook tagging functionality is broken since Facebook ended support for
          ;custom open graph stories
          ;(friends-to-tag
          ; (tag-facebook-friends id friends-to-tag)
          ; (see-other url))
           ((post-parameter "edit")
            (see-other (s+ url "/edit")))))
        (not-found))))
  