' $System.Access Login
' $WorkSpace.AccessManage
' $AppliName = $WorkSpace.Mails.$ID.Name
' If $System.IsPost
'  $Command.Mail.SetDivider
'  $System.Redirect $Server?page=ManageDividerList&wid=$WID&id=$ID
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' Call cmLoadStyleSheet "setting"
' Set $MailProfile = $Command.Mail.GetMailTop $ID
' Set $Dividers = $MailProfile.Dividers
' If $DVID
'  $CaptionTitle = "区切り線の変更"
'  Set $Divider = $Dividers.$DVID
'  $DVName = $Divider.Name
'  $DVPosition = $Divider.Position
'  $DVDate = $Divider.FixedDate
'  If ! $DVDate
'    $DVDate = $DateTime.Date
'  EndIf
'  $DVTime = $Divider.FixedTime
'  If ! $DVTime
'    $DVTime = $DateTime.Time
'  EndIf
'  $DVValue = $Divider.Value
'  $DVUnit = $Divider.Unit
'  $DVMessage = $Divider.Message
'  $DVColor = $Divider.Color
'  $DVEnabled = $Divider.Enabled
' Else
'  $CaptionTitle = "区切り線の追加"
'  $DVName = ""
'  $DVPosition = "Time"
'  $DVDate = $DateTime.Date
'  $DVTime = $DateTime.Time
'  $DVValue = 1
'  $DVUnit = 0
'  $DVMessage = ""
'  $DVColor = 1
'  $DVEnabled = 1
' EndIf
' Call cmHead $CaptionTitle 1
<script language="JavaScript" type="text/javascript"><!--
function onPositionChange()
{
	var form = document.forms['ManageDividerSet'];
  var spnDate = document.getElementById('spnDate');
  var spnTime = document.getElementById('spnTime');
  var spnVariable = document.getElementById('spnVariable');
  var select = form.Position;
  switch (select.selectedIndex)
  {
		case 0:
    	spnDate.style.display = "";
			spnTime.style.display = "none";
      spnVariable.style.display = "none";
      break;
		case 1:
    	spnDate.style.display = "none";
			spnTime.style.display = "";
      spnVariable.style.display = "none";
      break;
		case 2:
    	spnDate.style.display = "";
			spnTime.style.display = "";
      spnVariable.style.display = "none";
      break;
		case 3:
    	spnDate.style.display = "none";
			spnTime.style.display = "none";
      spnVariable.style.display = "";
      break;
  }
}
function chBackGround() 
{
	 var form = document.forms["ManageDividerSet"];
	 var optColor = form.Color;
	 optColor.className=optColor.options[optColor.selectedIndex].className;
}
//-->
</script>
</head>
'' BUG:54 2009/06/09 T.Umeda
'' IEでヒストリーバックを行った時にプルダウンの値が正常に反映されないため
'' onLoadで呼び出す処理を追加
<body onLoad="onPositionChange();chBackGround()">
' $System.SetParameter BackURL "$Server?page=ManageDividerList&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "区切り線の設定"
' Set $ws = $mw.WorkSpaces.$WID
<form name="ManageDividerSet" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="rw" value="mw">
<input type="hidden" name="Page" value="ManageDividerSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="DVID" value="$DVID">
追加する区切り線の情報を設定してください。<br>
' Call formNote 1
<p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>区切り線名
' Call formNecessaryMark
</td>
<td nowrap>
' Call formTextBox "Name" "$DVName" 100 "" "" 40
</td>
</tr>
<tr><td valign="top" nowrap>日時
' Call formNecessaryMark
</td>
<td nowrap>
<select name="Position" onChange="onPositionChange()">
<option value="Date" $DVPosition.Selected_Date>定数（日付）</option>
<option value="Time" $DVPosition.Selected_Time>定数（時刻）</option>
<option value="DateTime" $DVPosition.Selected_DateTime>定数（日付時刻）</option>
<option value="Variable" $DVPosition.Selected_Variable>(現在から)</option>
</select>&nbsp;
<span id="spnDate">\\
' Call formDate "FixedDate" "ManageDividerSet" "1" $DVDate
</span>
<span id="spnTime">\\
' Call formTime "FixedTime" "1" $DVTime
</span>
<span id="spnVariable">\\
' Call formTextBox "Value" "$DVValue" 3 "" "" 10
<select name="unit">
<option value="Hour" $DVUnit.Selected_Hour>時間前</option>
<option value="Day" $DVUnit.Selected_Day>日前</option>
</select>
</span>
</td>
</tr>
<tr><td valign="top" nowrap>コメント
</td>
<td nowrap>
' Call formText "Message" $DVMessage 40 1
</td>
</tr>
<tr><td valign="top" nowrap>背景色
' Call formNecessaryMark
</td>
<td nowrap>
' Call SelectColor "Color" $DVColor
</td>
</tr>
<tr><td valign="top" nowrap>区切り線の使用</td>
<td nowrap>
' Call formCheckBox "Enabled" "使用する" $DVEnabled 1 "enabled"
</td>
</tr>

</table>
</p>
' If $DVID
'   Call formCommit "変更する"
' Else
'   Call formCommit "追加する"
' EndIf
</form>
' Call cmChildFooter $BackURL "区切り線の設定へ"
<script language="JavaScript" type="text/javascript"><!--
'' BUG:54 2009/06/09 T.Umeda
'' ブラウザにonLoadでonPositionChange()を呼ぶようにしたため、
'' 本来ここでonPositionChange()を呼ぶ必要はないのだが、
'' 環境によってonLoad処理が呼ばれるまでタイムラグがあり、
'' 一瞬不要なパーツが表示されることがあるため2度呼ぶようにする。
onPositionChange();
//-->
</script>

</body>
</html>
' Sub SelectColor $SelectName $Color
 <select name="$SelectName" id="$SelectName" onChange="chBackGround()">
 <option value="1" $Color.Selected_1>青
 <option value="2" $Color.Selected_2>緑
 <option value="3" $Color.Selected_3>赤
 <option value="4" $Color.Selected_4>オレンジ
 <option value="5" $Color.Selected_5>黒
 </select>
' EndSub