@@ -185,12 +185,15 @@
 obj))
 
 (define (get-obj-by-code code )
   (let* ((obj '()))
     (sauthorize:db-do  (lambda (db)
+        ;(print (conc "SELECT  code, exe_name,  id, basepath, required_grps  FROM  areas where areas.code = '" code "'"))
         (let* ((data-row (query fetch (sql db (conc "SELECT  code, exe_name,  id, basepath, required_grps  FROM  areas where areas.code = '" code "'")))))
+         ;(print data-row)
          (set!  obj data-row)
+         ;(print obj) 
         )))
     (if (not (null? obj))
           (begin
           (let* ((req-grp (caddr (cddr obj))))
             (sauthorize:do-as-calling-user