version 1.5, 2008/06/23 15:52:52
|
version 1.6, 2008/06/30 17:04:11
|
Line 280 sub process_self_enroll {
|
Line 280 sub process_self_enroll {
|
my %userhash = &Apache::lonnet::userenvironment($udom,$uname,@info); |
my %userhash = &Apache::lonnet::userenvironment($udom,$uname,@info); |
my ($enrolltypes,$longtypes,$alldoms) = |
my ($enrolltypes,$longtypes,$alldoms) = |
&get_selfenroll_filters($selfenroll_types,$udom); |
&get_selfenroll_filters($selfenroll_types,$udom); |
my @inststatuses = &unescape(split(/:/,$userhash{'inststatus'})); |
my @inststatuses; |
if (@inststatuses == 0) { |
if ($userhash{'inststatus'} eq '') { |
push(@inststatuses,'other'); |
push(@inststatuses,'other'); |
|
} else { |
|
my @esc_statuses = split(/:/,$userhash{'inststatus'}); |
|
@inststatuses = map { &unescape($_); } (@esc_statuses); |
} |
} |
my $selfenroll = 0; |
my $selfenroll = 0; |
if ($alldoms) { |
if ($alldoms) { |
Line 310 sub process_self_enroll {
|
Line 313 sub process_self_enroll {
|
my ($registered,$instsec,$message) = &check_registered($cdom,$cnum); |
my ($registered,$instsec,$message) = &check_registered($cdom,$cnum); |
$usec = $instsec; |
$usec = $instsec; |
if (!$registered) { |
if (!$registered) { |
$r->print(&mt('Self-enrollment is restricted to officially registered students.').'<br />'); |
$r->print(&mt('Self-enrollment is restricted to students officially registered for this course.').'<br />'); |
if ($message) { |
if ($message) { |
$r->print($message); |
$r->print($message); |
} else { |
} else { |
Line 321 sub process_self_enroll {
|
Line 324 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, 'manual',undef,$cdom.'_'.$cnum,$selfenroll); |
undef,undef,$usec,$selfenroll_access_end,$selfenroll_access_start, |
|
'manual',undef,$cdom.'_'.$cnum,$selfenroll); |
if ($enrollresult eq 'ok') { |
if ($enrollresult eq 'ok') { |
my (%userroles,%newrole,%newgroups); |
my (%userroles,%newrole,%newgroups); |
my $role = 'st'; |
my $role = 'st'; |