' $System.NoWarning
''
'' クラウド --------------------------------------------------------------------
' If $System.IsCloudUserAdmin and ! $System.IsRemoteAccess
<!--#include file="CloudLogin.html"-->
'  Exit
' EndIf
'' -----------------------------------------------------------------------------
''
' If $System.IsPost
'  $System.Redirect $Server?
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "ログイン"
' Call cmHead $CaptionTitle
' If $Connect.To != "cb4"
'  $LoginMethod = $mw.LoginMethod
' EndIf
' Call cmLoadStyleSheet "login"
<script language="JavaScript" type="text/javascript"><!--
' If ! $LoginMethod
'  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 )
{
  var o;
  var a = form._ID.options;
  var len = a.length;
'  If $Env.IsMSIE
  for( i = 1 ; i < len ; i ++ ) { a.remove( 1 ); }
  var nGID = form.GID.value
'  Else
  for( i = 1 ; i < len ; i ++ ) { a[1] = null; }
  var si = form.GID.selectedIndex;
  var nGID = form.GID.options[si].value;
'  EndIf
  if( nGID == 0 )
  {
'  For Each $CandidateMember in $Users
'   $name = $Command.String.JSEscape $CandidateMember.Name
    au(a,$CandidateMember.ID,"$_name");
'  Next
  }
'  For Each $CandidateGroup in $Groups
  else if( nGID == $CandidateGroup.ID)
  {
'   For Each $CandidateMember in $CandidateGroup.Users
'    $name = $Command.String.JSEscape $CandidateMember.Name
    au(a,$CandidateMember.ID,"$_name");
'   Next
  }
'  Next
  else
  {
    return;
  }
  a[0].selected = true;
  form._ID.focus();
}
' EndIf
function onLoad()
{
  var f = document.LoginForm;
' If $LoginMethod
  f._Account.focus();
' Else
  if( f.GID.selectedIndex )
  {
    var su = f._ID;
    var si = su.selectedIndex;
    var ou = su.options;
    var sv = ou[si].value;
    ChangeGroup( f );
    var len = ou.length;
    for( i = 1 ; i < len ; i ++ )
    {
      if( ou[i].value == sv )
      {
        ou[i].selected = true;
        break;
      }
    }
  }
  f.Password.focus();
' EndIf
}
//-->
</script>
</head>
<body onLoad="onLoad();">
' Call cmHeaderView 1
''
' If $Env.PATH_INFO
<form name="LoginForm" method="post" action="$Env.SCRIPT_NAME?">
' Else
<form name="LoginForm" method="post" action="$Server?$Env.QUERY_STRING">
' EndIf
<input type="hidden" name="_System" value="login">
<input type="hidden" name="_Login" value="1">
' If ! $mw.URL
<input type="hidden" name="_URL" value="1">
' EndIf
''
<div class="login-wrapper">
<div class="loginArea">
<table class="loginTable">
 <tr><td colspan="2"><br></td></tr>
 <tr><td colspan="2">\\
'  Call cmImage "login.png"
</td></tr>
 <tr><td colspan="2"><br></td></tr>
' If $LoginMethod
 <tr><td nowrap>\\
'  Call cmImage login_account.gif "ログイン名"
</td><td>\\
'  Call formTextBox "_Account" "" "" "" "" "" "loginFormText"
</td></tr>
' Else
'  $UID = $Cookie.User
'  Set $u = $Users.$UID
'  $GID = $u.FirstGID
 <tr><td nowrap>\\
'  Call cmImage "login_group.gif" "グループ"
</td><td nowrap>\\
 <select name="GID" class="loginFormSelect" onChange="ChangeGroup( this.form )">
 <option value="">(全員)
'  Options $GID in $Groups
 </select></td></tr>
 <tr><td nowrap>\\
'  Call cmImage "login_name.gif" "名前"
</td><td>\\
<select name="_ID" class="loginFormSelect"><option value="">(あなたのお名前)
'  Options $UID in $Users
 </select></td></tr>
' EndIf
 <tr><td nowrap>\\
'  Call cmImage "login_pswd.gif" "パスワード"
</td><td>\\
' Call formPassword "Password" "" 100 1 "" "loginFormPassword"
 </td></tr>
 <tr><td></td><td>\\
' Call formSubmit "Submit" "ログイン"
</td></tr>
 <tr><td colspan="2"><br></td></tr>
 </table>
</div>
</div>
</form>
' Call cmFooter
</body>
</html>