' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemFormAccess&wid=$WID&id=$ID
'  $Command.Form.SetAccess
'  Exit
' EndIf
' Set $ws = $mw.WorkSpaces.$WID
' Set $FormSystem = $ws.Forms.$ID
' $AppliName = $FormSystem.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryAccessSet.html"-->
' $CaptionTitle = "アクセス権の変更"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemFormAccess&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin&wid=$WID" "システム設定" $BackURL "$AppliNameのアクセス権"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemFormAccessSet">
<input type="hidden" name="rw" value="mw">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>$AppliNameのアクセス権を設定してください。</p>
' Call accessSet "閲覧アクセス権" $FormSystem "Access" "AccessUIDs" "AccessGIDs" "Access" "$ws.Nameの利用ユーザー全員" "" "※ $ws.Nameの利用ユーザーでないユーザーを設定することはできません。"
<hr>
' Call accessSet "作成アクセス権" $FormSystem "AccessCreate" "CreateUIDs" "CreateGIDs" "Create" "閲覧アクセス権のあるユーザー全員" "" "※ 閲覧アクセス権のないユーザーを設定することはできません。"
<hr>
' Call accessSet "変更アクセス権" $FormSystem "AccessModify" "ModifyUIDs" "ModifyGIDs" "Modify" "閲覧アクセス権のあるユーザー全員" "" "※ 閲覧アクセス権のないユーザーを設定することはできません。"
<hr>
' Call accessSet "削除アクセス権" $FormSystem "AccessDelete" "DeleteUIDs" "DeleteGIDs" "Delete" "閲覧アクセス権のあるユーザー全員" "" "※ 閲覧アクセス権のないユーザーを設定することはできません。"
<hr>
' Call accessSet "ファイル出力アクセス権" $FormSystem "AccessFile" "FileUIDs" "FileGIDs" "File" "閲覧アクセス権のあるユーザー全員" "" "※ 閲覧アクセス権のないユーザーを設定することはできません。"
' Call formCommit "変更する" "" "PreSubmitAccessGID( this.form );PreSubmitCreateGID( this.form );PreSubmitModifyGID( this.form );PreSubmitDeleteGID( this.form );PreSubmitFileGID( this.form );"
</form>
' Call cmChildFooter $BackURL "$AppliNameのアクセス権へ"
</body>
</html>