1 {-# LANGUAGE OverloadedStrings #-} 2 module Databrary.View.VolumeAccess 3 ( volumeAccessTitle 4 , volumeAccessPresetTitle 5 -- , htmlVolumeAccessForm 6 ) where 7 8 import qualified Data.ByteString.Char8 as BSC 9 import Data.Monoid ((<>)) 10 import qualified Data.Text as T 11 12 import qualified Databrary.Store.Config as C 13 import Databrary.Service.Messages 14 -- import Databrary.Action 15 -- import Databrary.Model.Party 16 import Databrary.Model.Permission 17 -- import Databrary.Model.Volume 18 -- import Databrary.Model.VolumeAccess 19 -- import Databrary.Controller.Paths 20 -- import Databrary.View.Form 21 22 -- import {-# SOURCE #-} Databrary.Controller.VolumeAccess 23 24 volumeAccessTitle :: Permission -> Messages -> T.Text 25 volumeAccessTitle perm = getMessage $ C.Path ["access", "edit", BSC.pack (show perm), "title"] 26 27 volumeAccessPresetTitle :: Bool -> Messages -> T.Text 28 volumeAccessPresetTitle shared = getMessage $ C.Path ["access", "preset", "title" <> BSC.pack (show (fromEnum shared))] 29 30 {- 31 htmlVolumeAccessForm :: VolumeAccess -> RequestContext -> FormHtml f 32 htmlVolumeAccessForm a@VolumeAccess{ volumeAccessVolume = vol, volumeAccessParty = p } = htmlForm 33 ("Access to " <> volumeName (volumeRow vol) <> " for " <> partyName (partyRow p)) 34 postVolumeAccess (HTML, (volumeId $ volumeRow vol, VolumeAccessTarget $ partyId $ partyRow p)) 35 (do 36 field "individual" $ inputEnum True $ Just $ volumeAccessIndividual a 37 field "children" $ inputEnum True $ Just $ volumeAccessChildren a 38 field "delete" $ inputCheckbox False) 39 (const mempty) 40 -}