' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemUserAdmin
'  $Command.User.SetAvailableUsers
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<script language="JavaScript" type="text/javascript"><!--
function AddMember( form, cname, sname )
{
	var c = form.elements[cname].options;
	var u = form.elements[sname].options;
	for( i = 0 ; i < c.length - 1 ; i ++ )
	{
		var co = c[i];
		if( ! co.selected || ! co.value ) continue;
		var f = false;
		var li = u.length - 1;
		for( j = 0 ; j < li ; j ++ ) { if( u[j].value == co.value ) { f = true; break; } }
		if( f ) continue;
' If $Env.IsMSIE
		var o = document.createElement( "OPTION" );
		o.value = co.value;
		o.text = co.text;
		o.selected = true;
		u.add( o, li );
' Else
		u[u.length] = new Option( u[li].text, "" );
		u[li] = new Option( co.text, co.value, true, true );
' EndIf
	}
}
function RemoveMember( form, sname )
{
	var u = form.elements[sname].options;
' If $Env.IsMSIE
	for( i = 0 ; i < u.length - 1 ; i ++ ) { if( u[i].selected ) { u.remove( i ); i -= 1; } }
' Else
	li = u.length - 1;
	for( i = 0 ; i < li ; i ++ ) { if( u[i].selected ) { u[i] = null; li -=1; i-=1; } }
' EndIf
}
'  If $Env.IsMSIE
function au( a, id, text ) { o = document.createElement( "OPTION" ); o.value = id; o.text = text; o.selected = true; a.add( o, a.length - 1 ); }
function ag( a, id, text ) { o = document.createElement( "OPTION" ); o.value = id; o.text = text; a.add( o, a.length - 1 ); }
'  Else
function au( a, id, text ) { var li = a.length - 1; a[a.length] = new Option( a[li].text, "" ); a[li] = new Option( text, id ); a[li].selected=true; }
function ag( a, id, text ) { var li = a.length - 1; a[a.length] = new Option( a[li].text, "" ); a[li] = new Option( text, id ); }
'  EndIf
//-->
</script>
' Sub MemberOption $CandidateMember
'  $name = $Command.String.JSEscape $CandidateMember.Name
		au(a,$CandidateMember.ID,"$_name");
' EndSub
' Sub JavaScriptChangeGroup $GroupName $SelectedName $CandidateName
<script language="JavaScript" type="text/javascript"><!--
function Change$GroupName( form )
{
	var o;
	var a = form.$CandidateName.options;
	var len = a.length;
'  If $Env.IsMSIE
	for( i = 0 ; i < len - 1 ; i ++ ) { a.remove( 0 ); }
	var nGID = form.$GroupName.value
'  Else
	for( i = 0 ; i < len - 1 ; i ++ ) { a[0] = null; }
	var si = form.$GroupName.selectedIndex;
	var nGID = form.$GroupName.options[si].value;
'  EndIf
	if( nGID == 0 )
	{
' For Each $CandidateMember in $OfficeUsers
'  Call MemberOption $CandidateMember
' Next
	}
' For Each $CandidateGroup in $OfficeGroups
	else if( nGID == $CandidateGroup.ID)
	{
'  For Each $CandidateMember in $CandidateGroup.Users
'   Call MemberOption $CandidateMember
'  Next
	}
' Next
	else
	{
		return;
	}
	form.$CandidateName.focus();
}
function PreSubmit$GroupName( form )
{
	var u = form.$SelectedName.options
	var c = form.$CandidateName.options
	for( i = 0 ; i < u.length - 1 ; i ++ ) { u[i].selected = true ; } u[i].selected = false;
'  If $Env.IsMSIE
	for( i = 0 ; i < c.length     ; i ++ ) { c[i].selected = false; }
'  EndIf
}
//-->
</script>
' EndSub
' Sub selectUser $GroupName $SelectedName $CandidateName $SelectedColl $SelectCaption
'  Call JavaScriptChangeGroup $GroupName $SelectedName $CandidateName
<table border="0" cellspacing="0" cellpadding="2">
<tr><td align="center" nowrap><span class="fontSmall">$SelectCaption</span></td>
<td></td>
<td>
<select name="$GroupName" onChange="Change$GroupName( this.form )">
<option value="0">(全員)</option>
'  For Each $GroupCandidate in $OfficeGroups
'   $CandidateID = $GroupCandidate.ID
<option value="$CandidateID">$GroupCandidate.Name</option>
'  Next
</select></td></tr>
<tr><td>
<select name="$SelectedName" size="15" multiple>
'  For Each $Selected in $SelectedColl
'   $SelectedID = $Selected.ConnectUID
'   If $OfficeUsers.$SelectedID
<option value="$SelectedID">$OfficeUsers.$SelectedID.Name</option>
'   EndIf
'  Next
<option>　　　　　　　　　　</option>
</select></td>
<td>
<p>\\
'  Call cmButton "← 追加" "AddMember( this.form, '$CandidateName', '$SelectedName' );"
</p>
<p>\\
'  Call cmButton "削除 →" "RemoveMember( this.form, '$SelectedName' )"
</p>
</td>
<td>
<select name="$CandidateName" size="15" multiple>
'  For Each $CandidateMember in $OfficeUsers
'   $CandidateID = $CandidateMember.ID
<option value="$CandidateID" selected>$CandidateMember.Name</option>
'  Next
<option>　　　　　　　　　　</option>
</select>
</td></tr>
<tr><td></td><td></td><td nowrap><span class="fontNotice">複数選択できます。</span></td></tr>
</table>
' EndSub
' $CaptionTitle = "サイボウズ(R)メールワイズ(R)を利用するユーザーの設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemUserAdmin"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin" "システム設定" $BackURL "ユーザーの設定"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemUserSelectAvailable">
<input type="hidden" name="rw" value="User">
<p>サイボウズ<sup>(R)</sup> メールワイズ<sup>(R)</sup> を利用するユーザーを選択してください。</p>
' Call selectUser "GID" "UIDs" "UID" $Users "メールワイズを利用するユーザー"
' $escBackURL = $Command.String.JSEncode $BackURL
' Call formCommit "変更する" "" "PreSubmitGID( this.form );" "location.href='$escBackURL';"
</form>
' Call cmFooter $BackURL "ユーザーの設定へ"
</body>
</html>