[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.586 and 1.587

version 1.586, 2007/09/19 06:24:26 version 1.587, 2007/09/24 23:29:53
Line 1883  sub authform_kerberos{ Line 1883  sub authform_kerberos{
     }      }
     if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {      if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {
         return;          return;
       } elsif ($authtype eq '') {
           if (grep(/^mode$/,(keys(%in)))) {
               if ($in{'mode'} eq 'modifycourse') {
                   if ($authnum == 1) {
                       $authtype = '<input type="hidden" name="login" value="krb">';
                   }
               }
           }
     }      }
     $jscall = "javascript:changed_radio('krb',$in{'formname'});";      $jscall = "javascript:changed_radio('krb',$in{'formname'});";
     if ($authtype eq '') {      if ($authtype eq '') {
Line 1956  sub authform_internal{ Line 1964  sub authform_internal{
     }      }
     if (!$can_assign{'int'}) {      if (!$can_assign{'int'}) {
         return;          return;
       } elsif ($authtype eq '') {
           if (grep(/^mode$/,(keys(%in)))) {
               if ($in{'mode'} eq 'modifycourse') {
                   if ($authnum == 1) {
                       $authtype = '<input type="hidden" name="login" value="int">';
                   }
               }
           }
     }      }
     $jscall = "javascript:changed_radio('int',$in{'formname'});";      $jscall = "javascript:changed_radio('int',$in{'formname'});";
     if ($authtype eq '') {      if ($authtype eq '') {
Line 1997  sub authform_local{ Line 2013  sub authform_local{
     }      }
     if (!$can_assign{'loc'}) {      if (!$can_assign{'loc'}) {
         return;          return;
       } elsif ($authtype eq '') {
           if (grep(/^mode$/,(keys(%in)))) {
               if ($in{'mode'} eq 'modifycourse') {
                   if ($authnum == 1) {
                       $authtype = '<input type="hidden" name="login" value="loc">';
                   }
               }
           }
     }      }
     $jscall = "javascript:changed_radio('loc',$in{'formname'});";      $jscall = "javascript:changed_radio('loc',$in{'formname'});";
     if ($authtype eq '') {      if ($authtype eq '') {
Line 2035  sub authform_filesystem{ Line 2059  sub authform_filesystem{
     }      }
     if (!$can_assign{'fsys'}) {      if (!$can_assign{'fsys'}) {
         return;          return;
       } elsif ($authtype eq '') {
           if (grep(/^mode$/,(keys(%in)))) {
               if ($in{'mode'} eq 'modifycourse') {
                   if ($authnum == 1) {
                       $authtype = '<input type="hidden" name="login" value="fsys">';
                   }
               }
           }
     }      }
     $jscall = "javascript:changed_radio('fsys',$in{'formname'});";      $jscall = "javascript:changed_radio('fsys',$in{'formname'});";
     if ($authtype eq '') {      if ($authtype eq '') {
Line 2095  sub get_assignable_auth { Line 2127  sub get_assignable_auth {
     return ($authnum,%can_assign);      return ($authnum,%can_assign);
 }  }
   
   
 ###############################################################  ###############################################################
 ##    Get Authentication Defaults for Domain                 ##  ##    Get Authentication Defaults for Domain                 ##
 ###############################################################  ###############################################################
Removed from v.1.586  
changed lines
  Added in v.1.587

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>