anchor.diff:  
   (defun get-gratitudes-new ()
     (require-user
  -    (gratitude-compose :subjects (parse-subject-list (get-parameter "subject")))))
  +    (gratitude-compose :subjects (parse-subject-list (get-parameter "subject"))
  +                       :next (referer))))
   
   (defun post-gratitudes-new ()
     (require-active-user
  
positive.code:     (refresh-item-time-in-indexes id :time now)
      (modify-db id :text text :edited now)))
  
  (defun delete-gratitude (id)
    (let* ((result (gethash id *db-results*))
           (data (db id))
           (people (cons (getf data :author) (getf data :subjects)))
           (images (getf data :images)))
  
      (dolist (image-id images)
        (delete-image image-id))
  
      (with-locked-hash-table (*db-results*)
        (remhash id *db-results*))
  
      (with-locked-hash-table (*gratitude-results-index*)
        (dolist (result (gethash id *gratitude-results-index*))
  
negative.code:                (dolist (person (cdr results))
                   (str (id-button (car person) "add" (cdr person)))))))
  
           (:input :type "submit" :class "cancel" :name "cancel" :value "Back")
  
           (when groupid
             (htm (:input :type "hidden" :name "subject" :value groupid)))
  