' Sub onChangeGroup $BS $SetUndef
<script language="JavaScript" type="text/javascript"><!--
'  $LID = $Login.ID
'  If $Env.IsMSIE
function au( a, id, text ) { o = document.createElement( "OPTION" ); o.value = id; o.text = text; a.add( o, a.length ); }
'  Else
function au( a, id, text ) { var li = a.length; a[li] = new Option( text, id ); }
'  EndIf
function ChangeGroup( form, groups, users )
{
	var o;
	var a = form[users].options;
	var len = a.length;
'  If $Env.IsMSIE
	for( i = 1 ; i < len ; i ++ ) { a.remove( 1 ); }
	var nGID = form[groups].value
'  Else
	for( i = 1 ; i < len ; i ++ ) { a[1] = null; }
	var si = form[groups].selectedIndex;
	var nGID = form[groups].options[si].value;
'  EndIf
	if( nGID == 0 )
	{
'  If $SetUndef
		au(a,0,"(値なし)");
'  EndIf
'  $name = $Command.String.JSEscape $Login.Name
		au(a,$LID,"$_name");
'  For Each $CandidateMember in $Users
'   If $CandidateMember.ID = $LID
'    Continue
'   EndIf
'   $AccessUser = $Command.Mail.IsAccessModify $BS $CandidateMember.ID
'   If ! $AccessUser
'    Continue
'   EndIf
'   $name = $Command.String.JSEscape $CandidateMember.Name
		au(a,$CandidateMember.ID,"$_name");
'  Next
	}
'  For Each $CandidateGroup in $Groups
	else if( nGID == $CandidateGroup.ID )
	{
'   If $SetUndef
		au(a,0,"(値なし)");
'   EndIf
'   If $CandidateGroup.Users.$LID
'    $name = $Command.String.JSEscape $Login.Name
		au(a,$LID,"$_name");
'   EndIf
'   For Each $CandidateMember in $CandidateGroup.Users
'    If $CandidateMember.ID = $LID
'     Continue
'    EndIf
'    $AccessUser = $Command.Mail.IsAccessModify $BS $CandidateMember.ID
'    If ! $AccessUser
'     Continue
'    EndIf
'    $name = $Command.String.JSEscape $CandidateMember.Name
		au(a,$CandidateMember.ID,"$_name");
'   Next
	}
'  Next
	else
	{
		return;
	}
	a[0].selected = true;
	form[groups].options[0].text = "(全員)";
}
//-->
</script>
' EndSub