Coverage report: /home/samppa/personal/opiskelu/ohtuprojekti/pulsu/trunk/searchbar.lisp

Kind	Covered	All	%
expression	1	2	50.0
branch	0	0	nil

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

(in-package :puls.ui)

2

(defhtml searchbar ()

3

(let ((attrs (get-attrs)) (parameters (cl-ppcre:regex-replace-all "\"" (get-parameter "search") "'")))

4

(htm

5

(:div

6

:id "search"

7

(:form

8

:id "search_form"

9

:action "/setsearch"

10

:method "get"

11

(:table

12

:id "search_bar"

13

(:tbody

14

:id "tbodyid"

15

(:tr :style "display:none;" :id "search_headers"

16

(:td)

17

(dolist (a attrs)

18

(when (equal (attr-search-type a) :text)

19

(htm (:td (str (attr-desc a)))))

20

(when (equal (attr-search-type a) :confidence)

21

(htm (:td (str (attr-desc a)))))))

22

(:tr (:td (:div :id "simple_search"

23

(:div :class "container" :style "float:left;" "Search:"

24

(:input :type "text" :size "30")

25

                      (:a :href "javascript:;" :onclick "newSearch('medical');" "Advanced search")))))))

26

(:select :id "verify_select" (:option "All") (:option "Verified") (:option "Unverified"))

27

(:input :type "hidden" :id "search_values" :name "search_values" :value parameters)

28

(:input :type "hidden" :id "verify" :name "verify" :value (get-parameter "verify"))

29

(:input :type "hidden" :id "to" :name "to" :value (hunchentoot:script-name))

30

(:input :type "submit" :value "Search" :onclick "getSearchValues()")

31

(:input :type "reset" :value "Clear filters" :onclick "resetSearchValues()"))))))

32

33

(defpage (setsearch :uri "/setsearch") (search_values verify to)

34

(if (string= "(())" search_values)

35

(hunchentoot:redirect (format nil "~A?verify=~A&page=0" to verify)))

36

(if (string= "" search_values)

37

(hunchentoot:redirect (format nil "~A?&page=0" to))

38

(hunchentoot:redirect (format nil "~A?search=~A&verify=~A&page=0" to search_values verify))))