   (if (prod/library-signature? library_signature)
     (let [p (assoc (prod/find id) :library_signature library_signature)]
       (prod/set-state-cataloged! p)
-      (response/redirect "/catalog"))
+      (response/redirect-after-post "/catalog"))
     (catalog request "Library signature not valid")))
 
 (defn production-delete [id]
   (prod/delete! id)
-  (response/redirect "/"))
+  (response/redirect-after-post "/"))
 
 (defn production-bulk-import-form [request & [errors]]
   (let [user (friend/current-authentication request)]

     prod/set-state-structured!
     ;; write the dtbook template file
     dtbook/dtbook-file))
  (response/redirect "/"))

(defn production-repair-form
  [request & [errors]]

        ;; add the file
        (prod/add-structure production tempfile)
        ;; and redirect to the index
        (response/redirect-after-post "/")))))

(defn catalog [request & error]
  (let [identity (friend/identity request)
