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 -}