         (for [variant variants]
             [variant (for [product products :when (= variant (get package-descriptions product))] product)])))
 
+(defn get-user-name
+    [new-user-name old-user-name]
+    (or new-user-name old-user-name))
+
 (defn process
-    [package new-description]
+    [package new-description format new-user-name old-user-name]
     (if (and (not-empty-parameter? package) (not-empty-parameter? new-description))
         (store-ccs-description package new-description))
     (let [ccs-description               (read-ccs-description package)

        [:br]])

(defn html-renderer
    [products package package-descriptions ccs-description products-per-descriptions products-without-descriptions new-description]
    (page/xhtml
        (render-html-header package)
        [:body
            [:div {:class "container"}
                (render-navigation-bar-section package)

                (if new-description
                    (show-info-about-update package))

                (form/submit-button {:class "btn btn-default"} "Remember me")]]))

(defn render-navigation-bar-section
    [package user-name]
    [:nav {:class "navbar navbar-inverse navbar-fixed-top" :role "navigation"}
        [:div {:class "container-fluid"}
            [:div {:class "row"}
