diff --git a/Handler/AdminProfileSettings.hs b/Handler/AdminProfileSettings.hs index 50af191..16ed51c 100644 --- a/Handler/AdminProfileSettings.hs +++ b/Handler/AdminProfileSettings.hs @@ -70,7 +70,7 @@ getAdminProfileSettingsR ownerId = do tempUserId <- lookupSession "userId" userId <- return $ getUserIdFromText $ fromJust tempUserId (adminProfileSetWidget, enctype) <- generateFormPost $ adminProfileForm owner - defaultLayout $ do + formLayout $ do setTitle "Administration: Profile settings" $(widgetFile "adminProfileSettings") Nothing -> do diff --git a/static/js/init.js b/static/js/init.js index f9e602c..015e917 100644 --- a/static/js/init.js +++ b/static/js/init.js @@ -133,6 +133,7 @@ var parallelism = (function($) { var _ = { // Window. _.objects.window._parallelism_update = function() { var i, j, x, y, t; +console.log(itemsWidth,itemHeight) // Calculate number of rows we can fit on the screen. rows = Math.min(Math.max(Math.floor(windowHeight / itemHeight) - 1, 1), _.settings.maxRows); diff --git a/templates/adminBase.hamlet b/templates/adminBase.hamlet index de03f36..6ee0f64 100644 --- a/templates/adminBase.hamlet +++ b/templates/adminBase.hamlet @@ -1,15 +1,27 @@ $newline always -

Admin interface +