version 1.27.2.4, 2016/08/04 14:17:39
|
version 1.27.2.5, 2016/08/07 01:40:55
|
Line 439 sub process_self_enroll {
|
Line 439 sub process_self_enroll {
|
if ($selfenroll_section eq 'none') { |
if ($selfenroll_section eq 'none') { |
$usec = ''; |
$usec = ''; |
} |
} |
|
my $instcid; |
if ($selfenroll_registered) { |
if ($selfenroll_registered) { |
my ($registered,$instsec,$message) = &check_registered($cdom,$cnum); |
my ($registered,$instsec,$instcid,$message) = &check_registered($cdom,$cnum); |
$usec = $instsec; |
$usec = $instsec; |
if (!$registered) { |
if (!$registered) { |
$r->print('<h3>'.&mt('Self-enrollment unavailable').'</h3>'. |
$r->print('<h3>'.&mt('Self-enrollment unavailable').'</h3>'. |
Line 463 sub process_self_enroll {
|
Line 464 sub process_self_enroll {
|
my $enrollresult = |
my $enrollresult = |
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef, |
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef, |
undef,undef,$usec,$selfenroll_access_end,$selfenroll_access_start, |
undef,undef,$usec,$selfenroll_access_end,$selfenroll_access_start, |
'selfenroll',undef,$cdom.'_'.$cnum,$selfenroll); |
'selfenroll',undef,$cdom.'_'.$cnum,$selfenroll,'selfenroll','',$instcid); |
if ($enrollresult eq 'ok') { |
if ($enrollresult eq 'ok') { |
my (%userroles,%newrole,%newgroups); |
my (%userroles,%newrole,%newgroups); |
my $role = 'st'; |
my $role = 'st'; |
Line 786 sub print_selfenroll_types {
|
Line 787 sub print_selfenroll_types {
|
|
|
sub check_registered { |
sub check_registered { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum) = @_; |
my ($registered,$instsec,$message); |
my ($registered,$instsec,$instcid,$message); |
my %settings = &Apache::lonnet::get('environment',['internal.coursecode', |
my %settings = &Apache::lonnet::get('environment',['internal.coursecode', |
'internal.sectionnums', |
'internal.sectionnums', |
'internal.crosslistings'],$cdom,$cnum); |
'internal.crosslistings'],$cdom,$cnum); |
Line 806 sub check_registered {
|
Line 807 sub check_registered {
|
if (defined($enrolled{$env{'user.name'}})) { |
if (defined($enrolled{$env{'user.name'}})) { |
$registered = 1; |
$registered = 1; |
$instsec = $LC_code{$class}; |
$instsec = $LC_code{$class}; |
|
$instcid = $class; |
last; |
last; |
} |
} |
} |
} |
Line 818 sub check_registered {
|
Line 820 sub check_registered {
|
} else { |
} else { |
$message = &mt('As no institutional course sections are currently associated with this course, your registration status is undetermined.'); |
$message = &mt('As no institutional course sections are currently associated with this course, your registration status is undetermined.'); |
} |
} |
return ($registered,$instsec,$message); |
return ($registered,$instsec,$instcid,$message); |
} |
} |
|
|
1; |
1; |