'.
- &mt('The chosen course category [_1] is valid.',''.
- $instcode.' ').'
';
- } else {
- $message = ''.
- &mt('No course was found matching your choice of institutional course category.');
- if ($code_chk ne '') {
- $message .= '
';
- }
+ if ($checkedcode) {
+ if ($codechk eq 'valid') {
+ $message = ''.
- &mt('No course was found matching your choice of institutional course category.');
- }
- unless ($code_chk eq 'ok') {
+ &mt('No course was found matching your choice of institutional course category.');
+ if ($codechk ne '') {
+ $message .= '
';
$prev = 'crstype';
}
$r->print($message);
@@ -614,32 +1286,268 @@ sub print_request_form {
$codepicker = &coursecode_form($dom,'instcode',\@codetitles,
\%cat_titles,\%cat_order);
if ($codepicker) {
- $r->print(''.&Apache::lonhtmlcommon::start_pick_box().$codepicker.
+ $r->print(&mt('Specify the course to be created.').
+ '
'.&Apache::lonhtmlcommon::start_pick_box().
+ $codepicker.
&Apache::lonhtmlcommon::end_pick_box().'
');
} else {
- $r->print(&courseinfo_form($dom,$formname,$crstype));
+ $next = $states->{$action}[$page+2];
+ $r->print(&courseinfo_form($dom,$formname,$crstype,$next));
}
} else {
- $r->print(&courseinfo_form($dom,$formname,$crstype));
+ if ($crstype eq 'official') {
+ $next = $states->{$action}[$page+2];
+ }
+ $r->print(&courseinfo_form($dom,$formname,$crstype,$next));
}
} elsif ($prev eq 'codepick') {
- $r->print(&courseinfo_form($dom,$formname,$crstype));
+ if ($instcode eq '') {
+ $prev = $states->{$action}[$page-2];
+ }
+ $r->print(&courseinfo_form($dom,$formname,$crstype,$next,$description));
} elsif ($state eq 'enrollment') {
if ($crstype eq 'official') {
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
\%cat_order,\@code_order);
}
$r->print(&print_enrollment_menu($formname,$instcode,$dom,\@codetitles,
- \%cat_titles,\%cat_order,\@code_order));
+ \%cat_titles,\%cat_order,\@code_order,
+ $invalidcrosslist));
} elsif ($state eq 'personnel') {
- $r->print(&print_personnel_menu($dom,$formname));
+ $r->print(&print_personnel_menu($dom,$formname,$crstype,$invalidcrosslist));
} elsif ($state eq 'review') {
+ my (%alerts,%rulematch,%inst_results,%curr_rules,%got_rules,%disallowmsg);
+ my $now = time;
+ for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
+ my $personname = $env{'form.person_'.$i.'_uname'};
+ my $persondom = $env{'form.person_'.$i.'_dom'};
+ if (($personname =~ /^$match_username$/) &&
+ ($persondom =~ /^$match_domain$/)) {
+ if (&Apache::lonnet::domain($persondom)) {
+ my $personhome =
+ &Apache::lonnet::homeserver($personname,$persondom);
+ if ($personhome eq 'no_host') {
+ if ($persondom ne $dom) {
+ my $skipuser = 1;
+ if ($env{'user.role.dc./'.$persondom.'/'}) {
+ my ($start,$end) = split('.',$env{'user.role.dc./'.$persondom.'/'});
+ if (((!$start) || ($start < $now)) &&
+ ((!$end) || ($end > $now))) {
+ $skipuser = 0;
+ }
+ }
+ if ($skipuser) {
+ push(@disallowed,$i);
+ $disallowmsg{$i} = &mt('[_1] was excluded because new users need to be from the course domain','
'.$personname.':'.$persondom.' ');
+ next;
+ }
+ }
+ my $usertype = &get_usertype($persondom,$personname,\%curr_rules,\%got_rules);
+ if (&Apache::lonuserutils::can_create_user($dom,'requestcrs',$usertype)) {
+ my ($allowed,$msg,$authtype,$authparam) =
+ &check_newuser_rules($persondom,$personname,
+ \%alerts,\%rulematch,\%inst_results,
+ \%curr_rules,\%got_rules);
+ if ($allowed) {
+ my %domdefaults = &Apache::lonnet::get_domain_defaults($persondom);
+ if ($usertype eq 'official') {
+ if ($authtype eq '') {
+ $authtype = $domdefaults{'auth_def'};
+ $authparam = $domdefaults{'auth_arg_def'};
+ }
+ } elsif ($usertype eq 'unofficial') {
+ if ($authtype eq '') {
+ $authtype = 'internal';
+ $authparam = '';
+ }
+ } else {
+ $authtype = $domdefaults{'auth_def'};
+ $authparam = $domdefaults{'auth_arg_def'};
+ }
+ if (($authtype eq '') ||
+ (($authtype =~/^krb/) && ($authparam eq ''))) {
+ push(@disallowed,$i);
+ $disallowmsg{$i} = &mt('[_1] was excluded because institutional information is incomplete for this new user.','
'.$personname.':'.$persondom.' ');
+ next;
+ }
+ if (ref($inst_results{$personname.':'.$persondom}) eq 'HASH') {
+ if ($inst_results{$personname.':'.$persondom}{'lastname'} ne '') {
+ $env{'form.person_'.$i.'_lastname'} = $inst_results{$personname.':'.$persondom}{'lastname'};
+ }
+ if ($inst_results{$personname.':'.$persondom}{'firstname'} ne '') {
+ $env{'form.person_'.$i.'_firstname'} = $inst_results{$personname.':'.$persondom}{'firstname'};
+ }
+ if ($inst_results{$personname.':'.$persondom}{'permanentemail'} ne '') {
+ $env{'form.person_'.$i.'_emailaddr'} = $inst_results{$personname.':'.$persondom}{'permanentemail'};
+ }
+ }
+ } else {
+ push(@disallowed,$i);
+ $disallowmsg{$i} = &mt('[_1] was excluded because the username violated format rules for the domain','
'.$personname.':'.$persondom.' ');
+ }
+ } else {
+ push(@disallowed,$i);
+ $disallowmsg{$i} = &mt('[_1] was excluded because you may not request new users in the domain','
'.$personname.':'.$persondom.' ');
+ }
+ } else {
+ my %userenv =
+ &Apache::lonnet::userenvironment($persondom,$personname,'lastname','firstname','permanentemail');
+ if ($env{'form.person_'.$i.'_lastname'} eq '') {
+ $env{'form.person_'.$i.'_lastname'} = $userenv{'lastname'};
+ }
+ if ($env{'form.person_'.$i.'_firstname'} eq '') {
+ $env{'form.person_'.$i.'_firstname'} = $userenv{'firstname'};
+ }
+ if ($env{'form.person_'.$i.'_emailaddr'} eq '') {
+ $env{'form.person_'.$i.'_emailaddr'} = $userenv{'permanentemail'};
+ }
+ }
+ } elsif ($personname ne '') {
+ push(@disallowed,$i);
+ $disallowmsg{$i} = &mt('[_1] was excluded because the domain is invalid','
'.$personname.':'.$persondom.' ');
+ }
+ } elsif ($personname ne '') {
+ push(@disallowed,$i);
+ $disallowmsg{$i} = &mt('[_1] was excluded because the username or domain is invalid.','
'.$personname.':'.$persondom.' ');
+ }
+ }
+ my $cnum;
+ if ($env{'form.origcnum'} =~ /^($match_courseid)$/) {
+ $cnum = $env{'form.origcnum'};
+ } else {
+ my $gentype = 'Course';
+ if ($crstype eq 'community') {
+ $gentype = 'Community';
+ }
+ $cnum = &Apache::lonnet::generate_coursenum($dom,$gentype);
+ }
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
\%cat_order,\@code_order);
- $r->print(&print_review($formname,$dom,\@codetitles,\%cat_titles,\%cat_order,
- \@code_order));
- $navtxt{'next'} = &mt('Submit course request');
+ if ($crstype eq 'community') {
+ $r->print('
'.&mt('Review community request details before submission').' ');
+ } else {
+ $r->print('
'.&mt('Review course request details before submission').' ');
+ }
+ $r->print(&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order,'','',\@disallowed,\%disallowmsg).
+ '
');
+ if ($crstype eq 'community') {
+ $navtxt{'next'} = &mt('Submit community request');
+ } else {
+ $navtxt{'next'} = &mt('Submit course request');
+ }
+ } elsif ($state eq 'process') {
+ if ($crstype eq 'official') {
+ &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
+ \%cat_order,\@code_order);
+ }
+ my ($storeresult,$result) = &print_request_outcome($dom,\@codetitles,
+ \@code_order);
+ $r->print($result);
+ if (($storeresult eq 'ok') || ($storeresult eq 'created')) {
+ $r->print('
');
+ if ($storeresult eq 'ok') {
+ $r->print(''.
+ &mt('Modify this request').' '.(' 'x4));
+ }
+ $r->print(''.&mt('Make another request').'
');
+ return;
+ }
+ }
+ my @excluded = &get_excluded_elements($dom,$states,$action,$state);
+ if ($state eq 'personnel') {
+ push(@excluded,'persontotal');
+ }
+ if ($state eq 'review') {
+ if (@disallowed > 0) {
+ my @items = qw(uname dom lastname firstname emailaddr hidedom role newsec);
+ my @currsecs = ¤t_lc_sections();
+ if (@currsecs) {
+ push(@items,'sec');
+ }
+ my $count = 0;
+ for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
+ unless ($env{'form.person_'.$i.'_uname'} eq '') {
+ if (grep(/^$i$/,@disallowed)) {
+ foreach my $item (@items) {
+ $env{'form.person_'.$i.'_'.$item} = '';
+ }
+ } else {
+ foreach my $item (@items) {
+ $env{'form.person_'.$count.'_'.$item} = $env{'form.person_'.$i.'_'.$item};
+ }
+ }
+ }
+ $count ++;
+ }
+ $env{'form.persontotal'} = $count;
+
+ }
+ }
+ if ($state eq 'enrollment') {
+ push(@excluded,('sectotal','crosslisttotal'));
}
+ $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'');
+ &display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},$next,
+ $navtxt{'next'},$state);
+ return;
+}
+
+sub get_usertype {
+ my ($persondom,$personname,$curr_rules,$got_rules) = @_;
+ my ($rules,$ruleorder) =
+ &Apache::lonnet::inst_userrules($persondom,'username');
+ my $usertype = &Apache::lonuserutils::check_usertype($persondom,$personname,
+ $rules,$curr_rules,$got_rules);
+ return $usertype;
+}
+
+sub check_newuser_rules {
+ my ($persondom,$personname,$alerts,$rulematch,$inst_results,$curr_rules,
+ $got_rules) = @_;
+ my $allowed = 1;
+ my $newuser = 1;
+ my ($checkhash,$userchkmsg,$authtype,$authparam);
+ my $checks = { 'username' => 1 };
+ $checkhash->{$personname.':'.$persondom} = { 'newuser' => $newuser };
+ &Apache::loncommon::user_rule_check($checkhash,$checks,$alerts,$rulematch,
+ $inst_results,$curr_rules,$got_rules);
+ if (ref($alerts->{'username'}) eq 'HASH') {
+ if (ref($alerts->{'username'}{$persondom}) eq 'HASH') {
+ my $domdesc =
+ &Apache::lonnet::domain($persondom,'description');
+ if ($alerts->{'username'}{$persondom}{$personname}) {
+ if (ref($curr_rules->{$persondom}) eq 'HASH') {
+ $userchkmsg =
+ &Apache::loncommon::instrule_disallow_msg('username',
+ $domdesc,1).
+ &Apache::loncommon::user_rule_formats($persondom,
+ $domdesc,$curr_rules->{$persondom}{'username'},
+ 'username');
+ }
+ $allowed = 0;
+ }
+ }
+ }
+ if ($allowed) {
+ if (ref($rulematch) eq 'HASH') {
+ if (ref($rulematch->{$personname.':'.$persondom}) eq 'HASH') {
+ my $matchedrule = $rulematch->{$personname.':'.$persondom}{'username'};
+ my ($rules,$ruleorder) =
+ &Apache::lonnet::inst_userrules($persondom,'username');
+ if (ref($rules) eq 'HASH') {
+ if (ref($rules->{$matchedrule}) eq 'HASH') {
+ $authtype = $rules->{$matchedrule}{'authtype'};
+ $authparam = $rules->{$matchedrule}{'authparm'};
+ }
+ }
+ }
+ }
+ }
+ return ($allowed,$userchkmsg,$authtype,$authparam);
+}
+
+sub get_excluded_elements {
+ my ($dom,$states,$action,$state) = @_;
my @excluded = ('counter');
my %elements = &form_elements($dom);
if (ref($states) eq 'HASH') {
@@ -650,7 +1558,7 @@ sub print_request_form {
for (my $i=$numitems-1; $i>=0; $i--) {
if (ref($elements{$action}) eq 'HASH') {
if (ref($elements{$action}{$items[$i]}) eq 'HASH') {
- foreach my $key (keys(%{$elements{$action}{$items[$i]}})) {
+ foreach my $key (keys(%{$elements{$action}{$items[$i]}})) {
push(@excluded,$key);
}
}
@@ -663,20 +1571,19 @@ sub print_request_form {
if (grep(/^instcode_/,@excluded)) {
push(@excluded,'instcode');
}
- $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'');
- &display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next,$navtxt{'next'});
- return;
+ return @excluded;
}
sub print_enrollment_menu {
- my ($formname,$instcode,$dom,$codetitles,$cat_titles,$cat_order,$code_order) =@_;
- my ($sections,$autoenroll,$access_dates);
+ my ($formname,$instcode,$dom,$codetitles,$cat_titles,$cat_order,$code_order,
+ $invalidcrosslist) =@_;
+ my ($sections,$autoenroll,$access_dates,$output,$hasauto);
my $starttime = time;
my $endtime = time+(6*30*24*60*60); # 6 months from now, approx
my %accesstitles = (
'start' => 'Default start access',
- 'end' => 'Default end accss',
+ 'end' => 'Default end access',
);
my %enrolltitles = (
'start' => 'Start auto-enrollment',
@@ -684,10 +1591,40 @@ sub print_enrollment_menu {
);
if ($env{'form.crstype'} eq 'official') {
if (&Apache::lonnet::auto_run('',$dom)) {
- my ($section_form,$crosslist_form,$autoenroll_form);
- $section_form = &inst_section_selector($dom,$instcode);
+ $output = &show_invalid_crosslists($invalidcrosslist);
+ my ($section_form,$crosslist_form);
+ if ($instcode ne '') {
+ $section_form = &inst_section_selector($dom,$instcode);
+ if ($section_form eq '') {
+ my $sectotal = $env{'form.sectotal'};
+ if (!$sectotal) {
+ $sectotal = 1;
+ }
+ if ($env{'form.addsection'}) {
+ $sectotal ++;
+ }
+ for (my $i=0; $i<$sectotal; $i++) {
+ $section_form .= §ions_form($dom,$instcode,$i);
+ }
+ if ($section_form) {
+ $section_form .=
+ &Apache::lonhtmlcommon::row_title(&mt('Add another')).
+ '
'.
+ '
'.&mt('Add?').&Apache::lonhtmlcommon::row_closure();
+ }
+ }
+ }
+ if ($section_form) {
+ $sections = &Apache::lonhtmlcommon::row_headline().
+ '
'.&Apache::loncommon::help_open_topic('Course_Request_Sections').
+ ' '.&mt('Sections for auto-enrollment').' '.
+ &Apache::lonhtmlcommon::row_closure(1).
+ $section_form;
+ }
my $crosslisttotal = $env{'form.crosslisttotal'};
- if (!defined($crosslisttotal)) {
+ if (!$crosslisttotal) {
$crosslisttotal = 1;
}
if ($env{'form.addcrosslist'}) {
@@ -699,70 +1636,109 @@ sub print_enrollment_menu {
}
if ($crosslist_form) {
$crosslist_form .=
- &Apache::lonhtmlcommon::row_title(&mt('Add another?')).
+ &Apache::lonhtmlcommon::row_title(&mt('Add another')).
'
'.
'
'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(1);
- }
- if ($section_form || $crosslist_form) {
- $sections = '
'.&Apache::lonhtmlcommon::start_pick_box().
- $section_form.$crosslist_form.
- &Apache::lonhtmlcommon::end_pick_box().'
'."\n";
- }
- $autoenroll_form =
- &Apache::lonhtmlcommon::row_title(&mt('Add registered students automatically')).
+ "'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure();
+ $sections .= &Apache::lonhtmlcommon::row_headline.
+ '
'.&Apache::loncommon::help_open_topic('Course_Request_Crosslist').' '.&mt('Crosslisted courses for auto-enrollment').' '.
+ &Apache::lonhtmlcommon::row_closure(1).
+ $crosslist_form;
+ }
+ $hasauto = 1;
+ $autoenroll =
+ &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic('Course_Request_Autoadd').' '.&mt('Add registered students automatically')).
'
'.
' '.(' 'x3).''.
' '.
- &Apache::lonhtmlcommon::row_closure().
- &Apache::lonhtmlcommon::row_title(&mt('Drop unregistered students automatically')).
+ &Apache::lonhtmlcommon::row_closure(1).
+ &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic('Course_Request_Autodrop').' '.&mt('Drop unregistered students automatically')).
'
'.
' '.(' 'x3).''.
' '.
- &Apache::lonhtmlcommon::row_closure().
- &date_setting_table($starttime,$endtime,$formname,'enroll',%enrolltitles);
- if ($autoenroll_form) {
- $autoenroll = '
'.&Apache::lonhtmlcommon::start_pick_box().
- $autoenroll_form.
- &Apache::lonhtmlcommon::end_pick_box().'
'."\n";
+ &Apache::lonhtmlcommon::row_closure(1).
+ &date_setting_table($starttime,$endtime,$formname,'enroll',
+ $hasauto,%enrolltitles);
+ }
+ }
+ my $access_dates =
+ &date_setting_table($starttime,$endtime,$formname,'access',$hasauto,
+ %accesstitles);
+ $output .= &Apache::lonhtmlcommon::start_pick_box();
+ if ($sections) {
+ $output .= $sections;
+ }
+ if ($autoenroll) {
+ $output .= &Apache::lonhtmlcommon::row_headline('Auto-enroll').
+ '
'.&mt('Auto-enrollment settings').' '.
+ &Apache::lonhtmlcommon::row_closure(1).
+ $autoenroll;
+ }
+ if ($access_dates) {
+ my $header = &mt('Access dates for students');
+ if ($env{'form.crstype'} eq 'community') {
+ $header = &mt('Access dates for community members');
+ }
+ $output .= &Apache::lonhtmlcommon::row_headline('Access').
+ '
'.$header.' '.
+ &Apache::lonhtmlcommon::row_closure(1).
+ $access_dates
+ }
+ return '
'.&Apache::lonhtmlcommon::start_pick_box().$output.
+ &Apache::lonhtmlcommon::end_pick_box().'
';
+}
+
+sub show_invalid_crosslists {
+ my ($invalidcrosslist) = @_;
+ my $output;
+ if (ref($invalidcrosslist) eq 'ARRAY') {
+ if (@{$invalidcrosslist} > 0) {
+ $output = '
'.
+ &mt('The following crosslisted courses were invalid:').'
';
+ foreach my $item (@{$invalidcrosslist}) {
+ $output .= ''.$item.' ';
}
+ $output .= ' ';
}
}
- my $access_dates_form =
- &date_setting_table($starttime,$endtime,$formname,'access',%accesstitles);
- if ($access_dates_form) {
- $access_dates = '
'.&Apache::lonhtmlcommon::start_pick_box().
- $access_dates_form.
- &Apache::lonhtmlcommon::end_pick_box().'
'."\n";
- }
- return $sections.$autoenroll.$access_dates;
+ return $output;
}
+
sub inst_section_selector {
my ($dom,$instcode) = @_;
my @sections = &Apache::lonnet::auto_get_sections(undef,$dom,$instcode);
my $sectotal = scalar(@sections);
my $output;
if ($sectotal) {
- $output .= &Apache::lonhtmlcommon::row_title('Sections').
+ $output .= &Apache::lonhtmlcommon::row_title(&mt('Sections of [_1]',$instcode)).
&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_row().
'
'.&mt('Include?').' '.
'
'.&mt('Institutional Section').' '.
- '
'.&mt('LON-CAPA section').' '.
+ '
'.&Apache::loncommon::help_open_topic('Course_Request_LCSection').
+ ' '.&mt('LON-CAPA section').' '.
&Apache::loncommon::end_data_table_row();
for (my $i=0; $i<@sections; $i++) {
my $colflag = $i%2;
+ my $secon = ' checked="checked"';
+ my $secoff = '';
+ if ($env{'form.origcnum'}) {
+ $secoff = $secon;
+ $secon='';
+ }
$output .= &Apache::loncommon::start_data_table_row().
- '
'.
- '
'.$sections[$i].
+ ' '.
+ '
'.$sections[$i].
' '.
'
'.
' ';
+ $closure = '1';
}
- $table = &Apache::lonhtmlcommon::row_title($datetitles{'start'}).
- $startform.
- &Apache::lonhtmlcommon::row_closure().
- &Apache::lonhtmlcommon::row_title($datetitles{'end'}).
- $endform.$perpetual.
- &Apache::lonhtmlcommon::row_closure(1);
+
+ my %help_item = (
+ access => {
+ start => 'Course_Request_Access_Start',
+ end => 'Course_Request_Access_End',
+ },
+ enroll => {
+ start => 'Course_Request_Enroll_Start',
+ end => 'Course_Request_Enroll_End',
+ },
+ );
+ if ($hasauto) {
+ $help_item{'access'}{'start'} = 'Course_Request_RegAccess_Start';
+ $help_item{'access'}{'end'} = 'Course_Request_RegAccess_End';
+ }
+
+ $table = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'start'}).
+ ' '.&mt($datetitles{'start'})).$startform.
+ &Apache::lonhtmlcommon::row_closure(1).
+ &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'end'}).
+ ' '.&mt($datetitles{'end'})).$endform.$perpetual.
+ &Apache::lonhtmlcommon::row_closure($closure);
return $table;
}
sub print_personnel_menu {
- my ($dom,$formname) = @_;
- my $output = ''.&Apache::lonhtmlcommon::start_pick_box();
+ my ($dom,$formname,$crstype,$invalidcrosslist) = @_;
+ my $output;
+ if ($crstype eq 'official') {
+ if (&Apache::lonnet::auto_run('',$dom)) {
+ $output .= &show_invalid_crosslists($invalidcrosslist);
+ }
+ }
+ $output .= '
'.&Apache::lonhtmlcommon::start_pick_box();
my $persontotal = $env{'form.persontotal'};
- if (!defined($persontotal)) {
+ if ((!defined($persontotal)) || (!$persontotal)) {
$persontotal = 1;
}
if ($env{'form.addperson'}) {
$persontotal ++;
}
- my $userlinktxt = &mt('Set User');
- my @items = ('uname','dom','last','first','email','hidedom');
+ my @items = ('uname','dom','lastname','firstname','emailaddr','hidedom');
+ my $type = 'Course';
+ if ($crstype eq 'community') {
+ $type = 'Community';
+ }
my $roleoptions;
- my @roles = &Apache::lonuserutils::roles_by_context('course');
+ my @roles = &Apache::lonuserutils::roles_by_context('course','',$type);
foreach my $role (@roles) {
- my $plrole=&Apache::lonnet::plaintext($role);
+ my $plrole = &Apache::lonnet::plaintext($role,$type);
$roleoptions .= '
'.$plrole.' '."\n";
}
my %customroles=&Apache::lonuserutils::my_custom_roles();
if (keys(%customroles) > 0) {
foreach my $cust (sort(keys(%customroles))) {
- my $custrole='cr_cr_'.$env{'user.domain'}.
- '_'.$env{'user.name'}.'_'.$cust;
+ my $custrole="cr/$env{'user.domain'}/$env{'user.name'}/$cust";
$roleoptions .= '
'.$cust.' '."\n";
}
}
- my @currsecs;
- if ($env{'form.sectotal'}) {
- for (my $i=0; $i<$env{'form.sectotal'}; $i++) {
- if (defined($env{'form.loncapasec_'.$i})) {
- my $lcsec = $env{'form.loncapasec_'.$i};
- unless (grep(/^\Q$lcsec\E$/,@currsecs)) {
- push(@currsecs,$lcsec);
- }
- }
- }
- }
+ my @currsecs = ¤t_lc_sections();
my ($existtitle,$existops,$existmult,$newtitle,$seccolspan);
if (@currsecs) {
@@ -855,19 +1847,24 @@ sub print_personnel_menu {
$newtitle = &mt('Other').': ';
}
+ if ($persontotal) {
+ my %lt = &Apache::lonlocal::texthash(
+ community => 'Requestor is automatically assigned Coordinator role.',
+ official => 'Requestor is automatically assigned Course Coordinator role.',
+ );
+ $lt{'unofficial'} = $lt{'official'};
+ $output .= &Apache::lonhtmlcommon::row_headline().
+ '
'.&Apache::loncommon::help_open_topic('Course_Request_Personnel').' '.$lt{$crstype}.' '.&mt('Include other personnel?').' ';
+ }
for (my $i=0; $i<$persontotal; $i++) {
my @linkargs = map { 'person_'.$i.'_'.$_ } (@items);
my $linkargstr = join("','",@linkargs);
- my $userlink = &Apache::loncommon::selectuser_link($formname,@linkargs,$userlinktxt);
- my $uname_form = '
';
+ my $uname_form = '
';
my $onchange = 'javascript:fix_domain('."'$formname','person_".$i."_dom',".
- "'person_".$i."_hidedom'".');'.
- 'openuserbrowser('."'$formname','$linkargstr'".');';
+ "'person_".$i."_hidedom','person_".$i."_uname'".');';
my $udom_form = &Apache::loncommon::select_dom_form($dom,'person_'.$i.'_dom','',
1,$onchange).
- '
';
+ '
';
my %form_elems;
foreach my $item (@items) {
next if (($item eq 'dom') || ($item eq 'uname') || ($item eq 'hidedom'));
@@ -882,47 +1879,622 @@ sub print_personnel_menu {
$existmult.'>'."\n".$existops.''.(' ' x3);
}
$sectionselector .= $newtitle.
- '
'.
- '
'."\n";
-
+ '
'."\n";
+ my $usersrchlinktxt = &mt('Search for user');
+ my $usersrchlink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom,
+ $usersrchlinktxt);
+ my $userchklinktxt = &mt('Check username');
+ my $userchklink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom,
+ $userchklinktxt,'checkusername');
$output .=
- &Apache::lonhtmlcommon::row_title(&mt('Additional Personnel').'
'.
- '
'.$userlink.
- ' ').
- '
'.&mt('Username').' '."\n".
- ''.&mt('Domain').' '."\n".
- ''.&mt('First Name').' '."\n".
- ''.&mt('Last Name').' '."\n".
- ''.&mt('E-mail').' '."\n".
- ''.&mt('Role').' '."\n".
- ''.&mt('Section(s)').''.$usersrchlink.' '.
+ &mt('Username').': '.$uname_form.' '.$userchklink.' '.&mt('Domain').': '.$udom_form.' '.
+ ''.&mt('First Name').' '."\n".
+ ''.&mt('Last Name').' '."\n".
+ ''.&mt('E-mail').' '."\n".
+ ''.&Apache::loncommon::help_open_topic('Course_Roles').' '.&mt('Role').' '."\n".
+ ''.
+ &Apache::loncommon::help_open_topic('Course_Request_Rolesection').' '.&mt('LON-CAPA Section(s)').'
'.&Apache::lonhtmlcommon::row_closure();
}
- $output .= &Apache::lonhtmlcommon::row_title(&mt('Add another?')).
+ $output .= &Apache::lonhtmlcommon::row_title(&mt('Add another')).
''.&mt('You may also add users later, once the community has been created, by using the "Manage community users" link, accessible from the "Main Menu".').'
';
+ } else {
+ $output .= ''.&mt('You may also add users later, once the course has been created, by using the "Manage course users" link, accessible from the "Main Menu".').'
';
+ }
return $output;
}
+sub current_lc_sections {
+ my @currsecs;
+ if ($env{'form.sectotal'}) {
+ for (my $i=0; $i<$env{'form.sectotal'}; $i++) {
+ if ($env{'form.sec_'.$i}) {
+ if (defined($env{'form.loncapasec_'.$i})) {
+ my $lcsec = $env{'form.loncapasec_'.$i};
+ unless (grep(/^\Q$lcsec\E$/,@currsecs)) {
+ push(@currsecs,$lcsec);
+ }
+ }
+ }
+ }
+ }
+ return @currsecs;
+}
+
+sub sorted_request_history {
+ my ($dom,$action,$curr_req) = @_;
+ my ($after,$before,$statusfilter,$crstypefilter);
+ if ($env{'form.status'} ne '') {
+ $statusfilter = $env{'form.status'};
+ }
+ if ($env{'form.crstype'} ne '') {
+ $crstypefilter = $env{'form.crstype'};
+ }
+ if (ref($curr_req) eq 'HASH') {
+ $after = $curr_req->{'requested_after_date'},
+ $before = $curr_req->{'requested_before_date'};
+ $statusfilter = $curr_req->{'status'};
+ $crstypefilter = $curr_req->{'crstype'};
+ }
+ my %statusinfo = &Apache::lonnet::dump('courserequests',$env{'user.domain'},
+ $env{'user.name'},'^status:'.$dom);
+ my %queue_by_date;
+ my ($types,$typenames) = &Apache::loncommon::course_types();
+ foreach my $key (keys(%statusinfo)) {
+ if ($action eq 'view') {
+ next unless (($statusinfo{$key} eq 'approval') || ($statusinfo{$key} eq 'pending'));
+ } else {
+ next unless (($statusfilter eq 'any') ||
+ ($statusfilter eq $statusinfo{$key}));
+ }
+ (undef,my($cdom,$cnum)) = split(':',$key);
+ next if ($cdom ne $dom);
+ my $requestkey = $cdom.'_'.$cnum;
+ if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
+ my %history = &Apache::lonnet::restore($requestkey,'courserequests',
+ $env{'user.domain'},$env{'user.name'});
+ my $entry;
+ my $reqtime = $history{'reqtime'};
+ my $lastupdate = $history{'timestamp'};
+ my $crstype = $history{'crstype'};
+ my $disposition = $history{'disposition'};
+ my $status = $history{'status'};
+ if ($action eq 'view') {
+ next if ((exists($history{'status'})) && ($history{'status'} eq 'created'));
+ } else {
+ next if (($reqtime < $after) || ($reqtime > $before));
+ }
+ next unless (($crstypefilter eq 'any') ||
+ ($crstypefilter eq $crstype));
+ if ($action eq 'view') {
+ next unless (($disposition eq 'approval') ||
+ ($disposition eq 'pending'));
+ }
+ if (ref($history{'details'}) eq 'HASH') {
+ $entry = $requestkey.':'.$crstype.':'.
+ &escape($history{'details'}{'cdescr'});
+ if ($action eq 'log') {
+ $entry .= ':'.$lastupdate.':';
+ if ($statusinfo{$key} ne '') {
+ $entry .= $statusinfo{$key};
+ } elsif ($status ne '') {
+ $entry .= $status;
+ } else {
+ $entry .= $disposition;
+ }
+ }
+ if ($crstype eq 'official') {
+ $entry .= ':'.&escape($history{'details'}{'instcode'});
+ }
+ }
+ if ($entry ne '') {
+ if (exists($queue_by_date{$reqtime})) {
+ if (ref($queue_by_date{$reqtime}) eq 'ARRAY') {
+ push(@{$queue_by_date{$reqtime}},$entry);
+ }
+ } else {
+ @{$queue_by_date{$reqtime}} = ($entry);
+ }
+ }
+ }
+ }
+ return %queue_by_date;
+}
+
sub print_request_status {
+ my ($dom,$action) = @_;
+ my %queue_by_date = &sorted_request_history($dom,$action);
+ my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date));
+ my $formname = 'requestcrs';
+ my ($types,$typenames) = &Apache::loncommon::course_types();
+ my $output = ''.&mt('Action').' '.
+ ''.$desctitle.' '.
+ ''.&mt('Domain').' ';
+ if ($env{'form.crstype'} eq 'any') {
+ $output .= ''.&mt('Type').' ';
+ }
+ if (($env{'form.crstype'} eq 'any') || ($env{'form.crstype'} eq 'official')) {
+ $output .= ''.&mt('Institutional Code').' ';
+ }
+ $output .= ''.&mt('Date requested').' '.
+ &Apache::loncommon::end_data_table_header_row();
+ my $count = 0;
+ foreach my $item (@sortedtimes) {
+ my $showtime = &Apache::lonlocal::locallocaltime($item);
+ if (ref($queue_by_date{$item}) eq 'ARRAY') {
+ foreach my $request (sort(@{$queue_by_date{$item}})) {
+ my ($key,$type,$desc,$instcode) = split(':',$request);
+ my ($cdom,$cnum) = split('_',$key);
+ $output .= &Apache::loncommon::start_data_table_row().
+ ''.&unescape($desc).' '.
+ ''.$cdom.' ';
+ if ($env{'form.crstype'} eq 'any') {
+ my $typename;
+ if (ref($typenames) eq 'HASH') {
+ $typename = &mt($typenames->{$type});
+ }
+ if ($typename eq '') {
+ $typename = &mt('Unknown type');
+ }
+ $output .= ''.$typename.' ';
+ }
+ if (($env{'form.crstype'} eq 'any') ||
+ ($env{'form.crstype'} eq 'official')) {
+ my $showinstcode;
+ if ($type eq 'official') {
+ $showinstcode = &unescape($instcode);
+ } else {
+ $showinstcode = &mt('Not applicable');
+ }
+ $output .= ''.$showinstcode.' ';
+ }
+ $output .= ''.$showtime.' '.
+ &Apache::loncommon::end_data_table_row();
+ }
+ }
+ }
+ $output .= &Apache::loncommon::end_data_table();
+ } else {
+ if ($env{'form.crstype'} eq 'any') {
+$output .= ''.&mt('You have no matching course or community requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'
';
+ } elsif ($env{'form.crstype'} eq 'community') {
+ $output .= ''.&mt('You have no matching community requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'
';
+ } else {
+ $output .= ''.&mt('You have no matching course requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'
';
+ }
+ }
+ $output .= '
+'.&Apache::loncommon::start_data_table().
+ &Apache::loncommon::start_data_table_header_row().
+ '
'.&mt('Description').' '.&mt('Requested').' '.
+ ''.&mt('Type').' '.
+ &Apache::loncommon::end_data_table_header_row().
+ &Apache::loncommon::start_data_table_row().
+ ''.$history{details}{'cdescr'}.' '.
+ &Apache::lonlocal::locallocaltime($timestamp).' '.
+ ''.$showtype.' '.
+ &Apache::loncommon::end_data_table_row().
+ &Apache::loncommon::end_data_table().
+ '';
+ if ($crstype eq 'community') {
+ $output .= &mt('Cancelling the request will remove it from the queue of pending community requests').'
';
+ } else {
+ $output .= &mt('Cancelling the request will remove it from the queue of pending course requests').'';
+ }
+ $result = 'ok';
+ } else {
+ $output = ''.&mt('No record exists for the course ID').'
';
+ }
+ } else {
+ $output = ''.&mt('Invalid course ID').'
';
+ }
+ return ($result,$output);
+}
+
+sub viewrequest_javascript {
+ my ($formname,$next) = @_;
+ return <<"ENDJS";
+
+function chooseRequest(cdom,cnum) {
+ document.$formname.showdom.value = cdom;
+ document.$formname.cnum.value = cnum;
+ nextPage(document.$formname,'$next');
+}
+
+ENDJS
+}
+
+sub viewdetails_javascript {
+ my ($formname) = @_;
+ return << "ENDJS";
+
+function nextPage(formname,nextstate) {
+ if (nextstate == "modify") {
+ formname.state.value = "personnel";
+ formname.action.value = "new";
+ } else {
+ formname.state.value = nextstate;
+ }
+ formname.submit();
+}
+
+function backPage(formname,prevstate) {
+ formname.state.value = prevstate;
+ formname.submit();
+}
+
+ENDJS
+}
+
+sub viewcancel_javascript {
+ my $alert = &mt('Are you sure you want to cancel this request?\\n'.
+ 'Your request will be removed.');
+ return << "ENDJS";
+function nextPage(formname,nextstate) {
+ if (confirm('$alert')) {
+ formname.state.value = nextstate;
+ formname.submit();
+ }
return;
}
+ENDJS
+}
+
sub print_request_logs {
+ my ($r,$dom,$jscript,$loaditems,$crumb) = @_;
+ my $title;
+ if ($env{'form.crstype'} eq 'community') {
+ $title = 'Community Request Logs';
+ } elsif ($env{'form.crstype'} eq 'any') {
+ $title = 'Course/Community Request Logs';
+ } else {
+ $title = 'Course Request Logs';
+ }
+ $r->print(&header($title,$jscript,$loaditems).$crumb);
+ my $formname = 'requestcrs';
+ $r->print(''.
+ &Apache::loncommon::end_page());
return;
}
+sub reqstatus_names {
+ my ($crstype) = @_;
+ my @statuses = qw(created approval pending rejected cancelled);
+ my %statusnames =
+ &Apache::lonlocal::texthash (
+ created => 'Created',
+ approval => 'Queued pending approval',
+ pending => 'Queued pending validation',
+ rejected => 'Request rejected',
+ cancelled => 'Request cancelled',
+ );
+ if (($crstype eq 'official') || ($crstype eq 'unofficial')) {
+ $statusnames{'created'} = &mt('Course created');
+ } elsif ($crstype eq 'community') {
+ $statusnames{'created'} = &mt('Community created');
+ }
+ return (\@statuses,\%statusnames);
+}
+
+sub requestlog_display_filter {
+ my ($formname,$curr) = @_;
+ my $nolink = 1;
+ my $output = ''.
+ ''.&mt('Records/page:').' ';
+ my $startform =
+ &Apache::lonhtmlcommon::date_setter($formname,'requested_after_date',
+ $curr->{'requested_after_date'},undef,
+ undef,undef,undef,undef,undef,undef,$nolink);
+ my $endform =
+ &Apache::lonhtmlcommon::date_setter($formname,'requested_before_date',
+ $curr->{'requested_before_date'},undef,
+ undef,undef,undef,undef,undef,undef,$nolink);
+ $output .= ''.&mt('Window during which course/community was requested:').' '.&mt('After:').
+ ' '.$startform.' '.&mt('Before:').' '.
+ ''.$endform.'
'.
+ ' ';
+ my ($types,$typenames) = &Apache::loncommon::course_types();
+ if (ref($types) eq 'ARRAY') {
+ if (@{$types} > 1) {
+ $output .= ''.
+ &mt('Course Type:').' ';
+ my $selstr = '';
+ if ($curr->{'crstype'} eq 'any') {
+ $selstr = ' selected="selected"';
+ }
+ $output .= ''.&mt('All types').' '."\n";
+ foreach my $crstype (@{$types}) {
+ my $selstr = '';
+ if ($curr->{'crstype'} eq $crstype) {
+ $selstr = ' selected="selected"';
+ }
+ my $typename = $crstype;
+ if (ref($typenames) eq 'HASH') {
+ if ($typenames->{$crstype} ne '') {
+ $typename = $typenames->{$crstype};
+ }
+ }
+ $output .= ''.$typename.' '."\n";
+ }
+ $output .= ' '.
+ &mt('Request Status:').' ';
+ my $selstr = '';
+ if ($curr->{'status'} eq 'any') {
+ $selstr = ' selected="selected"';
+ }
+ $output .= ''.&mt('Any status').' '."\n";
+ foreach my $status (@{$statuses}) {
+ my $selstr = '';
+ if ($curr->{'status'} eq $status) {
+ $selstr = ' selected="selected"';
+ }
+ my $statusname = $status;
+ if (ref($statusnames) eq 'HASH') {
+ if ($statusnames->{$status} ne '') {
+ $statusname = $statusnames->{$status};
+ }
+ }
+ $output .= ''.$statusname.' '."\n";
+ }
+ $output .= '
';
+
+ # Update Display button
+ $output .= ''.
+ '
'.&mt('Description').' '.&mt('Type').' ';
$inst_values = ''.$env{'form.cdescr'}.' '.$crstypename.' ';
+ my $enrollrow_title = &mt('Default Access Dates').''.&mt('Automatic Adds').' '.
''.&mt('Automatic Drops').' '.
''.&mt('Enrollment Starts').' '.
@@ -963,12 +2542,12 @@ sub print_review {
$section_headers = ''.&mt('Sections').' '.
''.&mt('Crosslistings').' ';
- my ($startenroll,$endenroll) = &dates_from_form('startenroll','endenroll');
+ my ($enrollstart,$enrollend) = &dates_from_form('enrollstart','enrollend');
my @autoroster = (&mt('No'),&mt('Yes'));
$enroll_values = ''.$autoroster[$env{'form.autoadds'}].' '.
''.$autoroster[$env{'form.autodrops'}].' '.
- ''.&Apache::lonlocal::locallocaltime($startenroll).' '.
- ''.&Apache::lonlocal::locallocaltime($endenroll).' ';
+ ''.&Apache::lonlocal::locallocaltime($enrollstart).' '.
+ ''.&Apache::lonlocal::locallocaltime($enrollend).' ';
$section_values = ''.
&mt('Institutional section').' '.
''.&mt('LON-CAPA section').' '.&mt('LON-CAPA section').' ';
my $xlistinfo;
- if ($env{'form.crosslisttotal'}) {
- for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {
- if ($env{'form.crosslist_'.$i}) {
- $xlistinfo .= '';
- if (ref($code_order) eq 'ARRAY') {
- if (@{$code_order} > 0) {
- foreach my $item (@{$code_order}) {
- $xlistinfo .= $env{'form.crosslist_'.$i.'_'.$item};
- }
+ my $crosslisttotal = $env{'form.crosslisttotal'};
+ if (!$crosslisttotal) {
+ $crosslisttotal = 1;
+ }
+ for (my $i=0; $i<$crosslisttotal; $i++) {
+ if ($env{'form.crosslist_'.$i}) {
+ $xlistinfo .= ' ';
+ if (ref($code_order) eq 'ARRAY') {
+ if (@{$code_order} > 0) {
+ foreach my $item (@{$code_order}) {
+ $xlistinfo .= $env{'form.crosslist_'.$i.'_'.$item};
}
}
- $xlistinfo .= $env{'form.crosslist_'.$i.'_instsec'}.' ';
- if ($env{'form.crosslist_'.$i.'_lcsec'}) {
- $xlistinfo .= $env{'form.crosslist_'.$i.'_lcsec'};
- } else {
- $xlistinfo .= &mt('None');
- }
- $xlistinfo .= ' ';
+ if ($env{'form.crosslist_'.$i.'_lcsec'}) {
+ $xlistinfo .= $env{'form.crosslist_'.$i.'_lcsec'};
+ } else {
+ $xlistinfo .= &mt('None');
+ }
+ $xlistinfo .= ' ';
}
}
if ($xlistinfo eq '') {
$xlistinfo = ''.&mt('None').'
';
}
my %ctxt = &clone_text();
$inst_headers .= '
'.&mt('Clone From').' ';
- if (($env{'form.clonecourse'} =~ /^$match_name$/) &&
- ($env{'form.clonedomain'} =~ /^$match_domain$/)) {
- my %coursehash =
- &Apache::lonnet::courseiddump($env{'form.clonedomain'},'.',1,'.','.',
- $env{'form.clonecourse'},undef,undef,'.');
- my $cloneid = $env{'form.clonedomain'}.'_'.$env{'form.clonecourse'};
- if (ref($coursehash{$cloneid}) eq 'HASH') {
- $inst_headers .= '
'.$ctxt{'dsh'}.' ';
- my $clonedesc = $coursehash{$cloneid}{'description'};
- my $cloneinst = $coursehash{$cloneid}{'inst_code'};
-
- $inst_values .= '
'.$clonedesc.' ';
- if ($cloneinst ne '') {
- $inst_values .= &mt('([_1] in [_2])',$cloneinst,$env{'form.clonedomain'});
- } else {
- $inst_values .= &mt('(from [_1])',$env{'form.clonedomain'});
- }
- $inst_values .= ' ';
- if ($env{'form.datemode'} eq 'preserve') {
- $inst_values .= $ctxt{'pcd'};
- } elsif ($env{'form.datemode'} eq 'shift') {
- $inst_values .= &mt('Shift dates by [_1] days',$env{'form.dateshift'});
- } else {
- $inst_values .= $ctxt{'ncd'};
- }
- $inst_values .= ' ';
- } else {
- $inst_values .= '
'.&mt('Unknown').' ';
- }
+ if (($env{'form.cloning'}) &&
+ ($env{'form.clonecrs'} =~ /^$match_name$/) &&
+ ($env{'form.clonedom'} =~ /^$match_domain$/)) {
+ my $canclone = &Apache::loncoursequeueadmin::can_clone_course($uname,
+ $udom,$env{'form.clonecrs'},$env{'form.clonedom'},
+ $env{'form.crstype'});
+ if ($canclone) {
+ my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'},
+ $env{'form.clonecrs'},('description','internal.coursecode'));
+ if (keys(%courseenv) > 0) {
+ $inst_headers .= '
'.$ctxt{'dsh'}.' ';
+ $inst_values .= '
'.$courseenv{'description'}.' ';
+ my $cloneinst = $courseenv{'internal.coursecode'};
+ if ($cloneinst ne '') {
+ $inst_values .= $cloneinst.' '.&mt('in').' '.$env{'form.clonedom'};
+ } else {
+ $inst_values .= &mt('from').' '.$env{'form.clonedom'};
+ }
+ $inst_values .= ' ';
+ if ($env{'form.datemode'} eq 'preserve') {
+ $inst_values .= $ctxt{'prd'};
+ } elsif ($env{'form.datemode'} eq 'shift') {
+ $inst_values .= &mt('Shift dates by [_1] days',$env{'form.dateshift'});
+ } else {
+ $inst_values .= $ctxt{'ncd'};
+ }
+ $inst_values .= ' ';
+ } else {
+ $inst_values .= '
'.&mt('Unknown').' ';
+ }
+ } else {
+ $inst_values .= '
'.&mt('Not permitted'),' ';
+ }
} else {
$inst_values .= '
'.&mt('None').' ';
}
$enroll_headers .= '
'.&mt('Access Starts').' '.
'
'.&mt('Access Ends').' ';
- my ($startaccess,$endaccess) = &dates_from_form('startaccess','endaccess');
- $enroll_values .= '
'.&Apache::lonlocal::locallocaltime($startaccess).' ';
- if ($endaccess == 0) {
+ my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend');
+ $enroll_values .= '
'.&Apache::lonlocal::locallocaltime($accessstart).' ';
+ if ($accessend == 0) {
$enroll_values .= '
'.&mt('No end date').' ';
} else {
- $enroll_values .= '
'.&Apache::lonlocal::locallocaltime($endaccess).' ';
+ $enroll_values .= '
'.&Apache::lonlocal::locallocaltime($accessend).' ';
}
my $container = 'Course';
+ my $ccrole = 'cc';
if ($env{'form.crstype'} eq 'community') {
$container = 'Community';
+ $ccrole = 'co';
}
$personnel_headers = '
'.&mt('Name').' '.&mt('Username:Domain').
' '.&mt('Role').' '.&mt('LON-CAPA Sections').
' ';
+
$personnel_values .= '
'.$ownername.' '.$owner.' '.
- ''.&Apache::lonnet::plaintext('cc',$container).' '.
+ ''.&Apache::lonnet::plaintext($ccrole,$container).' '.
''.&mt('None').' ';
for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
if ($env{'form.person_'.$i.'_uname'} ne '') {
+ if (ref($disallowed) eq 'ARRAY') {
+ next if (grep(/^$i$/,@{$disallowed}));
+ }
+ my @officialsecs = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec');
+ my @allsecs;
+ foreach my $sec (@officialsecs) {
+ next unless ($sec =~ /\w/);
+ next if ($sec =~ /\W/);
+ next if ($sec eq 'none');
+ push(@allsecs,$sec);
+ }
+ my $newsec = $env{'form.person_'.$i.'_newsec'};
+ $newsec =~ s/^\s+//;
+ $newsec =~s/\s+$//;
+ my @newsecs = split(/\s*[\s,;:]\s*/,$newsec);
+ foreach my $sec (@newsecs) {
+ next unless ($sec =~ /\w/);
+ next if ($sec =~ /\W/);
+ next if ($sec eq 'none');
+ if ($sec ne '') {
+ unless (grep(/^\Q$sec\E$/,@allsecs)) {
+ push(@allsecs,$sec);
+ }
+ }
+ }
+ my $showsec;
+ if (@allsecs) {
+ $showsec = join(', ',@allsecs);
+ }
+ if ($showsec eq '') {
+ $showsec = &mt('None');
+ }
+ if ($env{'form.person_'.$i.'_role'} eq $ccrole) {
+ $showsec = &mt('None');
+ }
+ my $role = $env{'form.person_'.$i.'_role'};
$personnel_values .=
- '
'.$env{'form.person_'.$i.'_first'}.' '.
- $env{'form.person_'.$i.'_last'}.' '.
+ ''.$env{'form.person_'.$i.'_firstname'}.' '.
+ $env{'form.person_'.$i.'_lastname'}.' '.
''.$env{'form.person_'.$i.'_uname'}.':'.
$env{'form.person_'.$i.'_dom'}.' '.
- ''.&Apache::lonnet::plaintext($env{'form.person_'.$i.'_role'},
- $container).' '.
- ''.$env{'form.person_'.$i.'_sections'}.' ';
+ '
'.&Apache::lonnet::plaintext($role,$container).' '.
+ '
'.$showsec.' ';
}
}
- my $output = '
'.&mt('Review the details of the course request before submission.').'
'.
- '
'.&Apache::lonhtmlcommon::start_pick_box().
+ my $output;
+ if (ref($disallowed) eq 'ARRAY') {
+ if (@{$disallowed} > 0) {
+ if (ref($disallowmsg) eq 'HASH') {
+ $output = '
'.
+ &mt('Not all requested personnel could be included.').'
';
+ foreach my $item (@{$disallowed}) {
+ $output .= ''.$disallowmsg->{$item}.' ';
+ }
+ $output .= ' ';
+ }
+ }
+ }
+ $output .= '
'.&Apache::lonhtmlcommon::start_pick_box().
&Apache::lonhtmlcommon::row_title(&mt('Owner')).
'
'.
''.&mt('Name').' '.
@@ -1105,7 +2741,7 @@ sub print_review {
''.$inst_headers.' '."\n".
''.$inst_values.'
'."\n".
&Apache::lonhtmlcommon::row_closure().
- &Apache::lonhtmlcommon::row_title(&mt('Enrollment')).
+ &Apache::lonhtmlcommon::row_title($enrollrow_title).
''.$enroll_headers.' '."\n".
''.$enroll_values.'
'."\n".
&Apache::lonhtmlcommon::row_closure();
@@ -1119,7 +2755,7 @@ sub print_review {
''.$personnel_headers.' '."\n".
$personnel_values.'
'."\n".
&Apache::lonhtmlcommon::row_closure(1).
- &Apache::lonhtmlcommon::end_pick_box();
+ &Apache::lonhtmlcommon::end_pick_box().'';
return $output;
}
@@ -1127,7 +2763,7 @@ sub dates_from_form {
my ($startname,$endname) = @_;
my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname);
my $enddate = &Apache::lonhtmlcommon::get_date_from_form($endname);
- if ($endname eq 'endaccess') {
+ if ($endname eq 'accessend') {
if (exists($env{'form.no_end_date'}) ) {
$enddate = 0;
}
@@ -1136,13 +2772,83 @@ sub dates_from_form {
}
sub courseinfo_form {
- my ($dom,$formname,$crstype) = @_;
- my $output = ''.&Apache::lonhtmlcommon::start_pick_box().
- &Apache::lonhtmlcommon::row_title('Course Description').
- '
'.
- ''.&clone_form($dom,$formname,$crstype).'
'."\n";
+ my ($dom,$formname,$crstype,$next,$description) = @_;
+ my %lt = &Apache::lonlocal::texthash(
+ official => 'You must provide a (brief) course description.',
+ community => 'You must provide a (brief) community description.'
+ );
+ $lt{'unofficial'} = $lt{'official'};
+ my $js_validate = <<"ENDJS";
+
+
+ENDJS
+ my $title = &mt('Brief Course Description');
+ my $clonetitle = &mt('Clone content and settings from an existing course?');
+ if ($crstype eq 'community') {
+ $title = &mt('Brief Community Description');
+ $clonetitle = &mt('Clone content and settings from an existing community?');
+ }
+ my $output .= $js_validate."\n".&Apache::lonhtmlcommon::start_pick_box().
+ &Apache::lonhtmlcommon::row_headline().
+ ''.&Apache::loncommon::help_open_topic('Course_Request_Description').' '.$title.' '.
+ &Apache::lonhtmlcommon::row_closure(1).
+ &Apache::lonhtmlcommon::row_title(&mt('Description')).
+ ''.&Apache::loncommon::help_open_topic('Course_Request_Clone').' '.$clonetitle.
+ &Apache::lonhtmlcommon::row_closure(1).
+ &Apache::lonhtmlcommon::row_title(&mt('Clone?')).
+ ''.
+ ' '.
+ ' '.
+ &Apache::lonhtmlcommon::row_closure(1).
+ &Apache::lonhtmlcommon::row_headline().
+ ''.
+ &Apache::lonhtmlcommon::start_pick_box().
+ &clone_form($dom,$formname,$crstype).
+ &Apache::lonhtmlcommon::end_pick_box().'
'.
+ &Apache::lonhtmlcommon::end_pick_box()."\n";
return $output;
}
@@ -1152,17 +2858,16 @@ sub clone_form {
if ($crstype eq 'community') {
$type = 'Community';
}
- my $cloneform = &Apache::loncommon::select_dom_form($dom,'clonedomain').
- &Apache::loncommon::selectcourse_link($formname,'clonecourse','clonedomain','','','',$type);
my %lt = &clone_text();
my $output .=
- &Apache::lonhtmlcommon::start_pick_box().
+ &Apache::lonhtmlcommon::row_title($lt{'dmn'}).''.
+ &Apache::loncommon::select_dom_form($dom,'clonedom').' '.
+ &Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title($lt{'cid'}).''.
- ' '.&Apache::lonhtmlcommon::row_closure(1).''.
- &Apache::lonhtmlcommon::row_title($lt{'dmn'}).' '.
- $cloneform.''.&Apache::lonhtmlcommon::row_closure().
+ ''.
' '.
@@ -1171,12 +2876,11 @@ sub clone_form {
' '.
'';
if ($context eq 'crosslist') {
$output .= ''.&mt('Include?').'');
if ($prev) {
- $r->print('
-
');
}
sub print_request_outcome {
+ my ($dom,$codetitles,$code_order) = @_;
+ my ($output,$cnum,$now,$req_notifylist,$crstype,$enrollstart,$enrollend,
+ %sections,%crosslistings,%personnel,@baduname,@missingdom,%domconfig,);
+ my $sectotal = $env{'form.sectotal'};
+ my $crosslisttotal = 0;
+ $cnum = $env{'form.cnum'};
+ unless ($cnum =~ /^$match_courseid$/) {
+ $output = &mt('Invalid LON-CAPA course number for the new course')."\n";
+ return $output;
+ }
+
+ %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$dom);
+ if (ref($domconfig{'requestcourses'}) eq 'HASH') {
+ if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') {
+ $req_notifylist = $domconfig{'requestcourses'}{'notify'}{'approval'};
+ }
+ }
+ $now = time;
+ $crstype = $env{'form.crstype'};
+ my $ccrole = 'cc';
+ if ($crstype eq 'community') {
+ $ccrole = 'co';
+ }
+ my @instsections;
+ if ($crstype eq 'official') {
+ if (&Apache::lonnet::auto_run('',$dom)) {
+ ($enrollstart,$enrollend)=&dates_from_form('enrollstart','enrollend');
+ }
+ for (my $i=0; $i<$env{'form.sectotal'}; $i++) {
+ if ($env{'form.sec_'.$i}) {
+ if ($env{'form.secnum_'.$i} ne '') {
+ my $sec = $env{'form.secnum_'.$i};
+ $sections{$i}{'inst'} = $sec;
+ if (($sec ne '') && (!grep(/^\Q$sec\E$/,@instsections))) {
+ push(@instsections,$sec);
+ }
+ $sections{$i}{'loncapa'} = $env{'form.loncapasec_'.$i};
+ $sections{$i}{'loncapa'} =~ s/\W//g;
+ if ($sections{$i}{'loncapa'} eq 'none') {
+ $sections{$i}{'loncapa'} = '';
+ }
+ }
+ }
+ }
+ for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {
+ if ($env{'form.crosslist_'.$i}) {
+ my $xlistinfo = '';
+ if (ref($code_order) eq 'ARRAY') {
+ if (@{$code_order} > 0) {
+ foreach my $item (@{$code_order}) {
+ $xlistinfo .= $env{'form.crosslist_'.$i.'_'.$item};
+ }
+ }
+ }
+ $crosslistings{$i}{'instcode'} = $xlistinfo;
+ if ($xlistinfo ne '') {
+ $crosslisttotal ++;
+ }
+ $crosslistings{$i}{'instsec'} = $env{'form.crosslist_'.$i.'_instsec'};
+ $crosslistings{$i}{'loncapa'} = $env{'form.crosslist_'.$i.'_lcsec'};
+ }
+ }
+ } else {
+ $enrollstart = '';
+ $enrollend = '';
+ }
+ my (%alerts,%rulematch,%inst_results,%curr_rules,%got_rules,%disallowmsg,%skipped);
+ for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
+ my $uname = $env{'form.person_'.$i.'_uname'};
+ my $udom = $env{'form.person_'.$i.'_dom'};
+ if (($uname =~ /^$match_username$/) && ($udom =~ /^$match_domain$/)) {
+ if (&Apache::lonnet::domain($udom) ne '') {
+ unless (ref($personnel{$uname.':'.$udom}) eq 'HASH') {
+ $personnel{$uname.':'.$udom} = {
+ firstname => $env{'form.person_'.$i.'_firstname'},
+ lastname => $env{'form.person_'.$i.'_lastname'},
+ emailaddr => $env{'form.person_'.$i.'_emailaddr'},
+ };
+ if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
+ my $usertype = &get_usertype($udom,$uname,\%curr_rules,\%got_rules);
+ if (&Apache::lonuserutils::can_create_user($udom,'requestcrs',$usertype)) {
+ my ($allowed,$msg,$authtype,$authparam) =
+ &check_newuser_rules($udom,$uname,\%alerts,\%rulematch,
+ \%inst_results,\%curr_rules,\%got_rules);
+ if ($allowed) {
+ my %domdefaults = &Apache::lonnet::get_domain_defaults($udom);
+ if ($usertype eq 'official') {
+ if ($authtype eq '') {
+ $authtype = $domdefaults{'auth_def'};
+ $authparam = $domdefaults{'auth_arg_def'};
+ } else {
+ if ($authtype eq 'loc') {
+ $authtype = 'localauth';
+ } elsif ($authtype eq 'int') {
+ $authtype = 'internal';
+ }
+ if ($authtype !~ /^(krb4|krb5|internal|localauth)$/) {
+ $authtype = $domdefaults{'auth_def'};
+ $authparam = $domdefaults{'auth_arg_def'};
+ }
+ }
+ } elsif ($usertype eq 'unofficial') {
+ if ($authtype eq '') {
+ $authtype = 'internal';
+ $authparam = '';
+ }
+ } else {
+ $authtype = $domdefaults{'auth_def'};
+ $authparam = $domdefaults{'auth_arg_def'};
+ }
+ if (($authtype eq '') ||
+ (($authtype =~/^krb(4|5)$/) && ($authparam eq '')) ||
+ ($authtype !~ /^(krb4|krb5|internal|localauth)$/)) {
+ $skipped{$uname.':'.$udom} = 1;
+ next;
+ } else {
+ $personnel{$uname.':'.$udom}{'authtype'} = $authtype;
+ $personnel{$uname.':'.$udom}{'autharg'} = $authparam;
+ }
+ } else {
+ $skipped{$uname.':'.$udom} = 1;
+ next;
+ }
+ } else {
+ $skipped{$uname.':'.$udom} = 1;
+ next;
+ }
+ }
+ }
+ my $role = $env{'form.person_'.$i.'_role'};
+ unless ($role eq '') {
+ if (ref($personnel{$uname.':'.$udom}{'roles'}) eq 'ARRAY') {
+ my @curr_roles = @{$personnel{$uname.':'.$udom}{'roles'}};
+ unless (grep(/^\Q$role\E$/,@curr_roles)) {
+ push(@{$personnel{$uname.':'.$udom}{'roles'}},$role);
+ }
+ } else {
+ @{$personnel{$uname.':'.$udom}{'roles'}} = ($role);
+ }
+ if ($role eq $ccrole) {
+ @{$personnel{$uname.':'.$udom}{$role}{'usec'}} = ();
+ } else {
+ my @currsec = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec');
+ my @allsecs;
+ foreach my $sec (@currsec) {
+ next unless ($sec =~ /\w/);
+ next if ($sec =~ /\W/);
+ next if ($sec eq 'none');
+ push(@allsecs,$sec);
+ }
+ my $newsec = $env{'form.person_'.$i.'_newsec'};
+ $newsec =~ s/^\s+//;
+ $newsec =~s/\s+$//;
+ my @newsecs = split(/[\s,;]+/,$newsec);
+ foreach my $sec (@newsecs) {
+ next if ($sec =~ /\W/);
+ next if ($sec eq 'none');
+ if ($sec ne '') {
+ unless (grep(/^\Q$sec\E$/,@allsecs)) {
+ push(@allsecs,$sec);
+ }
+ }
+ }
+ @{$personnel{$uname.':'.$udom}{$role}{'usec'}} = @allsecs;
+ }
+ }
+ } else {
+ push(@missingdom,$uname.':'.$udom);
+ }
+ } else {
+ push(@baduname,$uname.':'.$udom);
+ }
+ }
+ if (keys(%skipped)) {
+ foreach my $key (keys(%skipped)) {
+ delete($personnel{$key});
+ }
+ }
+ my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend');
+ my $autodrops = 0;
+ if ($env{'form.autodrops'}) {
+ $autodrops = $env{'form.autodrops'};
+ }
+ my $autoadds = 0;
+ if ($env{'form.autoadds'}) {
+ $autoadds = $env{'form.autoadds'};
+ }
+ my $instcode = '';
+ if (exists($env{'form.instcode'})) {
+ $instcode = $env{'form.instcode'};
+ }
+ my $clonecrs = '';
+ my $clonedom = '';
+ if (($env{'form.cloning'}) &&
+ ($env{'form.clonecrs'} =~ /^($match_courseid)$/) &&
+ ($env{'form.clonedom'} =~ /^($match_domain)$/)) {
+ my $clonehome = &Apache::lonnet::homeserver($env{'form.clonecrs'},
+ $env{'form.clonedom'});
+ if ($clonehome ne 'no_host') {
+ my $canclone =
+ &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},
+ $env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'},
+ $crstype);
+ if ($canclone) {
+ $clonecrs = $env{'form.clonecrs'};
+ $clonedom = $env{'form.clonedom'};
+ }
+ }
+ }
+ my $details = {
+ owner => $env{'user.name'},
+ domain => $env{'user.domain'},
+ cdom => $dom,
+ cnum => $cnum,
+ coursehome => $env{'form.chome'},
+ cdescr => $env{'form.cdescr'},
+ crstype => $env{'form.crstype'},
+ instcode => $instcode,
+ clonedom => $clonedom,
+ clonecrs => $clonecrs,
+ datemode => $env{'form.datemode'},
+ dateshift => $env{'form.dateshift'},
+ sectotal => $sectotal,
+ sections => \%sections,
+ crosslisttotal => $crosslisttotal,
+ crosslists => \%crosslistings,
+ autoadds => $autoadds,
+ autodrops => $autodrops,
+ enrollstart => $enrollstart,
+ enrollend => $enrollend,
+ accessstart => $accessstart,
+ accessend => $accessend,
+ personnel => \%personnel,
+ };
+ my (@inststatuses,$storeresult,$creationresult);
+ my $val =
+ &Apache::loncoursequeueadmin::get_processtype('course',$env{'user.name'},
+ $env{'user.domain'},$env{'user.adv'},
+ $dom,$crstype,\@inststatuses,\%domconfig);
+ if ($val eq '') {
+ if ($crstype eq 'official') {
+ $output = &mt('You are not permitted to request creation of official courses.');
+ } elsif ($crstype eq 'unofficial') {
+ $output = &mt('You are not permitted to request creation of unofficial courses.');
+ } elsif ($crstype eq 'community') {
+ $output = &mt('You are not permitted to request creation of communities');
+ } else {
+ $output = &mt('Unrecognized course type: [_1]',$crstype);
+ }
+ $storeresult = 'notpermitted';
+ } else {
+ my ($disposition,$message,$reqstatus);
+ my %reqhash = (
+ reqtime => $now,
+ crstype => $crstype,
+ details => $details,
+ );
+ my $requestkey = $dom.'_'.$cnum;
+ my $validationerror;
+ if ($val eq 'autolimit=') {
+ $disposition = 'process';
+ } elsif ($val =~ /^autolimit=(\d+)$/) {
+ my $limit = $1;
+ $disposition = &check_autolimit($env{'user.name'},$env{'user.domain'},
+ $dom,$crstype,$limit,\$message);
+ } elsif ($val eq 'validate') {
+ my ($inststatuslist,$validationchk,$validation);
+ if (@inststatuses > 0) {
+ $inststatuslist = join(',',@inststatuses);
+ }
+ my $instseclist;
+ if (@instsections > 0) {
+ $instseclist = join(',',@instsections);
+ }
+ $validationchk =
+ &Apache::lonnet::auto_courserequest_validation($dom,
+ $env{'user.name'}.':'.$env{'user.domain'},$crstype,
+ $inststatuslist,$instcode,$instseclist);
+ if ($validationchk =~ /:/) {
+ ($validation,$message) = split(':',$validationchk);
+ } else {
+ $validation = $validationchk;
+ }
+ if ($validation =~ /^error(.*)$/) {
+ $disposition = 'approval';
+ $validationerror = $1;
+ } else {
+ $disposition = $validation;
+ }
+ } else {
+ $disposition = 'approval';
+ }
+ $reqhash{'disposition'} = $disposition;
+ $reqstatus = $disposition;
+ my ($modified,$queued);
+ if ($disposition eq 'rejected') {
+ if ($crstype eq 'community') {
+ $output = &mt('Your community request was rejected.');
+ } else {
+ $output = &mt('Your course request was rejected.');
+ }
+ if ($message) {
+ $output .= ''.$message.'
';
+ }
+ $storeresult = 'rejected';
+ } elsif ($disposition eq 'process') {
+ my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
+ my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles);
+ my $type = 'Course';
+ if ($crstype eq 'community') {
+ $type = 'Community';
+ }
+ my @roles = &Apache::lonuserutils::roles_by_context('course','',$type);
+ foreach my $role (@roles) {
+ $longroles{$role}=&Apache::lonnet::plaintext($role,$type);
+ }
+ my $result = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,
+ 'autocreate',$details,\$logmsg,\$newusermsg,\$addresult,
+ \$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles);
+ if ($result eq 'created') {
+ $disposition = 'created';
+ $reqstatus = 'created';
+ my $role_result = &update_requestors_roles($dom,$cnum,$crstype,$details,
+ \%longroles);
+ if ($crstype eq 'community') {
+ $output = ''.&mt('Your community request has been processed and the community has been created.');
+ } else {
+ $output = '
'.&mt('Your course request has been processed and the course has been created.');
+ }
+ $output .= '
';
+ $creationresult = 'created';
+ } else {
+ $output = '';
+ if ($crstype eq 'community') {
+ $output .= &mt('An error occurred when processing your community request.');
+ } else {
+ $output .= &mt('An error occurred when processing your course request.');
+ }
+ $output .= ' ';
+ $creationresult = 'error';
+ }
+ } else {
+ my $requestid = $cnum.'_'.$disposition;
+ my $request = {
+ $requestid => {
+ timestamp => $now,
+ crstype => $crstype,
+ ownername => $env{'user.name'},
+ ownerdom => $env{'user.domain'},
+ description => $env{'form.cdescr'},
+ },
+ };
+ if ($crstype eq 'official') {
+ $request->{$requestid}->{'instcode'} = $instcode;
+ }
+ my $statuskey = 'status:'.$dom.':'.$cnum;
+ my %userreqhash = &Apache::lonnet::get('courserequests',[$statuskey],
+ $env{'user.domain'},$env{'user.name'});
+ if ($userreqhash{$statuskey} ne '') {
+ $modified = 1;
+ my $uname = &Apache::lonnet::get_domainconfiguser($dom);
+ my %queuehash = &Apache::lonnet::get('courserequestqueue',
+ [$cnum.'_approval',
+ $cnum.'_pending'],$dom,$uname);
+ if (($queuehash{$cnum.'_approval'} ne '') ||
+ ($queuehash{$cnum.'_pending'} ne '')) {
+ $queued = 1;
+ }
+ }
+ unless ($queued) {
+ my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request,
+ $dom);
+ if ($putresult eq 'ok') {
+ if ($crstype eq 'community') {
+ $output .= &mt('Your community request has been recorded.');
+ } else {
+ $output .= &mt('Your course request has been recorded.')
+ }
+ $output .= ''.$warning.' '.&mt('Your community request has been updated').'
';
+ } else {
+ $output .= ''.&mt('Your course request has been updated').'
';
+ }
+ $output .= ¬ification_information($disposition,$req_notifylist,$cnum,$now);
+ }
+ if ($validationerror ne '') {
+ $output .= ''.&mt('An error occurred validating your request with institutional data sources: [_1].',$validationerror).'
';
+ }
+ if ($updateresult) {
+ $output .= $updateresult;
+ }
+ }
+ if ($creationresult ne '') {
+ return ($creationresult,$output);
+ } else {
+ return ($storeresult,$output);
+ }
+}
+
+sub update_requestors_roles {
+ my ($dom,$cnum,$crstype,$details,$longroles) = @_;
+ my $now = time;
+ my ($active,$future,$numactive,$numfuture,$output);
+ my $owner = $env{'user.name'}.':'.$env{'user.domain'};
+ if (ref($details) eq 'HASH') {
+ if (ref($details->{'personnel'}) eq 'HASH') {
+ my $ccrole = 'cc';
+ if ($crstype eq 'community') {
+ $ccrole = 'co';
+ }
+ unless (ref($details->{'personnel'}{$owner}) eq 'HASH') {
+ $details->{'personnel'}{$owner} = {
+ 'roles' => [$ccrole],
+ $ccrole => { 'usec' => [] },
+ };
+ }
+ my @roles;
+ if (ref($details->{'personnel'}{$owner}{'roles'}) eq 'ARRAY') {
+ @roles = sort(@{$details->{'personnel'}{$owner}{'roles'}});
+ unless (grep(/^\Q$ccrole\E$/,@roles)) {
+ push(@roles,$ccrole);
+ }
+ } else {
+ @roles = ($ccrole);
+ }
+ foreach my $role (@roles) {
+ my $refresh=$env{'user.refresh.time'};
+ if ($refresh eq '') {
+ $refresh = $env{'user.login.time'};
+ }
+ if ($refresh eq '') {
+ $refresh = $now;
+ }
+ my $start = $refresh-1;
+ my $end = '0';
+ if ($role eq 'st') {
+ if ($details->{'accessstart'} ne '') {
+ $start = $details->{'accessstart'};
+ }
+ if ($details->{'accessend'} ne '') {
+ $end = $details->{'accessend'};
+ }
+ }
+ my @usecs;
+ if ($role ne $ccrole) {
+ if (ref($details->{'personnel'}{$owner}{$role}{'usec'}) eq 'ARRAY') {
+ @usecs = @{$details->{'personnel'}{$owner}{$role}{'usec'}};
+ }
+ }
+ if ($role eq 'st') {
+ if (@usecs > 1) {
+ my $firstsec = $usecs[0];
+ @usecs = ($firstsec);
+ }
+ }
+ if (@usecs == 0) {
+ push(@usecs,'');
+ }
+ foreach my $usec (@usecs) {
+ my (%userroles,%newrole,%newgroups,$spec,$area);
+ my $area = '/'.$dom.'/'.$cnum;
+ my $spec = $role.'.'.$area;
+ if ($usec ne '') {
+ $spec .= '/'.$usec;
+ $area .= '/'.$usec;
+ }
+ if ($role =~ /^cr\//) {
+ &Apache::lonnet::custom_roleprivs(\%newrole,$role,$dom,
+ $cnum,$spec,$area);
+ } else {
+ &Apache::lonnet::standard_roleprivs(\%newrole,$role,$dom,
+ $spec,$cnum,$area);
+ }
+ &Apache::lonnet::set_userprivs(\%userroles,\%newrole,
+ \%newgroups);
+ $userroles{'user.role.'.$spec} = $start.'.'.$end;
+ &Apache::lonnet::appenv(\%userroles,[$role,'cm']);
+ if (($end == 0) || ($end > $now)) {
+ my $showrole = $role;
+ if ($role =~ /^cr\//) {
+ $showrole = &Apache::lonnet::plaintext($role,$crstype);
+ } elsif (ref($longroles) eq 'HASH') {
+ if ($longroles->{$role} ne '') {
+ $showrole = $longroles->{$role};
+ }
+ }
+ if ($start <= $now) {
+ $active .= ''.$showrole;
+ if ($usec ne '') {
+ $active .= ' - '.&mt('section:').' '.$usec;
+ }
+ $active .= ' '.$showrole;
+ if ($usec ne '') {
+ $future .= ' - '.&mt('section:').' '.$usec;
+ }
+ $future .= ' ';
+ $numfuture ++;
+ }
+ }
+ }
+ }
+ }
+ }
+ if ($active) {
+ if ($numactive == 1) {
+ if ($crstype eq 'Community') {
+ $output = &mt('Use the following link to enter the community:');
+ } else {
+ $output = &mt('Use the following link to enter the course:');
+ }
+ } else {
+ if ($crstype eq 'Community') {
+ $output = &mt('Use the following links to your new roles to enter the community:');
+ } else {
+ $output = &mt('Use the following links to your new roles to enter the course:');
+ }
+ }
+ $output .= ' ',' ',&Apache::lonlocal::locallocaltime($details->{'accessstart'}))
+ } else {
+ $output .= &mt('The following course [quant,_1,role] will become available for selection from your [_2]roles page[_3], once the default student access start date - [_4] - has been reached:',$numfuture,'',' ',&Apache::lonlocal::locallocaltime($details->{'accessstart'}));
+ }
+ $output .= ' ';
+ }
+ return $output;
+}
+
+sub notification_information {
+ my ($disposition,$req_notifylist,$cnum,$now) = @_;
+ my %emails = &Apache::loncommon::getemails();
+ my $address;
+ if (($emails{'permanentemail'} ne '') || ($emails{'notification'} ne '')) {
+ $address = $emails{'permanentemail'};
+ if ($address eq '') {
+ $address = $emails{'notification'};
+ }
+ }
+ my $output;
+ if ($disposition eq 'approval') {
+ $output .= &mt('A message will be sent to your LON-CAPA account when a domain coordinator takes action on your request.').''.
+&mt('Your request has been placed in a queue pending administrative action.').'
';
+ } else {
+ $output .= ''.
+ &mt('Your request status is: [_1].',$disposition).
+ '
';
+ }
+ return $output;
+}
+
+sub check_autolimit {
+ my ($uname,$udom,$dom,$crstype,$limit,$message) = @_;
+ my %crsroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},
+ 'userroles',['active','future'],['cc','co'],[$dom]);
+ my ($types,$typename) = &Apache::loncommon::course_types();
+ my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname);
+ my $count = 0;
+ foreach my $key (keys(%requests)) {
+ my ($cdom,$cnum) = split('_',$key);
+ if (ref($requests{$key}) eq 'HASH') {
+ next if ($requests{$key}{'crstype'} ne $crstype);
+ if (($crstype eq 'community') &&
+ (exists($crsroles{$cnum.':'.$cdom.':co'}))) {
+ $count ++;
+ } elsif ((($crstype eq 'official') || ($crstype eq 'unofficial')) &&
+ (exists($crsroles{$cnum.':'.$cdom.':cc'}))) {
+ $count ++;
+ }
+ }
+ }
+ if ($count < $limit) {
+ return 'process';
+ } else {
+ if (ref($typename) eq 'HASH') {
+ if ($crstype eq 'community') {
+ $$message = &mt('Your request has not been processed because you have reached the limit for the number of communities.').
+ '