Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

updating to latest burp and making it possible to nest the survey usi…

…ng relative links
  • Loading branch information...
commit b4637890f29aecc2e38bfebc5764e4732ad1fd6a 1 parent 047c40c
@markmfredrickson authored
View
2  project.clj
@@ -5,7 +5,7 @@
[ring "0.3.11"]
[compojure "0.6.4"]
[hiccup "0.3.6"]
- [burp "0.1.3"]]
+ [burp "0.1.4"]]
:dev-dependencies [[ring-serve "0.1.1"]
[appengine-magic "0.4.4"]
[ring-mock "0.1.1"]])
View
4 src/shanks/core.clj
@@ -90,7 +90,7 @@ Options are of the form: {:name1 \"Label1\" :name2 \"Label2\" ...}"
(defn screen-form
"Wrap a screen in a form"
[scrn subject]
- (f/form-to [:post "/"]
+ (f/form-to [:post ""]
(f/hidden-field :id (:id subject))
(scrn subject)
(f/submit-button "Continue")))
@@ -134,6 +134,6 @@ Returns an app suitable for use with the ring framework."
; remains numeric.
{:step (inc step) :id (:id subject)})
[:timestamp step :finish] (Date.)))
- (rur/redirect (str "/?id=" (:id subject))))))
+ (rur/redirect (str "?id=" (:id subject))))))
(ch/site)))
View
4 test/shanks/demo/core.clj
@@ -3,7 +3,7 @@
ring.middleware.file
[clojure.java.io :only [resource]]
burp.ring
- [burp.jquery :only (jquery-link jquery-ui-link)]
+ [burp.jquery :only (jquery-link jquery-ui-link jquery-support-link jquery-ui-support-link)]
[hiccup.page-helpers :only (xhtml include-js include-css)]))
(defscreen ice-cream-preferences
@@ -37,7 +37,7 @@
[:head
[:title "Demo Survey"]
(jquery-link) (jquery-ui-link)
- (include-js "burp.jquery.ui.support.js")]
+ (jquery-support-link) (jquery-ui-support-link)]
[:body
(if (not (= thanks screen))
(list
Please sign in to comment.
Something went wrong with that request. Please try again.