' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemManageApplication&wid=$WID
'  $Command.System.SetApplication
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' Call cmLoadStyleSheet "setting"
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( ! form.Name.value )
	{
		alert( "名前を入力してください。" );
		return false;
	}
}
-->
</script>
' $CaptionTitle = "アプリケーションの変更"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemManageApplication&wid=$WID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin&wid=$WID" "システム設定" $BackURL "アプリケーションの設定"
<form method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemManageApplicationSet">
<input type="hidden" name="rw" value="mw">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>変更するアプリケーションの情報を設定してください。<br>
' Call formNote 1
</p><p>
' Set $ws = $mw.WorkSpaces.$WID
' If $ID = -1
'  Set $app = $ws.Post
' Elif $ID = -2
'  Set $app = $ws.Customer
' Elif $ID = -3
'  Set $app = $ws.Report
' Elif $ID = -4
'  Set $app = $ws.Template
' Elif $ID = -5
'  Set $app = $ws.User
' Else
'  Set $app = $ws.Forms.$ID
' EndIf
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>名前
' Call formNecessaryMark
</td><td valign="top">
' Call formtext "Name" $app.Name 20 1
</td></tr>
<tr><td colspan="2" valign="top" nowrap>
' Call formCheckBox "Disable" "このアプリケーションは使用しない" $app.Disable 1 "Disable"
</td></tr>
</table>
' Call formCommit "変更する"
</p>
</form>
' Call cmChildFooter $BackURL "アプリケーションの設定へ"
</body>
</html>