version 1.590, 2007/09/27 15:36:23
|
version 1.592, 2007/10/11 23:50:55
|
Line 1798 END
|
Line 1798 END
|
} |
} |
|
|
my $radioval = "'nochange'"; |
my $radioval = "'nochange'"; |
if (exists($in{'curr_authtype'}) && |
if (defined($in{'curr_authtype'})) { |
defined($in{'curr_authtype'}) && |
if ($in{'curr_authtype'} ne '') { |
$in{'curr_authtype'} ne '') { |
$radioval = "'".$in{'curr_authtype'}."arg'"; |
$radioval = "'$in{'curr_authtype'}arg'"; |
} |
} |
} |
my $argfield = 'null'; |
my $argfield = 'null'; |
if ( grep/^mode$/,(keys %in) ) { |
if (defined($in{'mode'})) { |
if ($in{'mode'} eq 'modifycourse') { |
if ($in{'mode'} eq 'modifycourse') { |
if ( grep/^curr_authtype$/,(keys %in) ) { |
if (defined($in{'curr_autharg'})) { |
$radioval = "'$in{'curr_authtype'}'"; |
if ($in{'curr_autharg'} ne '') { |
} |
|
if ( grep/^curr_autharg$/,(keys %in) ) { |
|
unless ($in{'curr_autharg'} eq '') { |
|
$argfield = "'$in{'curr_autharg'}'"; |
$argfield = "'$in{'curr_autharg'}'"; |
} |
} |
} |
} |
Line 1907 sub authform_nochange{
|
Line 1904 sub authform_nochange{
|
return $result; |
return $result; |
} |
} |
|
|
sub authform_kerberos{ |
sub authform_kerberos { |
my %in = ( |
my %in = ( |
formname => 'document.cu', |
formname => 'document.cu', |
kerb_def_dom => 'MSU.EDU', |
kerb_def_dom => 'MSU.EDU', |
Line 1923 sub authform_kerberos{
|
Line 1920 sub authform_kerberos{
|
$check4 = ' checked="on"'; |
$check4 = ' checked="on"'; |
} |
} |
$krbarg = $in{'kerb_def_dom'}; |
$krbarg = $in{'kerb_def_dom'}; |
if (grep(/^curr_authtype$/,(keys(%in)))) { |
if (defined($in{'curr_authtype'})) { |
if ($in{'curr_authtype'} =~ m/^krb(\d+)$/) { |
if ($in{'curr_authtype'} eq 'krb') { |
$krbver = $1; |
|
$krbcheck = ' checked="on"'; |
$krbcheck = ' checked="on"'; |
if ($krbver eq '5') { |
if (defined($in{'curr_kerb_ver'})) { |
$check5 = ' checked="on"'; |
if ($in{'curr_krb_ver'} eq '5') { |
$check4 = ''; |
$check5 = ' checked="on"'; |
} else { |
$check4 = ''; |
$check4 = ' checked="on"'; |
} else { |
$check5 = ''; |
$check4 = ' checked="on"'; |
|
$check5 = ''; |
|
} |
} |
} |
if (grep(/^curr_autharg$/,(keys(%in)))) { |
if (defined($in{'curr_autharg'})) { |
$krbarg = $in{'curr_autharg'}; |
$krbarg = $in{'curr_autharg'}; |
} |
} |
if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) { |
if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) { |
if (grep(/^curr_autharg$/,(keys(%in)))) { |
if (defined($in{'curr_autharg'})) { |
$result = |
$result = |
&mt('Currently Kerberos authenticated with domain [_1] Version [_2].', |
&mt('Currently Kerberos authenticated with domain [_1] Version [_2].', |
$in{'curr_autharg'},$krbver); |
$in{'curr_autharg'},$krbver); |
Line 1957 sub authform_kerberos{
|
Line 1955 sub authform_kerberos{
|
if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) { |
if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) { |
return; |
return; |
} elsif ($authtype eq '') { |
} elsif ($authtype eq '') { |
if (grep(/^mode$/,(keys(%in)))) { |
if (defined($in{'mode'})) { |
if ($in{'mode'} eq 'modifycourse') { |
if ($in{'mode'} eq 'modifycourse') { |
if ($authnum == 1) { |
if ($authnum == 1) { |
$authtype = '<input type="hidden" name="login" value="krb">'; |
$authtype = '<input type="hidden" name="login" value="krb">'; |
Line 2018 sub authform_internal{
|
Line 2016 sub authform_internal{
|
); |
); |
my ($intcheck,$intarg,$result,$authtype,$autharg,$jscall); |
my ($intcheck,$intarg,$result,$authtype,$autharg,$jscall); |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
if (grep(/^curr_authtype$/,(keys(%in)))) { |
if (defined($in{'curr_authtype'})) { |
if ($in{'curr_authtype'} eq 'internal:') { |
if ($in{'curr_authtype'} eq 'int') { |
if ($can_assign{'int'}) { |
if ($can_assign{'int'}) { |
$intcheck = 'checked="on" '; |
$intcheck = 'checked="on" '; |
if (grep(/^curr_autharg$/,(keys(%in)))) { |
if (defined($in{'curr_autharg'})) { |
$intarg = $in{'curr_autharg'}; |
$intarg = $in{'curr_autharg'}; |
} |
} |
} else { |
} else { |
Line 2038 sub authform_internal{
|
Line 2036 sub authform_internal{
|
if (!$can_assign{'int'}) { |
if (!$can_assign{'int'}) { |
return; |
return; |
} elsif ($authtype eq '') { |
} elsif ($authtype eq '') { |
if (grep(/^mode$/,(keys(%in)))) { |
if (defined($in{'mode'})) { |
if ($in{'mode'} eq 'modifycourse') { |
if ($in{'mode'} eq 'modifycourse') { |
if ($authnum == 1) { |
if ($authnum == 1) { |
$authtype = '<input type="hidden" name="login" value="int">'; |
$authtype = '<input type="hidden" name="login" value="int">'; |
Line 2067 sub authform_local{
|
Line 2065 sub authform_local{
|
); |
); |
my ($loccheck,$locarg,$result,$authtype,$autharg,$jscall); |
my ($loccheck,$locarg,$result,$authtype,$autharg,$jscall); |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
if (grep(/^curr_authtype$/,(keys(%in)))) { |
if (defined($in{'curr_authtype'})) { |
if ($in{'curr_authtype'} eq 'localauth:') { |
if ($in{'curr_authtype'} eq 'loc') { |
if ($can_assign{'loc'}) { |
if ($can_assign{'loc'}) { |
$loccheck = 'checked="on" '; |
$loccheck = 'checked="on" '; |
if (grep(/^curr_autharg$/,(keys(%in)))) { |
if (defined($in{'curr_autharg'})) { |
$locarg = $in{'curr_autharg'}; |
$locarg = $in{'curr_autharg'}; |
} |
} |
} else { |
} else { |
Line 2087 sub authform_local{
|
Line 2085 sub authform_local{
|
if (!$can_assign{'loc'}) { |
if (!$can_assign{'loc'}) { |
return; |
return; |
} elsif ($authtype eq '') { |
} elsif ($authtype eq '') { |
if (grep(/^mode$/,(keys(%in)))) { |
if (defined($in{'mode'})) { |
if ($in{'mode'} eq 'modifycourse') { |
if ($in{'mode'} eq 'modifycourse') { |
if ($authnum == 1) { |
if ($authnum == 1) { |
$authtype = '<input type="hidden" name="login" value="loc">'; |
$authtype = '<input type="hidden" name="login" value="loc">'; |
Line 2116 sub authform_filesystem{
|
Line 2114 sub authform_filesystem{
|
); |
); |
my ($fsyscheck,$result,$authtype,$autharg,$jscall); |
my ($fsyscheck,$result,$authtype,$autharg,$jscall); |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'}); |
if (grep(/^curr_authtype$/,(keys(%in)))) { |
if (defined($in{'curr_authtype'})) { |
if ($in{'curr_authtype'} eq 'unix:') { |
if ($in{'curr_authtype'} eq 'fsys') { |
if ($can_assign{'fsys'}) { |
if ($can_assign{'fsys'}) { |
$fsyscheck = 'checked="on" '; |
$fsyscheck = 'checked="on" '; |
} else { |
} else { |
Line 2133 sub authform_filesystem{
|
Line 2131 sub authform_filesystem{
|
if (!$can_assign{'fsys'}) { |
if (!$can_assign{'fsys'}) { |
return; |
return; |
} elsif ($authtype eq '') { |
} elsif ($authtype eq '') { |
if (grep(/^mode$/,(keys(%in)))) { |
if (defined($in{'mode'})) { |
if ($in{'mode'} eq 'modifycourse') { |
if ($in{'mode'} eq 'modifycourse') { |
if ($authnum == 1) { |
if ($authnum == 1) { |
$authtype = '<input type="hidden" name="login" value="fsys">'; |
$authtype = '<input type="hidden" name="login" value="fsys">'; |
Line 4981 table.LC_double_column tr td.LC_right_co
|
Line 4979 table.LC_double_column tr td.LC_right_co
|
vertical-align: top; |
vertical-align: top; |
} |
} |
|
|
|
div.LC_left_float { |
|
float: left; |
|
padding-right: 5%; |
|
padding:bottom: 4px; |
|
} |
|
|
|
div.LC_clear_float_header { |
|
padding:bottom: 2px; |
|
} |
|
|
|
div.LC_clear_float_footer { |
|
padding:top: 10px; |
|
clear: both; |
|
} |
|
|
END |
END |
} |
} |
|
|
Line 5097 Inputs: none
|
Line 5110 Inputs: none
|
sub xml_begin { |
sub xml_begin { |
my $output=''; |
my $output=''; |
|
|
&Apache::lonhtmlcommon::init_htmlareafields(); |
if ($env{'internal.start_page'}==1) { |
|
&Apache::lonhtmlcommon::init_htmlareafields(); |
|
} |
|
|
if ($env{'browser.mathml'}) { |
if ($env{'browser.mathml'}) { |
$output='<?xml version="1.0"?>' |
$output='<?xml version="1.0"?>' |