--- loncom/interface/loncommon.pm 2007/09/19 06:24:26 1.586
+++ loncom/interface/loncommon.pm 2007/09/24 23:29:53 1.587
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.586 2007/09/19 06:24:26 raeburn Exp $
+# $Id: loncommon.pm,v 1.587 2007/09/24 23:29:53 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1883,6 +1883,14 @@ sub authform_kerberos{
}
if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {
return;
+ } elsif ($authtype eq '') {
+ if (grep(/^mode$/,(keys(%in)))) {
+ if ($in{'mode'} eq 'modifycourse') {
+ if ($authnum == 1) {
+ $authtype = '';
+ }
+ }
+ }
}
$jscall = "javascript:changed_radio('krb',$in{'formname'});";
if ($authtype eq '') {
@@ -1956,6 +1964,14 @@ sub authform_internal{
}
if (!$can_assign{'int'}) {
return;
+ } elsif ($authtype eq '') {
+ if (grep(/^mode$/,(keys(%in)))) {
+ if ($in{'mode'} eq 'modifycourse') {
+ if ($authnum == 1) {
+ $authtype = '';
+ }
+ }
+ }
}
$jscall = "javascript:changed_radio('int',$in{'formname'});";
if ($authtype eq '') {
@@ -1997,6 +2013,14 @@ sub authform_local{
}
if (!$can_assign{'loc'}) {
return;
+ } elsif ($authtype eq '') {
+ if (grep(/^mode$/,(keys(%in)))) {
+ if ($in{'mode'} eq 'modifycourse') {
+ if ($authnum == 1) {
+ $authtype = '';
+ }
+ }
+ }
}
$jscall = "javascript:changed_radio('loc',$in{'formname'});";
if ($authtype eq '') {
@@ -2035,6 +2059,14 @@ sub authform_filesystem{
}
if (!$can_assign{'fsys'}) {
return;
+ } elsif ($authtype eq '') {
+ if (grep(/^mode$/,(keys(%in)))) {
+ if ($in{'mode'} eq 'modifycourse') {
+ if ($authnum == 1) {
+ $authtype = '';
+ }
+ }
+ }
}
$jscall = "javascript:changed_radio('fsys',$in{'formname'});";
if ($authtype eq '') {
@@ -2095,7 +2127,6 @@ sub get_assignable_auth {
return ($authnum,%can_assign);
}
-
###############################################################
## Get Authentication Defaults for Domain ##
###############################################################