mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Make field readonly, not disabled

Browse source 
Working on Windows horriblness all day sure did nice things to my mood,
didn't it?
This commit is contained in:
Joey Hess 2013-06-18 17:08:37 -04:00
parent 6ad6301cbd
commit e8827c29c6
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Assistant/WebApp/Configurators/Edit.hs
View file

@ -134,7 +134,8 @@ setRepoConfig uuid mremote oldc newc = do
editRepositoryAForm :: Bool -> RepoConfig -> MkAForm RepoConfig editRepositoryAForm :: Bool -> RepoConfig -> MkAForm RepoConfig
editRepositoryAForm ishere def = RepoConfig editRepositoryAForm ishere def = RepoConfig
<$> areq textField "Name" (Just $ repoName def) <$> areq (if ishere then readonlyTextField else textField)
"Name" (Just $ repoName def)
<*> aopt textField "Description" (Just $ repoDescription def) <*> aopt textField "Description" (Just $ repoDescription def)
<*> areq (selectFieldList groups `withNote` help) "Repository group" (Just $ repoGroup def) <*> areq (selectFieldList groups `withNote` help) "Repository group" (Just $ repoGroup def)
<*> associateddirectory <*> associateddirectory

7
Assistant/WebApp/Form.hs
View file

@ -33,6 +33,13 @@ textField = F.textField
|] |]
} }
readonlyTextField :: MkField Text
readonlyTextField = F.textField
{ fieldView = \theId name attrs val _isReq -> [whamlet|
<input id="#{theId}" name="#{name}" *{attrs} type="text" value="#{either id id val}" readonly="true">
|]
}
{- Also without required attribute. -} {- Also without required attribute. -}
passwordField :: MkField Text passwordField :: MkField Text
passwordField = F.passwordField passwordField = F.passwordField