                             {:title "Header", :name "header"}
                             [:option {:value headers} (str headers)] 
                             ]]]
-                     [:tr [:td "Pivot: "]
-                      [:td [:select#pivot.required
-                            {:title "Pivot", :name "pivot"}
-                            (for [head headers]
-                            [:option {:value (.indexOf headers head)} head] )
-                            ]]]
+                     [:tr [:td "Pivots: "]
+                      [:td
+                       [:div {:class "form-group"}
+                        [:label 
+                         (for [head headers]
+                           [:span
+                           (check-box {:name "pivotlist[]" :value (.indexOf headers head)} head) head])]]]]
                      [:tr [:td "PString: "]
                      [:td [:select#pdgms.required
                             {:title "PDGMS", :name "pdgmstr2"}

  (POST "/multimodqry" [languages pos] (handle-multimodqry languages pos))
  (POST "/multimoddisplay" [valclusters pos] (handle-multimoddisplay valclusters pos))
  ;;(POST "/multimodplldisplay" [pdgmnames header pdgmstr2] (handle-multimodplldisplay2 pdgmnames header pdgmstr2)))  
(POST "/multimodplldisplay" [pdgmnames header pdgmstr2 pivot] (handle-multimodplldisplay4 pdgmnames header pdgmstr2 pivot)))

        ;; map each 'val-string-w/o-pivot-val token' to token
        prows (split pdgmstr3 #"\\r\\n")
        pcells (for [prow prows] (split prow #","))
        pivotlist2 (str "pdgm,num")
        ;;pivots (split pivotlist2 #",")
        pivot-map (for [pcell pcells] (make-pmap pcell pivots))
        ;; group the val-tokens associated with each pivot val
        newpdgms (merge-matches pivot-map)
        pdgmnums (into [] (take (clojure.core/count pnames) (iterate inc 1)))
