version 1.28, 2006/11/14 20:38:21
|
version 1.32, 2007/09/24 23:29:53
|
Line 67 sub get_enrollment_settings {
|
Line 67 sub get_enrollment_settings {
|
} else { |
} else { |
$enrollvar{$type} = localtime($settings{$item}); |
$enrollvar{$type} = localtime($settings{$item}); |
} |
} |
} elsif ($type eq "sectionums") { |
} elsif ($type eq "sectionnums") { |
$enrollvar{$type} = $settings{$item}; |
$enrollvar{$type} = $settings{$item}; |
$enrollvar{$type} =~ s/,/, /g; |
$enrollvar{$type} =~ s/,/, /g; |
} elsif ($type eq "authtype" |
} elsif ($type eq "authtype" |
Line 138 sub print_course_selection_page {
|
Line 138 sub print_course_selection_page {
|
'ownerdomfilter','coursefilter']; |
'ownerdomfilter','coursefilter']; |
my %filter; |
my %filter; |
my $type = $env{'form.type'}; |
my $type = $env{'form.type'}; |
|
if ($type eq '') { |
|
$type = 'Course'; |
|
} |
my $action = '/adm/modifycourse'; |
my $action = '/adm/modifycourse'; |
my $dctitle = &Apache::lonnet::plaintext('dc'); |
my $dctitle = &Apache::lonnet::plaintext('dc'); |
$r->print(&mt('Revise your search criteria for this domain').' ('.$domdesc.').<br /><br />'); |
$r->print(&mt('Revise your search criteria for this domain').' ('.$domdesc.').<br /><br />'); |
Line 310 all settings except course code, course
|
Line 313 all settings except course code, course
|
'usrd' => 'Use the radio buttons to select a different course owner.', |
'usrd' => 'Use the radio buttons to select a different course owner.', |
'deam' => "Default Authentication method", |
'deam' => "Default Authentication method", |
'deus' => "The default authentication method, and default authentication parameter (domain, initial password or argument) are used when automatic enrollment of students in a course requires addition of new user accounts in your domain, and the class list file contains empty entries for the <authtype> and <autharg> properties for the new student. If you choose 'internally authenticated', and leave the initial password field empty, the automated enrollment process will create a randomized password for each new student account that it adds to your LON-CAPA domain.", |
'deus' => "The default authentication method, and default authentication parameter (domain, initial password or argument) are used when automatic enrollment of students in a course requires addition of new user accounts in your domain, and the class list file contains empty entries for the <authtype> and <autharg> properties for the new student. If you choose 'internally authenticated', and leave the initial password field empty, the automated enrollment process will create a randomized password for each new student account that it adds to your LON-CAPA domain.", |
'gobt' => "Modify settings", |
'gobt' => "Save", |
); |
); |
my @bgcolors = ('#eeeeee','#cccccc'); |
my @bgcolors = ('#eeeeee','#cccccc'); |
|
|
Line 374 all settings except course code, course
|
Line 377 all settings except course code, course
|
curr_authtype => $curr_authtype, |
curr_authtype => $curr_authtype, |
curr_autharg => $enrollvar{'autharg'} |
curr_autharg => $enrollvar{'autharg'} |
); |
); |
my $krbform = &Apache::loncommon::authform_kerberos(%param); |
my (%authform,$authenitems); |
my $intform = &Apache::loncommon::authform_internal(%param); |
$authform{'krb'} = &Apache::loncommon::authform_kerberos(%param); |
my $locform = &Apache::loncommon::authform_local(%param); |
$authform{'int'} = &Apache::loncommon::authform_internal(%param); |
|
$authform{'loc'} = &Apache::loncommon::authform_local(%param); |
|
foreach my $item ('krb','int','loc') { |
|
if ($authform{$item} ne '') { |
|
$authenitems .= $authform{$item}.'<br />'; |
|
} |
|
} |
if ($numlocalcc == 0) { |
if ($numlocalcc == 0) { |
$ownertable = $lt{'nocc'}; |
$ownertable = $lt{'nocc'}; |
} |
} |
Line 421 all settings except course code, course
|
Line 429 all settings except course code, course
|
} |
} |
&print_header($r,$cdesc,$javascript_validations); |
&print_header($r,$cdesc,$javascript_validations); |
my $type = $env{'form.type'}; |
my $type = $env{'form.type'}; |
|
if ($type eq '') { |
|
$type = 'Course'; |
|
} |
my $dctitle = &Apache::lonnet::plaintext('dc'); |
my $dctitle = &Apache::lonnet::plaintext('dc'); |
my $cctitle = &Apache::lonnet::plaintext('cc',$type); |
my $cctitle = &Apache::lonnet::plaintext('cc',$type); |
my $mainheader = &mt('Course settings modifiable by [_1] only.',$dctitle); |
my $mainheader = &mt('Course settings modifiable by [_1] only.',$dctitle); |
Line 431 all settings except course code, course
|
Line 442 all settings except course code, course
|
</p><p> |
</p><p> |
<table width="100%" cellspacing="6" cellpadding="6"> |
<table width="100%" cellspacing="6" cellpadding="6"> |
<tr> |
<tr> |
<td colspan="2">Use the appropriate text boxes and radio buttons below to change some or all of the four automated enrollment settings that may only be changed by a Domain Coordinator. Click the <b>"$lt{'gobt'}"</b> button to save your changes.</td> |
<td colspan="2">Use the appropriate text boxes and radio buttons below to change some or all of the four automated enrollment settings that may only be changed by a Domain Coordinator. |
</tr> |
</tr> |
<tr> |
<tr> |
<td width="50%" valign="top"> |
<td width="50%" valign="top"> |
Line 449 all settings except course code, course
|
Line 460 all settings except course code, course
|
<tr> |
<tr> |
<td width="50%" valign="top"> |
<td width="50%" valign="top"> |
<b>$lt{'deam'}:</b><br/><br/> |
<b>$lt{'deam'}:</b><br/><br/> |
$krbform |
$authenitems |
<br/> |
|
$intform |
|
<br/> |
|
$locform |
|
<br/> |
|
<br/> |
<br/> |
$lt{'deus'}. |
$lt{'deus'}. |
</td> |
</td> |
Line 477 ENDDOCUMENT
|
Line 483 ENDDOCUMENT
|
} |
} |
|
|
sub modify_course { |
sub modify_course { |
my ($r,$cdom,$cnum,$cdesc,$domdesc) = @_; |
my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; |
my %longtype = &course_settings_descrip(); |
my %longtype = &course_settings_descrip(); |
my %settings = &Apache::lonnet::get('environment',['internal.courseowner','internal.coursecode','internal.authtype','internal.autharg','internal.sectionnums','internal.crosslistings','description'],$cdom,$cnum); |
my %settings = &Apache::lonnet::get('environment',['internal.courseowner','internal.coursecode','internal.authtype','internal.autharg','internal.sectionnums','internal.crosslistings','description'],$cdom,$cnum); |
my %currattr = (); |
my %currattr = (); |
Line 554 sub modify_course {
|
Line 560 sub modify_course {
|
} |
} |
} |
} |
if ($changeowner == 1 || $changecode == 1) { |
if ($changeowner == 1 || $changecode == 1) { |
my $courseid_entry = &escape($cdom.'_'.$cnum).'='.&escape($description).':'.&escape($env{'form.coursecode'}).':'.&escape($env{'form.courseowner'}); |
my $courseid_entry = &escape($cdom.'_'.$cnum).'='.&escape($description).':'.&escape($env{'form.coursecode'}).':'.&escape($env{'form.courseowner'}).':'.&escape($type); |
&Apache::lonnet::courseidput($cdom,$courseid_entry,&Apache::lonnet::homeserver($cnum,$cdom)); |
&Apache::lonnet::courseidput($cdom,$courseid_entry,&Apache::lonnet::homeserver($cnum,$cdom)); |
} |
} |
|
|
Line 853 sub handler {
|
Line 859 sub handler {
|
return OK; |
return OK; |
} |
} |
my $dom = $env{'request.role.domain'}; |
my $dom = $env{'request.role.domain'}; |
my $domdesc = $Apache::lonnet::domaindescription{$dom}; |
my $domdesc = &Apache::lonnet::domain($dom,'description'); |
if (&Apache::lonnet::allowed('ccc',$dom)) { |
if (&Apache::lonnet::allowed('ccc',$dom)) { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
Line 878 sub handler {
|
Line 884 sub handler {
|
text=>"Pick action"}); |
text=>"Pick action"}); |
my ($checked,$cdesc) = &check_course($r,$dom,$domdesc); |
my ($checked,$cdesc) = &check_course($r,$dom,$domdesc); |
my $type = $env{'form.type'}; |
my $type = $env{'form.type'}; |
|
if ($type eq '') { |
|
$type = 'Course'; |
|
} |
if ($checked eq 'ok') { |
if ($checked eq 'ok') { |
if ($phase eq 'menu') { |
if ($phase eq 'menu') { |
&print_modification_menu($r,$cdesc); |
&print_modification_menu($r,$cdesc); |
Line 913 sub handler {
|
Line 922 sub handler {
|
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"javascript:changePage(document.$phase,'$phase')", |
({href=>"javascript:changePage(document.$phase,'$phase')", |
text=>"Result"}); |
text=>"Result"}); |
&modify_course($r,$cdom,$cnum,$cdesc,$domdesc); |
&modify_course($r,$cdom,$cnum,$cdesc,$domdesc,$type); |
} |
} |
} |
} |
} else { |
} else { |