version 1.455, 2021/09/25 20:35:26
|
version 1.458, 2021/12/24 19:42:37
|
Line 71 use Apache::longroup;
|
Line 71 use Apache::longroup;
|
use Apache::lonuserutils; |
use Apache::lonuserutils; |
use Apache::loncoursequeueadmin; |
use Apache::loncoursequeueadmin; |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
use HTML::Entities; |
|
|
my $loginscript; # piece of javascript used in two separate instances |
my $loginscript; # piece of javascript used in two separate instances |
my $authformnop; |
my $authformnop; |
Line 2441 sub modify_login_block {
|
Line 2442 sub modify_login_block {
|
} |
} |
|
|
sub personal_data_display { |
sub personal_data_display { |
my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray, |
my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray,$now, |
$now,$captchaform,$emailusername,$usertype,$usernameset,$condition,$excluded) = @_; |
$captchaform,$emailusername,$usertype,$usernameset,$condition,$excluded,$showsubmit) = @_; |
my ($output,%userenv,%canmodify,%canmodify_status); |
my ($output,%userenv,%canmodify,%canmodify_status); |
my @userinfo = ('firstname','middlename','lastname','generation', |
my @userinfo = ('firstname','middlename','lastname','generation', |
'permanentemail','id'); |
'permanentemail','id'); |
Line 2675 sub personal_data_display {
|
Line 2676 sub personal_data_display {
|
if ($captchaform) { |
if ($captchaform) { |
$output .= &Apache::lonhtmlcommon::row_title($lt{'valid'}.'*', |
$output .= &Apache::lonhtmlcommon::row_title($lt{'valid'}.'*', |
'LC_pick_box_title')."\n". |
'LC_pick_box_title')."\n". |
$captchaform."\n". |
$captchaform."\n".'<br /><br />'. |
&Apache::lonhtmlcommon::row_closure(1); |
&Apache::lonhtmlcommon::row_closure(1); |
$rowcount ++; |
$rowcount ++; |
} |
} |
my $submit_text = &mt('Create account'); |
if ($showsubmit) { |
$output .= &Apache::lonhtmlcommon::row_title()."\n". |
my $submit_text = &mt('Create account'); |
'<br /><input type="submit" name="createaccount" value="'. |
$output .= &Apache::lonhtmlcommon::row_title()."\n". |
$submit_text.'" />'. |
'<br /><input type="submit" name="createaccount" value="'. |
'<input type="hidden" name="type" value="'.$usertype.'" />'. |
$submit_text.'" />'; |
&Apache::lonhtmlcommon::row_closure(1); |
if ($usertype ne '') { |
|
$output .= '<input type="hidden" name="type" value="'. |
|
&HTML::Entities::encode($usertype,'\'<>"&').'" />'; |
|
} |
|
$output .= &Apache::lonhtmlcommon::row_closure(1); |
|
} |
} |
} |
$output .= &Apache::lonhtmlcommon::end_pick_box(); |
$output .= &Apache::lonhtmlcommon::end_pick_box(); |
if (wantarray) { |
if (wantarray) { |
Line 3086 sub update_user_data {
|
Line 3092 sub update_user_data {
|
'tools.aboutme','tools.blog','tools.webdav','tools.portfolio', |
'tools.aboutme','tools.blog','tools.webdav','tools.portfolio', |
'requestcourses.official','requestcourses.unofficial', |
'requestcourses.official','requestcourses.unofficial', |
'requestcourses.community','requestcourses.textbook', |
'requestcourses.community','requestcourses.textbook', |
|
'requestcourses.lti','requestauthor', |
'reqcrsotherdom.official','reqcrsotherdom.unofficial', |
'reqcrsotherdom.official','reqcrsotherdom.unofficial', |
'reqcrsotherdom.community','reqcrsotherdom.textbook', |
'reqcrsotherdom.community','reqcrsotherdom.textbook', |
'reqcrsotherdom.placement','requestauthor'], |
'reqcrsotherdom.placement'], |
$env{'form.ccdomain'},$env{'form.ccuname'}); |
$env{'form.ccdomain'},$env{'form.ccuname'}); |
my ($tmp) = keys(%userenv); |
my ($tmp) = keys(%userenv); |
if ($tmp =~ /^(con_lost|error)/i) { |
if ($tmp =~ /^(con_lost|error)/i) { |
Line 7458 sub role_display_filter {
|
Line 7465 sub role_display_filter {
|
&mt('Context:').'</b><br /><select name="chgcontext">'; |
&mt('Context:').'</b><br /><select name="chgcontext">'; |
my @posscontexts; |
my @posscontexts; |
if ($context eq 'course') { |
if ($context eq 'course') { |
@posscontexts = ('any','automated','updatenow','createcourse','course','domain','selfenroll','requestcourses'); |
@posscontexts = ('any','automated','updatenow','createcourse','course','domain','selfenroll','requestcourses','chgtype'); |
} elsif ($context eq 'domain') { |
} elsif ($context eq 'domain') { |
@posscontexts = ('any','domain','requestauthor','domconfig','server'); |
@posscontexts = ('any','domain','requestauthor','domconfig','server'); |
} else { |
} else { |
@posscontexts = ('any','author','domain'); |
@posscontexts = ('any','author','domain'); |
} |
} |
foreach my $chgtype (@posscontexts) { |
foreach my $chgtype (@posscontexts) { |
my $selstr = ''; |
my $selstr = ''; |
if ($curr->{'chgcontext'} eq $chgtype) { |
if ($curr->{'chgcontext'} eq $chgtype) { |
Line 7507 sub rolechg_contexts {
|
Line 7514 sub rolechg_contexts {
|
%lt = &Apache::lonlocal::texthash ( |
%lt = &Apache::lonlocal::texthash ( |
any => 'Any', |
any => 'Any', |
automated => 'Automated Enrollment', |
automated => 'Automated Enrollment', |
|
chgtype => 'Enrollment Type/Lock Change', |
updatenow => 'Roster Update', |
updatenow => 'Roster Update', |
createcourse => 'Course Creation', |
createcourse => 'Course Creation', |
course => 'User Management in course', |
course => 'User Management in course', |