' $System.Access User
' Init $GID = $Login.FirstGID
' If $GID
'  Set $g = $Groups.$GID
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = $WorkSpace.User.Name
' Call cmHead $CaptionTitle
</head>
<body>
' Call cmHeader $CaptionTitle
<form method="get" action="$Server">
<input type="hidden" name="Page" value="UserIndex">
<input type="hidden" name="WID" value="$WID">
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr class="active"><td width="50%" nowrap>グループ <select name="GID" onChange="this.form.submit();">
<option value="0">(全員)
' Options $GID in $Groups
</select></td>
<td width="50%" nowrap>現在のユーザー数：$Users.Count人
' If $g
($g.Name：$g.Users.Count人)
' EndIf
</td></tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr bgcolor="#cccccc"><th nowrap>名前</th><th nowrap>ログイン時間</th><th nowrap>メールアドレス</th><th nowrap>連絡先</th>\\
' If $System.IsCloudUserAdmin
<th nowrap>グループ</th>\\
' Else
<th nowrap>画像</th>\\
' EndIf
<th nowrap>メモ</th></tr>
' If $g
'  Set $us = $g.Users
' Else
'  Set $us = $Users
' EndIf
' $RowNum = 0
' For Each $u in $us
'  $UID = $u.ID
'  Inc $RowNum
'  $Remainder = $Command.Math.Modulus $RowNum 2
'  If $Remainder = 0
'   $RowClass = "evenRow"
'  Else
'   $RowClass = "oddRow"
'  EndIf
<tr class="$RowClass"><td valign="top" nowrap>
'  If $UID = $Login.ID
'   $Image = "loginuser20.png"
'  Elif $u.Suspend
'   $Image = "suspenduser20.png"
'  Else
'   $Image = "user20.png"
'  EndIf
'  If $System.IsCloudUserAdmin
'   $localAccountEncoded = $Command.String.EncodeURLEncode $u.Account
'   Call cmLink $u.Name $Image "/users/$localAccountEncoded" 0 1
'  Else
'   Call cmLink $u.Name $Image "$Server?page=UserView&wid=$WID&uid=$UID&gid=$GID"
'  EndIf
</td>
<td valign="top">
'  $t = $u.Login
'  If $t and $t.IsToday
<font size="-1">ログイン</font>($t.Hour:$t.Minute00)
'  Else
<br>
'  EndIf
</td>
<td valign="top">
'  $m = $u.Mail
'  If $m
$_m.MailTo
'  Else
<br>
'  EndIf
</td>
<td valign="top">$u.Tel<br></td>
<td valign="top">
'  If $System.IsCloudUserAdmin
'   If $u.Groups.Count
'    For Each $g in $u.Groups
$g.Name<br>
'    Next
'   Else
<br>
'   EndIf
'  Else
'   $FileName = $u.FileName
'   If $FileName
'    $System.FileLink $u SystemUser 0 0
'   Else
<br>
'   EndIf
'  EndIf
</td>
<td valign="top">
'  If $u.Memo
'   View $u.Memo 1
'  EndIf
'  Call cmLink "" "write20.png" "$Server?page=UserMemo&wid=$WID&uid=$UID&gid=$GID"
</td>
</tr>
' Next
</table>
</form>
' Call cmFooter
</body>
</html>