<!--#include file="LibraryForm.html"-->
<script language="JavaScript" type="text/javascript"><!--
function GetOrder( gid )
{
' If $Groups.Count
	var ovs = new Array($Groups.Count);
'  $Index = 0
'  For Each $Group in $Groups
	ovs[$Index] = "$Group.ID";
'   Inc $Index
'  Next
	for( k = 0 ; k < $Groups.Count ; k ++ )
	{
		if( ovs[k] == gid )
		{
			return k;
		}
	}
	return k;
' EndIf
}
function Move( a, b )
{
	for( i = 0 ; i < a.length - 1 ; i ++ )
	{
		var option = a[i];
		if( option.selected && option.value )
		{
			nov = GetOrder( option.value );
			for( j = 0 ; j < b.length - 1 ; j ++ )
			{
				bov = GetOrder( b[j].value );
				if( nov < bov )
				{
					break;
				}
			}
' If $Env.IsMSIE
			var n = document.createElement( "OPTION" );
			n.value = option.value;
			n.text = option.text;
			b.add( n, j );
			n.selected = true;
			a.remove( i );
			i -= 1;
' Else
			for( k = b.length - 1 ; k >= j ; k -- )
			{
				b[k+1] = new Option( b[k].text, b[k].value );
				b[k+1].selected = b[k].selected;
			}
			b[j] = new Option( option.text, option.value, false, true );
			a[i] = null;
			i -= 1;
' EndIf
		}
	}
}
function PreSubmit( form )
{
' If $IsAdminPage and ( ! $Connect.To )
	var optionsG = form.GID.options
	var optionsA = form.AID.options
	for( i = 0 ; i < optionsG.length - 1 ; i ++ ) { optionsG[i].selected = true ; }
	for( i = 0 ; i < optionsA.length - 1 ; i ++ ) { optionsA[i].selected = false; }
' EndIf
}
function onSubmit( form )
{
' If $IsAdminPage and ( ! $Connect.To ) and ( ! $System.IsCloudUserAdmin )
	if( ( ! form.LastName.value ) && ( ! form.FirstName.value ) )
	{
		alert( "名前を入力してください。" );
		return false;
	}
' EndIf
	return true;
}
-->
</script>
''<!------------------------------------------------------------------
''  ユーザー情報入力画面
''  構文：Call userSet <const ユーザーID>
''------------------------------------------------------------------->
' Sub userSet $UID
'  Set $u = $Users.$UID
'  If $IsAdminPage and ( ! $Connect.To )
'   Call formNote 1
'  EndIf
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>名前
'  If $IsAdminPage and ( ! $Connect.To )
'   Call formNecessaryMark
'  EndIf
</td><td nowrap>
'  If ( ! $IsAdminPage ) or $Connect.To or $System.IsCloudUserAdmin
<b>$u.Name</b>
'  Else
 <table border="0" cellspacing="0" cellpadding="0">
 <tr><td>
'   Call formText "LastName" $u.LastName 20 1
 </td><td>
'   Call formText "FirstName" $u.FirstName 20 1
 </td></tr>
 <tr><td nowrap><font size="-1">姓</font></td><td nowrap><font size="-1">名</font></td></tr>
 </table>
'  EndIf
</td></tr>
'  If ! $Connect.To
<tr><td valign="top" nowrap>ログイン名</td><td nowrap>
'   If ! $IsAdminPage or $System.IsCloudUserAdmin
<b>$u.Account</b><br>
'   Else
'    Call formText "Account" $u.Account 30 1
'   EndIf
</td></tr>
<tr><td valign="top" nowrap>メールアドレス</td><td nowrap>
'   Call formText "Mail" $u.Mail 30 1 255
</td></tr>
<tr><td valign="top" nowrap>連絡先</td><td nowrap>
'   Call formText "Tel" $u.Tel 30 1
</td></tr>
'  EndIf
'  If ! $System.IsCloudUserAdmin
<tr><td valign="top" nowrap>画像</td><td nowrap>
'   If $u.FileName
'    $System.SetParameter Inline "Inline$WID"
'    $System.FileLink $u SystemUser $Login.$Inline 0 "&admin=$IsAdminPage"
 :
'    Call formCheckBox "Delete" "削除する" "" 1 "RemoveImage"
<br>
'   EndIf
'   Call formFile "Image"
</td></tr>
'  EndIf
'  If ( ! $IsAdminPage ) and ( $UID = $Login.ID )
<tr><td valign="top" nowrap>メモ</td><td nowrap>
'   Call formText "Memo" $u.Memo 60 5
</td></tr>
'  EndIf
'  If $IsAdminPage and ( ! $Connect.To )
<tr><td valign="top" nowrap>パスワード</td><td nowrap>
'   If $UID
'    Call formPassword "Password" 40 64
'   Else
'    Call formPassword "Password" 40 64 1
'   EndIf
</td></tr>
<tr><td valign="top" nowrap>パスワード</td><td nowrap>
'   If $UID
'    Call formPassword "Retype" 40 64 2
'   Else
'    Call formPassword "Retype" 40 64 1
'   EndIf
(確認用)
'   If $mw.PwdLen
<br><span class="fontNotice">パスワードは、$mw.PwdLen文字以上入力してください。</span>
'   EndIf
</td></tr>
'  EndIf
'  Call userFirstGroupAndWorkSpaceParts $u
'  If $IsAdminPage and ( ! $Connect.To )
<tr><td valign="top" nowrap>所属するグループ</td><td>
'  Call userGroupParts $u
</td></tr>
'  EndIf
</table>
' EndSub
''
''<!------------------------------------------------------------------
''  グループとメールスペース情報入力画面
''  構文：Call userGroupAndWorkSpaceSet <const ユーザーID>
''------------------------------------------------------------------->
' Sub userGroupAndWorkSpaceSet $UID
'  Set $u = $Users.$UID
<table border="0" cellspacing="0" cellpadding="2">
'  Call userFirstGroupAndWorkSpaceParts $u
'  If $IsAdminPage and ( ! $Connect.To )
<tr><td valign="top" nowrap>所属するグループ</td><td>
'  Call userGroupParts $u
</td></tr>
'  EndIf
</table>
' EndSub
''
''<!------------------------------------------------------------------
''  最初に表示するグループとメールスペース情報入力画面
''  構文：Call userFirstGroupAndWorkSpaceParts <const ユーザーオブジェクト>
''------------------------------------------------------------------->
' Sub userFirstGroupAndWorkSpaceParts $u
'  If ! $Connect.To
<tr><td valign="top" nowrap>最初に表示するグループ</td><td valign="top" nowrap>
<select name="FirstGID">
<option value="">(未設定)</option>
'   Options $u.FirstGID in $Groups
</select>
</td></tr>
'  EndIf
'  $WSCount = 0
'  For Each $ws in $mw.WorkSpaces
'   $Access = $Command.System.IsWorkSpaceAccess $ws.ID $UID
'   If $Access
'    Inc $WSCount
'   EndIf
'  Next
'  If $WSCount > 1
<tr><td valign="top" nowrap>最初に表示するメールスペース</td><td valign="top" nowrap>
<select name="FirstWID">
<option value="">(未設定)</option>
'  For Each $ws in $mw.WorkSpaces
'   $Access = $Command.System.IsWorkSpaceAccess $ws.ID $UID
'   If $Access
<option value="$ws.ID"\\
'    If $u.FirstWID = $ws.ID
 Selected\\
'    EndIf
>$ws.Name</option>
'   EndIf
'  Next
</select>
</td></tr>
'  EndIf
' EndSub
''
''<!------------------------------------------------------------------
''  所属するグループ情報入力画面
''  構文：Call userGroupParts <const ユーザーオブジェクト>
''------------------------------------------------------------------->
' Sub userGroupParts $u
'  If $IsAdminPage and ( ! $Connect.To )
<table>
<tr><td align="center" nowrap>所属するグループ</td><td></td><td align="center" nowrap>所属しないグループ</td></tr>
<tr>
<td><select name="GID" size="5" multiple>
'   For Each $Group in $Groups
'    $Contains = $u.Groups.Contains $Group.ID
'    If $Contains or (! $UID and ($Group.ID = $GID))
<option value="$Group.ID">$Group.Name</option>
'    EndIf
'   Next
<option>　　　　　　　　　　　　</option>
</select></td>
<td>
<div>
' Call cmButton "← 追加" "Move( this.form.AID.options, this.form.GID.options )" "" "" "Add"
</div>
<div style="margin-top:5px;">
' Call cmButton "削除 →" "Move( this.form.GID.options, this.form.AID.options )" "" "" "Remove"
</div>
</td>
<td><select name="AID" size="5" multiple>
'   For Each $Group in $Groups
'    $Contains = $u.Groups.Contains $Group.ID
'    If ! $Contains and ($UID or ($Group.ID != $GID))
<option value="$Group.ID">$Group.Name</option>
'    EndIf
'   Next
<option value="">　　　　　　　　　　　　</option>
</select></td>
</tr>
</table>
'  EndIf
' EndSub