anchor.diff:                (:li :role "presentation"
                   (:a :href "#" :class ""
                     (:i :class "icon16 i-file-zip")
  -                  "User LuptonC attached 3 files"))))
  +                  "User NonnyA attached 3 files"))))
             (:li :class "divider-vertical")
             (:li :class "dropdown"
               (:a :href "#" :class "dropdown-toggle" :data-toggle "dropdown"
  
positive.code: (defun admin-footer ()
    "Template block for admin site footer."
    (cl-who:with-html-output (hunchentoot::*standard-output*)
      )
    )
  
  (defun admin-menu ()
    "Admin Site menu generator function."
    (cl-who:with-html-output (hunchentoot::*standard-output*)
      )
    )
  
  ;; Admin Login page
  (defparameter admin-login-styles '("/static/css/admin/login.css"))
  
negative.code: (defun admin-dashboard ()
    "Admin site dashboard widget generator function."
    (cl-who:with-html-output (hunchentoot::*standard-output*)
      (:div :id "heading" :class "page-header"
        (:h1 (:i :class "icon20 i-dashboard") " Dashboard"))
      (:div :class "row"
        (:p :class "lead"
          "Welcome to REDSHIFTNET Admin.  This is a good place to put your favourite dashboard widgets.  There should probably be a list somewhere that is built through the interface, so users can customize it..."))))
  
  (defrequest rsn-admin (:vhost *ssl-vhost*)
    (admin-page ("REDSHIFTNET Admin :: Dashboard" #'admin-login
  