when the user is super-admin, the user's login permission should be "yes"

git-svn-id: https://svn.sourceforge.jp/svnroot/nucleus-jp/nucleus-jp/trunk@212 1ca29b6e-896d-4ea0-84a5-967f57386b96

diff --git a/utf8/nucleus/javascript/admin.js b/utf8/nucleus/javascript/admin.js
index 6d9926a..a54a563 100755 (executable)
--- a/utf8/nucleus/javascript/admin.js
+++ b/utf8/nucleus/javascript/admin.js
@@ -10,8 +10,8 @@
   *  
   * Some JavaScript code for the admin area
   *
-  * $Id: admin.js,v 1.5 2007-02-04 06:28:45 kimitake Exp $
-  * $NucleusJP: admin.js,v 1.4 2006/07/12 07:11:47 kimitake Exp $
+  * $Id: admin.js,v 1.6 2007-02-28 07:22:22 kimitake Exp $
+  * $NucleusJP: admin.js,v 1.5 2007/02/04 06:28:45 kimitake Exp $
   */
 
 function help(url) {
@@ -46,4 +46,15 @@ function batchSelectAll(what) {
        }
        return false;                                   
 }
+function selectCanLogin(flag) {
+       if (flag) {
+               window.document.memberedit.canlogin[0].checked=true;
 
+               // don't disable canlogin[0], otherwise the value won't be passed.
+//             window.document.memberedit.canlogin[0].disabled=true;
+               window.document.memberedit.canlogin[1].disabled=true;
+       } else {
+               window.document.memberedit.canlogin[0].disabled=false;
+               window.document.memberedit.canlogin[1].disabled=false;
+       }
+}