anchor.diff:    (with-opr-session-check 
       (let ((policies (get-auth-policies (get-login-tenant-id))))
         (with-standard-admin-page (:title "Welcome to Highrisehub")
  -	(:div :class "row" 
  -	      (:div :class "col-xs-6" 
  -		    (:button :type "button" :class "btn btn-primary" :data-toggle "modal" :data-target "#addpolicy-modal" "Add New Policy")
  -		    (:a :class "btn btn-primary" :role "button" :href "/hhub/listattributes"  " Attributes  ")
  -		    (:a :class "btn btn-primary" :role "button" :href "/hhub/listbusobjects"  " Business Objects  ")
  -		    (:a :class "btn btn-primary" :role "button" :href "/hhub/listabacsubjects"  " Business Subjects  ")
  -		    (:a :class "btn btn-primary" :role "button" :href "/hhub/listbustrans"  " Transactions  ")))
  -	(:hr)
  -	(:div :class "row"
  -	      (:div :class "col-md-12" (:h4 "Business Policies")))
  -	(str (display-as-table (list  "Name" "Description" "Policy Function" "Action")  policies 'policy-card))
  -	(modal-dialog "addpolicy-modal" "Add/Edit Policy" (com-hhub-transaction-policy-create))))))
  +				(iam-security-page-header)
  +		
  +	 (:hr)
  +	 (:div :class "row"
  +	       (:div :class "col-xs-3" (:h4 "Business Policies"))
  +	       (:div :class "col-xs-3" 
  +		     (:button :type "button" :class "btn btn-primary" :data-toggle "modal" :data-target "#addpolicy-modal" "Add New Policy")))
  +
  +	 (str (display-as-table (list  "Name" "Description" "Policy Function" "Action")  policies 'policy-card))
  +	 (modal-dialog "addpolicy-modal" "Add/Edit Policy" (com-hhub-transaction-policy-create))))))
   
   
   
  
positive.code: 		 (:div :class "collapse navbar-collapse" :id "navHeaderCollapse"
  		     (:ul :class "nav navbar-nav navbar-left"
  			 (:li :class "active" :align "center" (:a :href "/hhub/sadminhome"  (:span :class "glyphicon glyphicon-home")  " Home"))
  			 (:li  (:a :href "/hhub/dasabacsecurity" "ABAC Security"))
  			 (:li :align "center" (:a :href "#" (print-web-session-timeout))))
  		     
  		     (:ul :class "nav navbar-nav navbar-right"
  
negative.code: (with-opr-session-check 
    (let ((bustrans (select-bus-trans-by-company (get-login-company))))
      (with-standard-admin-page (:title "Business Transactions...")
  			      (IAM-security-page-header)
  			      (:div :class "row"
  				    (:div :class "col-md-12" 
  					  (:div :class "col-md-12" (:h4 "Business Transactions"))))
  			      (:div :class "col-md-12" 
  				    (:button :type "button" :class "btn btn-primary" :data-toggle "modal" :data-target "#addtransaction-modal" "New Transaction"))
  			      
  			      (str (display-as-table (list "Name" "URI" "Function" "Action")  bustrans 'bustrans-card))
  			      (modal-dialog "addtransaction-modal" "Add/Edit Transaction" (new-transaction-html))))))
  
  (defun dod-controller-list-attrs ()
  :documentation "This function lists the attributes used in policy making"
   (with-opr-session-check 
     (let ((lstattributes (select-auth-attrs-by-company (get-login-company))))
       (with-standard-admin-page (:title "attributes ...")
  			       (iam-security-page-header)
         (:div :class "row"
  	     (:div :class "col-md-12" (:h4 "Attributes"))
  	     (:div :class "col-md-12" 
  