<!--#include file="LibraryCommon.html"-->
<!--#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 $AccessCommand $AddressNecessary
'  $NoAccess = $AccessCommand.IsAccessDisable $CandidateMember.ID
'  If ! $NoAccess
'   If $AddressNecessary
'    If $CandidateMember.Mail
'     $name = $Command.String.JSEscape "$CandidateMember.Name $CandidateMember.Mail"
		au(a,$CandidateMember.ID,"$_name");
'    EndIf
'   Else
'    $name = $Command.String.JSEscape $CandidateMember.Name
		au(a,$CandidateMember.ID,"$_name");
'   EndIf
'  EndIf
' EndSub
''
' Sub JavaScriptChangeGroup $GroupName $SelectedName $CandidateName $AccessCommand $AddressNecessary $SelectedGroup
<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 $Users
'  Call MemberOption $CandidateMember $AccessCommand $AddressNecessary
' Next
	}
' For Each $CandidateGroup in $Groups
	else if( nGID == $CandidateGroup.ID )
	{
'  If $SelectedGroup
		ag(a,"g$CandidateGroup.ID","[$CandidateGroup.Name]");
'  EndIf
'  For Each $CandidateMember in $CandidateGroup.Users
'   Call MemberOption $CandidateMember $AccessCommand $AddressNecessary
'  Next
	}
' Next
' If $SelectedGroup
	else if( nGID == -1 )
	{
'  For Each $CandidateGroup in $Groups
		ag(a,"g$CandidateGroup.ID","[$CandidateGroup.Name]");
'  Next		
	}
' EndIf
	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 $GroupDefault $onClickAdd $AccessCommand $AddressNecessary $SelectedGroup $GroupColl $IncDelUser
'  Call JavaScriptChangeGroup $GroupName $SelectedName $CandidateName $AccessCommand $AddressNecessary $SelectedGroup
<table border="0" cellspacing="0" cellpadding="2">
<tr>
<td align="center">$SelectCaption</td>
<td></td>
<td>
<select name="$GroupName" onChange="Change$GroupName( this.form )">
<option value="0">(全員)</option>
'  If $SelectedGroup
<option value="-1">(グループ一覧)</option>
'  EndIf
'  For Each $GroupCandidate in $Groups
'   $CandidateID = $GroupCandidate.ID
'   If $CandidateID = $GroupDefault
<option value="$CandidateID" selected>$GroupCandidate.Name</option>
'   Else
<option value="$CandidateID">$GroupCandidate.Name</option>
'   EndIf
'  Next
</select>
</td></tr>
<tr><td>
<select name="$SelectedName" size="5" multiple>
'  For Each $SelectedID in $GroupColl
'   If $SelectedGroup and $Groups.$SelectedID
<option value="g$SelectedID">[$Groups.$SelectedID.Name]</option>
'   EndIf
'  Next
'  For Each $SelectedID in $SelectedColl
'   If ! $IncDelUser
'    Set $u = $Users.$SelectedID
'    If ! $u
'     Continue
'    EndIf
'   EndIf
'   $SelectedUserName = $Command.User.GetUserName $SelectedID
'   If $SelectedUserName
<option value="$SelectedID">$SelectedUserName</option>
'   EndIf
'  Next
<option>　　　　　　　　　　</option>
</select>
</td>
<td>
<p>\\
' Call cmButton "← 追加" "AddMember( this.form, '$CandidateName', '$SelectedName' );$onClickAdd"
</p>
<p>\\
' Call cmButton "削除 →" "RemoveMember( this.form, '$SelectedName' )"
</p>
</td>
<td>
<select name="$CandidateName" size="5" multiple>
'  If $Groups.$GroupDefault
'   If $SelectedGroup
<option value="g$GroupDefault">[$Groups.$GroupDefault.Name]</option>
'   EndIf
'   Set $Candidates = $Groups.$GroupDefault.Users
'  Else
'   Set $Candidates = $Users
'  EndIf
'  For Each $CandidateMember in $Candidates
'   $CandidateID = $CandidateMember.ID
'   $NoAccess = $AccessCommand.IsAccessDisable $CandidateID
'   If ! $NoAccess
'    If $AddressNecessary
'     If $CandidateMember.Mail
<option value="$CandidateID" selected>$CandidateMember.Name $CandidateMember.Mail</option>
'     EndIf
'    Else
<option value="$CandidateID" selected>$CandidateMember.Name</option>
'    EndIf
'   EndIf
'  Next
<option>　　　　　　　　　　</option>
</select>
</td></tr>
<tr>
<td></td>
<td></td>
<td><span class="fontNotice">複数選択できます。</span></td>
</tr>
</table>
' EndSub