diff options
Diffstat (limited to 'webapps')
| -rw-r--r-- | webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs | 11 | ||||
| -rw-r--r-- | webapps/ldapadmin/site.lisp | 12 |
2 files changed, 14 insertions, 9 deletions
diff --git a/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs b/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs index fb09c3f..268da39 100644 --- a/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs +++ b/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs @@ -284,6 +284,7 @@ [:th "l"] [:th "telephoneNumber"] [:th "mobile"] + [:th "businesscategory"] [:th "Del"]]] [:tbody (for [ldap-user (get jsonobj "results")] @@ -299,6 +300,7 @@ [:td {:onclick onclick} (get ldap-user "l")] [:td {:onclick onclick} (get ldap-user "telephonenumber")] [:td {:onclick onclick} (get ldap-user "mobile")] + [:td {:onclick onclick} (get ldap-user "businesscategory")] [:td [:img {:src "/static/images/edit-delete.png" :onclick (str (namespace ::x) ".on_inetorg_delete_clicked('" cn "')")}]]]))]]) @@ -317,7 +319,8 @@ :st (dommy/value (dommy/sel1 :#view-st)) :l (dommy/value (dommy/sel1 :#view-l)) :telephonenumber (dommy/value (dommy/sel1 :#view-telephonenumber)) - :mobile (dommy/value (dommy/sel1 :#view-mobile))} + :mobile (dommy/value (dommy/sel1 :#view-mobile)) + :businesscategory (dommy/value (dommy/sel1 :#view-businesscategory))} :handler handler-inetorg-view-results})) ;; ========================================================================== ;; @@ -362,7 +365,8 @@ :st (dommy/value (dommy/sel1 :#modify-st)) :l (dommy/value (dommy/sel1 :#modify-l)) :telephonenumber (dommy/value (dommy/sel1 :#modify-telephonenumber)) - :mobile (dommy/value (dommy/sel1 :#modify-mobile))} + :mobile (dommy/value (dommy/sel1 :#modify-mobile)) + :businesscategory (dommy/value (dommy/sel1 :#modify-businesscategory))} :handler handler-inetorg-modify-submit})) ;; ========================================================================== ;; @@ -441,7 +445,8 @@ :st (dommy/value (dommy/sel1 :#add-st)) :l (dommy/value (dommy/sel1 :#add-l)) :telephonenumber (dommy/value (dommy/sel1 :#add-telephonenumber)) - :mobile (dommy/value (dommy/sel1 :#add-mobile))} + :mobile (dommy/value (dommy/sel1 :#add-mobile)) + :businesscategory (dommy/value (dommy/sel1 :#add-businesscategory))} :handler handler-inetorg-add-submit})) ;; ========================================================================== ;; diff --git a/webapps/ldapadmin/site.lisp b/webapps/ldapadmin/site.lisp index f636759..f010186 100644 --- a/webapps/ldapadmin/site.lisp +++ b/webapps/ldapadmin/site.lisp @@ -57,13 +57,13 @@ `(inetorg-view-search-json)) (defmacro .inetorg-view-results () - `(inetorg-view-results-json givenname sn mail postaladdress postalcode st l telephonenumber mobile)) + `(inetorg-view-results-json givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory)) (defmacro .inetorg-modify () `(inetorg-modify-json cn)) (defmacro .inetorg-modify-submit () - `(inetorg-modify-submit-json givenname sn mail postaladdress postalcode st l telephonenumber mobile)) + `(inetorg-modify-submit-json givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory)) (defmacro .inetorg-delete () `(inetorg-delete-json cn)) @@ -75,7 +75,7 @@ `(inetorg-add-json)) (defmacro .inetorg-add-submit () - `(inetorg-add-submit-json givenname sn mail postaladdress postalcode st l telephonenumber mobile)) + `(inetorg-add-submit-json givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory)) ;; ========================================================================== ;; @@ -88,10 +88,10 @@ (define-endpoint :get "/logout" () .logout) (define-endpoint :get "/inetorg/view" () .inetorg-view) (define-endpoint :get "/inetorg/view/search" () .inetorg-view-search) -(define-endpoint :post "/inetorg/view/results" ((givenname :parameter-type 'string) (sn :parameter-type 'string) (mail :parameter-type 'string) (postaladdress :parameter-type 'string) (postalcode :parameter-type 'string) (st :parameter-type 'string) (l :parameter-type 'string) (telephonenumber :parameter-type 'string) (mobile :parameter-type 'string)) .inetorg-view-results) +(define-endpoint :post "/inetorg/view/results" ((givenname :parameter-type 'string) (sn :parameter-type 'string) (mail :parameter-type 'string) (postaladdress :parameter-type 'string) (postalcode :parameter-type 'string) (st :parameter-type 'string) (l :parameter-type 'string) (telephonenumber :parameter-type 'string) (mobile :parameter-type 'string) (businesscategory :parameter-type 'string)) .inetorg-view-results) (define-endpoint :post "/inetorg/modify" ((cn :parameter-type 'string)) .inetorg-modify) -(define-endpoint :post "/inetorg/modify/submit" ((givenname :parameter-type 'string) (sn :parameter-type 'string) (mail :parameter-type 'string) (postaladdress :parameter-type 'string) (postalcode :parameter-type 'string) (st :parameter-type 'string) (l :parameter-type 'string) (telephonenumber :parameter-type 'string) (mobile :parameter-type 'string)) .inetorg-modify-submit) +(define-endpoint :post "/inetorg/modify/submit" ((givenname :parameter-type 'string) (sn :parameter-type 'string) (mail :parameter-type 'string) (postaladdress :parameter-type 'string) (postalcode :parameter-type 'string) (st :parameter-type 'string) (l :parameter-type 'string) (telephonenumber :parameter-type 'string) (mobile :parameter-type 'string) (businesscategory :parameter-type 'string)) .inetorg-modify-submit) (define-endpoint :post "/inetorg/delete" ((cn :parameter-type 'string)) .inetorg-delete) (define-endpoint :post "/inetorg/delete/submit" ((cn :parameter-type 'string)) .inetorg-delete-submit) (define-endpoint :get "/inetorg/add" () .inetorg-add) -(define-endpoint :post "/inetorg/add/submit" ((givenname :parameter-type 'string) (sn :parameter-type 'string) (mail :parameter-type 'string) (postaladdress :parameter-type 'string) (postalcode :parameter-type 'string) (st :parameter-type 'string) (l :parameter-type 'string) (telephonenumber :parameter-type 'string) (mobile :parameter-type 'string)) .inetorg-add-submit) +(define-endpoint :post "/inetorg/add/submit" ((givenname :parameter-type 'string) (sn :parameter-type 'string) (mail :parameter-type 'string) (postaladdress :parameter-type 'string) (postalcode :parameter-type 'string) (st :parameter-type 'string) (l :parameter-type 'string) (telephonenumber :parameter-type 'string) (mobile :parameter-type 'string) (businesscategory :parameter-type 'string)) .inetorg-add-submit) |