--- loncom/interface/loncommon.pm	2007/12/04 04:43:21	1.619
+++ loncom/interface/loncommon.pm	2007/12/04 11:00:05	1.620
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.619 2007/12/04 04:43:21 raeburn Exp $
+# $Id: loncommon.pm,v 1.620 2007/12/04 11:00:05 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2073,6 +2073,7 @@ sub authform_internal{
     $result = &mt
         ('[_1] Internally authenticated (with initial password [_2])',
          '<label>'.$authtype,'</label>'.$autharg);
+    $result.="<label><input type=\"checkbox\" name=\"visible\" onClick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>';
     return $result;
 }