anchor.diff:  
   (setq *logged-in-users* (make-hash-table :test 'equal))
   
  +(defun IAM-security-page-header ()
  +(cl-who:with-html-output (*standard-output* nil)
  +      (:div :class "row"
  +	       (:div :class "col-sm-12"
  +		     (:h5 (:span :class "label label-warning" "Note: Any changes saved will not get reflected  when you refresh the screen. Please stop and start HighriseHub system 
  +using (stop-das) followed by (start-das) in the Lisp REPL."))))
  +	 (:div :class "row"
  +	       (:div :class "col-xs-2"
  +		     (:a :class "btn btn-primary" :role "button" :href "/hhub/listattributes"  " Business Attributes  "))
  +	       (:div :class "col-xs-2"
  +		     (:a :class "btn btn-primary" :role "button" :href "/hhub/listbusobjects"  " Business Objects  "))
  +	       (:div :class "col-xs-2"
  +		     (:a :class "btn btn-primary" :role "button" :href "/hhub/listabacsubjects"  " Business Personas  "))
  +	       (:div :class "col-xs-2"
  +		     (:a :class "btn btn-primary" :role "button" :href "/hhub/listbustrans"  " Business Transactions  ")))
  +	 (:div :class "row" )))
  +	
  +
  +
   (defun dod-controller-list-busobjs () 
   :documentation "List all the business objects"
   (with-opr-session-check 
     (let ((busobjs (select-bus-object-by-company (get-login-company))))
       (with-standard-admin-page (:title "Business Objects ...")
  -      (:div :class "row"
  -	    (:div :class "col-md-12" (:h4 "Business Objects")))
  -      (str (display-as-table (list "Name")  busobjs 'busobj-card))
  -      (:h4 "Note: To add new business objects to the system, follow these steps.")
  -      (:h4 "In the Lisp REPL call the function, (create-bus-object)")))))
  +			      (IAM-security-page-header)
  +			      (:div :class "row"
  +				    (:div :class "col-md-12" (:h4 "Business Objects")))
  +			      (str (display-as-table (list "Name")  busobjs 'busobj-card))
  +			      (:h4 "Note: To add new business objects to the system, follow these steps.")
  +			      (:h4 "In the Lisp REPL call the function, (create-bus-object)")))))
   
   
   
  
positive.code:   (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))))))
  
  
  
  
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" 
  