version 1.329.2.3, 2010/08/09 23:39:43
|
version 1.329.2.5, 2010/10/11 15:38:17
|
Line 469 sub courserequest_display {
|
Line 469 sub courserequest_display {
|
# =================================================================== Phase one |
# =================================================================== Phase one |
|
|
sub print_username_entry_form { |
sub print_username_entry_form { |
my ($r,$context,$response,$srch,$forcenewuser,$crstype) = @_; |
my ($r,$context,$response,$srch,$forcenewuser,$crstype,$brcrum) = @_; |
my $defdom=$env{'request.role.domain'}; |
my $defdom=$env{'request.role.domain'}; |
my $formtoset = 'crtuser'; |
my $formtoset = 'crtuser'; |
|
my $is_custom = &Apache::loncommon::needs_gci_custom(); |
if (exists($env{'form.startrolename'})) { |
if (exists($env{'form.startrolename'})) { |
$formtoset = 'docustom'; |
$formtoset = 'docustom'; |
$env{'form.rolename'} = $env{'form.startrolename'}; |
$env{'form.rolename'} = $env{'form.startrolename'}; |
Line 493 sub print_username_entry_form {
|
Line 494 sub print_username_entry_form {
|
&& (&Apache::lonnet::allowed('mcr','/'))) { |
&& (&Apache::lonnet::allowed('mcr','/'))) { |
$jscript .= &customrole_javascript(); |
$jscript .= &customrole_javascript(); |
} |
} |
my %loaditems = ( |
|
'onload' => "javascript:setFormElements(document.$formtoset)", |
|
); |
|
my %breadcrumb_text = &singleuser_breadcrumb($crstype); |
|
my $title = 'User Management'; |
my $title = 'User Management'; |
if ($context eq 'course') { |
if ($context eq 'course') { |
if (&Apache::loncommon::needs_gci_custom()) { |
if ($is_custom) { |
$title = 'Enrollment and Student Activity'; |
$title = 'Enrollment and Student Activity'; |
} |
} |
} |
} |
my $start_page = |
|
&Apache::loncommon::start_page($title, |
|
$jscript,{'add_entries' => \%loaditems,}); |
|
if ($env{'form.action'} eq 'custom') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.crtuser)", |
|
text=>"Pick custom role",}); |
|
} else { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.crtuser)", |
|
text=>$breadcrumb_text{'search'}, |
|
faq=>282,bug=>'Instructor Interface',}); |
|
} |
|
my $helpitem = 'Course_Change_Privileges'; |
my $helpitem = 'Course_Change_Privileges'; |
if ($env{'form.action'} eq 'custom') { |
if ($env{'form.action'} eq 'custom') { |
$helpitem = 'Course_Editing_Custom_Roles'; |
$helpitem = 'Course_Editing_Custom_Roles'; |
} elsif ($env{'form.action'} eq 'singlestudent') { |
} elsif ($env{'form.action'} eq 'singlestudent') { |
$helpitem = 'Course_Add_Student'; |
$helpitem = 'Course_Add_Student'; |
} |
} |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs($title, |
my %breadcrumb_text = &singleuser_breadcrumb($crstype); |
$helpitem); |
if ($env{'form.action'} eq 'custom') { |
|
push(@{$brcrum}, |
|
{href=>"javascript:backPage(document.crtuser)", |
|
text=>"Pick custom role", |
|
help => $helpitem,} |
|
); |
|
} else { |
|
push (@{$brcrum}, |
|
{href => "javascript:backPage(document.crtuser)", |
|
text => $breadcrumb_text{'search'}, |
|
help => $helpitem, |
|
faq => 282, |
|
bug => 'Instructor Interface',} |
|
); |
|
} |
|
my %loaditems = ( |
|
'onload' => "javascript:setFormElements(document.$formtoset)", |
|
); |
|
my $args = {bread_crumbs => $brcrum, |
|
bread_crumbs_component => 'User Management', |
|
add_entries => \%loaditems,}; |
|
$r->print(&Apache::loncommon::start_page($title,$jscript,$args)); |
|
|
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'srst' => 'Search for a user and enroll as a student', |
'srst' => 'Search for a user and enroll as a student', |
'srme' => 'Search for a user and enroll as a member', |
'srme' => 'Search for a user and enroll as a member', |
Line 534 sub print_username_entry_form {
|
Line 540 sub print_username_entry_form {
|
'nr' => "role name", |
'nr' => "role name", |
'cre' => "Next", |
'cre' => "Next", |
); |
); |
$r->print($start_page."\n".$crumbs); |
|
if ($env{'form.action'} eq 'custom') { |
if ($env{'form.action'} eq 'custom') { |
if (&Apache::lonnet::allowed('mcr','/')) { |
if (&Apache::lonnet::allowed('mcr','/')) { |
my $newroletext = &mt('Define new custom role:'); |
my $newroletext = &mt('Define new custom role:'); |
Line 587 sub print_username_entry_form {
|
Line 592 sub print_username_entry_form {
|
} |
} |
$r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype)); |
$r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype)); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
|
} |
} |
|
|
sub customrole_javascript { |
sub customrole_javascript { |
Line 666 $userpicker
|
Line 670 $userpicker
|
ENDBLOCK |
ENDBLOCK |
if ($env{'form.phase'} eq '') { |
if ($env{'form.phase'} eq '') { |
my $defdom=$env{'request.role.domain'}; |
my $defdom=$env{'request.role.domain'}; |
my $domform = &Apache::loncommon::select_dom_form($defdom,'srchdomain'); |
my $domform = &Apache::loncommon::select_dom_form($defdom,'srchdomain','',1); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'enro' => 'Enroll one student', |
'enro' => 'Enroll one student', |
'enrm' => 'Enroll one member', |
'enrm' => 'Enroll one member', |
Line 715 $showresponse
|
Line 719 $showresponse
|
<table> |
<table> |
<tr> |
<tr> |
<td>$lt{'usr'}:</td> |
<td>$lt{'usr'}:</td> |
<td><input type="text" size="15" name="srchterm" /></td> |
<td><input type="text" size="25" name="srchterm" /></td> |
<td> $lt{'dom'}:</td><td>$domform</td> |
<td> $lt{'dom'}:</td><td>$domform</td> |
<td> $sellink </td> |
<td> $sellink </td> |
<td> <input name="userrole" type="submit" value="$buttontext" /></td> |
<td> <input name="userrole" type="submit" value="$buttontext" /></td> |
Line 757 END
|
Line 761 END
|
|
|
# =================================================================== Phase two |
# =================================================================== Phase two |
sub print_user_selection_page { |
sub print_user_selection_page { |
my ($r,$response,$srch,$srch_results,$srcharray,$context,$opener_elements,$crstype) = @_; |
my ($r,$response,$srch,$srch_results,$srcharray,$context,$opener_elements,$crstype,$brcrum) = @_; |
my @fields = ('username','domain','lastname','firstname','permanentemail'); |
my @fields = ('username','domain','lastname','firstname','permanentemail'); |
my $sortby = $env{'form.sortby'}; |
my $sortby = $env{'form.sortby'}; |
|
my $is_custom = &Apache::loncommon::needs_gci_custom(); |
|
|
if (!grep(/^\Q$sortby\E$/,@fields)) { |
if (!grep(/^\Q$sortby\E$/,@fields)) { |
$sortby = 'lastname'; |
$sortby = 'lastname'; |
Line 800 ENDSCRIPT
|
Line 805 ENDSCRIPT
|
} else { |
} else { |
my $title = 'User Management'; |
my $title = 'User Management'; |
if ($context eq 'course') { |
if ($context eq 'course') { |
if (&Apache::loncommon::needs_gci_custom()) { |
if ($is_custom) { |
$title = 'Enrollment and Student Activity'; |
$title = 'Enrollment and Student Activity'; |
} |
} |
} |
} |
$r->print(&Apache::loncommon::start_page($title,$jscript)); |
|
|
|
my %breadcrumb_text = &singleuser_breadcrumb($crstype); |
my %breadcrumb_text = &singleuser_breadcrumb($crstype); |
&Apache::lonhtmlcommon::add_breadcrumb |
my $helpitem; |
({href=>"javascript:backPage(document.usersrchform,'','')", |
if ($env{'form.action'} eq 'singleuser') { |
text=>$breadcrumb_text{'search'}, |
$helpitem = 'Course_Change_Privileges'; |
faq=>282,bug=>'Instructor Interface',}, |
} elsif ($env{'form.action'} eq 'singlestudent') { |
{href=>"javascript:backPage(document.usersrchform,'get_user_info','select')", |
$helpitem = 'Course_Add_Student'; |
text=>$breadcrumb_text{'userpicked'}, |
} |
faq=>282,bug=>'Instructor Interface',}); |
push (@{$brcrum}, |
|
{href => "javascript:backPage(document.usersrchform,'','')", |
|
text => $breadcrumb_text{'search'}, |
|
faq => 282, |
|
bug => 'Instructor Interface',}, |
|
{href => "javascript:backPage(document.usersrchform,'get_user_info','select')", |
|
text => $breadcrumb_text{'userpicked'}, |
|
faq => 282, |
|
bug => 'Instructor Interface', |
|
help => $helpitem} |
|
); |
|
$r->print(&Apache::loncommon::start_page($title,$jscript,{bread_crumbs => $brcrum})); |
if ($env{'form.action'} eq 'singleuser') { |
if ($env{'form.action'} eq 'singleuser') { |
$r->print(&Apache::lonhtmlcommon::breadcrumbs($title, |
|
'Course_Change_Privileges')); |
|
$r->print("<b>$lt{'usrch'}</b><br />"); |
$r->print("<b>$lt{'usrch'}</b><br />"); |
$r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context,undef,$crstype)); |
$r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context,undef,$crstype)); |
$r->print('<h3>'.$lt{'usel'}.'</h3>'); |
$r->print('<h3>'.$lt{'usel'}.'</h3>'); |
} elsif ($env{'form.action'} eq 'singlestudent') { |
} elsif ($env{'form.action'} eq 'singlestudent') { |
$r->print(&Apache::lonhtmlcommon::breadcrumbs($title, |
|
'Course_Add_Student')); |
|
$r->print($jscript."<b>"); |
$r->print($jscript."<b>"); |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$r->print($lt{'memsrch'}); |
$r->print($lt{'memsrch'}); |
Line 904 ENDSCRIPT
|
Line 914 ENDSCRIPT
|
} |
} |
|
|
sub print_user_query_page { |
sub print_user_query_page { |
my ($r,$caller) = @_; |
my ($r,$caller,$brcrum) = @_; |
# FIXME - this is for a network-wide name search (similar to catalog search) |
# FIXME - this is for a network-wide name search (similar to catalog search) |
# To use frames with similar behavior to catalog/portfolio search. |
# To use frames with similar behavior to catalog/portfolio search. |
# To be implemented. |
# To be implemented. |
Line 912 sub print_user_query_page {
|
Line 922 sub print_user_query_page {
|
} |
} |
|
|
sub print_user_modification_page { |
sub print_user_modification_page { |
my ($r,$ccuname,$ccdomain,$srch,$response,$context,$permission,$crstype) = @_; |
my ($r,$ccuname,$ccdomain,$srch,$response,$context,$permission,$crstype,$brcrum) = @_; |
if (($ccuname eq '') || ($ccdomain eq '')) { |
if (($ccuname eq '') || ($ccdomain eq '')) { |
my $usermsg = &mt('No username and/or domain provided.'); |
my $usermsg = &mt('No username and/or domain provided.'); |
$env{'form.phase'} = ''; |
$env{'form.phase'} = ''; |
&print_username_entry_form($r,$context,$usermsg,'','',$crstype); |
&print_username_entry_form($r,$context,$usermsg,'','',$crstype,$brcrum); |
return; |
return; |
} |
} |
my ($form,$formname); |
my ($form,$formname); |
Line 930 sub print_user_modification_page {
|
Line 940 sub print_user_modification_page {
|
my %abv_auth = &auth_abbrev(); |
my %abv_auth = &auth_abbrev(); |
my (%rulematch,%inst_results,$newuser,%alerts,%curr_rules,%got_rules); |
my (%rulematch,%inst_results,$newuser,%alerts,%curr_rules,%got_rules); |
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
|
my $is_custom = &Apache::loncommon::needs_gci_custom(); |
|
if ($is_custom) { |
|
if ($uhome eq 'no_host') { |
|
my $lc_ccuname = lc($ccuname); |
|
if ($lc_ccuname ne $ccuname) { |
|
$uhome = &Apache::lonnet::homeserver($lc_ccuname,$ccdomain); |
|
$ccuname = $lc_ccuname; |
|
} |
|
} |
|
} |
if ($uhome eq 'no_host') { |
if ($uhome eq 'no_host') { |
my $usertype; |
|
my ($rules,$ruleorder) = |
my ($rules,$ruleorder) = |
&Apache::lonnet::inst_userrules($ccdomain,'username'); |
&Apache::lonnet::inst_userrules($ccdomain,'username'); |
$usertype = |
my $usertype = |
&Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules); |
&Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules); |
my $cancreate = |
my $cancreate = |
&Apache::lonuserutils::can_create_user($ccdomain,$context, |
&Apache::lonuserutils::can_create_user($ccdomain,$context, |
$usertype); |
$usertype); |
Line 945 sub print_user_modification_page {
|
Line 964 sub print_user_modification_page {
|
official => 'institutional', |
official => 'institutional', |
unofficial => 'non-institutional', |
unofficial => 'non-institutional', |
); |
); |
|
if ($ccdomain eq 'gci') { |
|
$usertypetext{'unofficial'} = 'institutional', |
|
} |
my $response; |
my $response; |
if ($env{'form.origform'} eq 'crtusername') { |
if ($env{'form.origform'} eq 'crtusername') { |
$response = '<span class="LC_warning">'.&mt('No match was found for the username ([_1]) in LON-CAPA domain: [_2]',$ccuname,$ccdomain). |
if ($is_custom) { |
'</span><br />'; |
$response = '<span class="LC_warning">'.&mt('Invalid format for username for new user: [_1]','<b>'.$ccuname.'</b>'). |
|
'</span><br />'; |
|
} else { |
|
$response = '<span class="LC_warning">'.&mt('No match was found for the username ([_1]) in LON-CAPA domain: [_2]',$ccuname,$ccdomain).'</span><br />'; |
|
} |
} |
} |
$response .= '<p class="LC_warning">' |
$response .= '<p class="LC_warning">' |
.&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.") |
.&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.") |
.' ' |
.'<br />'; |
.&mt('Please contact the [_1]helpdesk[_2] for assistance.' |
if ($ccdomain eq 'gcitest') { |
,'<a href="'.$helplink.'">','</a>') |
$response .= &mt('Enter a valid e-mail address as the username for the new user.').' '.&mt('Please contact the [_1]helpdesk[_2] for assistance.' |
.'</p><br />'; |
,'<a href="'.$helplink.'">','</a>') |
|
.'</p><br />'; |
|
} |
$env{'form.phase'} = ''; |
$env{'form.phase'} = ''; |
&print_username_entry_form($r,$context,$response,undef,undef,$crstype); |
&print_username_entry_form($r,$context,$response,undef,undef,$crstype,$brcrum); |
return; |
return; |
} |
} |
$newuser = 1; |
$newuser = 1; |
Line 981 sub print_user_modification_page {
|
Line 1009 sub print_user_modification_page {
|
'username'); |
'username'); |
} |
} |
$env{'form.phase'} = ''; |
$env{'form.phase'} = ''; |
&print_username_entry_form($r,$context,$userchkmsg,undef,undef,$crstype); |
&print_username_entry_form($r,$context,$userchkmsg,undef,undef,$crstype,$brcrum); |
return; |
return; |
} |
} |
} |
} |
Line 1002 sub print_user_modification_page {
|
Line 1030 sub print_user_modification_page {
|
|
|
my $js = &validation_javascript($context,$ccdomain,$pjump_def, |
my $js = &validation_javascript($context,$ccdomain,$pjump_def, |
$groupslist,$newuser,$formname,\%loaditem); |
$groupslist,$newuser,$formname,\%loaditem); |
my $args = {'add_entries' => \%loaditem}; |
|
if ($env{'form.popup'}) { |
|
$args->{'no_nav_bar'} = 1; |
|
} |
|
my $title = 'User Management'; |
my $title = 'User Management'; |
if ($context eq 'course') { |
if ($context eq 'course') { |
if (&Apache::loncommon::needs_gci_custom()) { |
if ($is_custom) { |
$title = 'Enrollment and Student Activity'; |
$title = 'Enrollment and Student Activity'; |
} |
} |
} |
} |
my $start_page = |
|
&Apache::loncommon::start_page($title,$js,$args); |
|
my %breadcrumb_text = &singleuser_breadcrumb($crstype); |
my %breadcrumb_text = &singleuser_breadcrumb($crstype); |
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage($form)", |
|
text=>$breadcrumb_text{'search'}, |
|
faq=>282,bug=>'Instructor Interface',}); |
|
|
|
if ($env{'form.phase'} eq 'userpicked') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage($form,'get_user_info','select')", |
|
text=>$breadcrumb_text{'userpicked'}, |
|
faq=>282,bug=>'Instructor Interface',}); |
|
} |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage($form,'$env{'form.phase'}','modify')", |
|
text=>$breadcrumb_text{'modify'}, |
|
faq=>282,bug=>'Instructor Interface',}); |
|
my $helpitem = 'Course_Change_Privileges'; |
my $helpitem = 'Course_Change_Privileges'; |
if ($env{'form.action'} eq 'singlestudent') { |
if ($env{'form.action'} eq 'singlestudent') { |
$helpitem = 'Course_Add_Student'; |
$helpitem = 'Course_Add_Student'; |
} |
} |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs($title, |
push (@{$brcrum}, |
$helpitem); |
{href => "javascript:backPage($form)", |
|
text => $breadcrumb_text{'search'}, |
|
faq => 282, |
|
bug => 'Instructor Interface',}); |
|
if ($env{'form.phase'} eq 'userpicked') { |
|
push(@{$brcrum}, |
|
{href => "javascript:backPage($form,'get_user_info','select')", |
|
text => $breadcrumb_text{'userpicked'}, |
|
faq => 282, |
|
bug => 'Instructor Interface',}); |
|
} |
|
push(@{$brcrum}, |
|
{href => "javascript:backPage($form,'$env{'form.phase'}','modify')", |
|
text => $breadcrumb_text{'modify'}, |
|
faq => 282, |
|
bug => 'Instructor Interface', |
|
help => $helpitem}); |
|
my $args = {'add_entries' => \%loaditem, |
|
'bread_crumbs' => $brcrum, |
|
'bread_crumbs_component' => 'User Management'}; |
|
if ($env{'form.popup'}) { |
|
$args->{'no_nav_bar'} = 1; |
|
} |
|
my $start_page = |
|
&Apache::loncommon::start_page($title,$js,$args); |
|
|
my $forminfo =<<"ENDFORMINFO"; |
my $forminfo =<<"ENDFORMINFO"; |
<form action="/adm/createuser" method="post" name="$formname"> |
<form action="/adm/createuser" method="post" name="$formname"> |
Line 1084 ENDFORMINFO
|
Line 1115 ENDFORMINFO
|
); |
); |
$r->print(<<ENDTITLE); |
$r->print(<<ENDTITLE); |
$start_page |
$start_page |
$crumbs |
|
$response |
$response |
$forminfo |
$forminfo |
<script type="text/javascript" language="Javascript"> |
<script type="text/javascript" language="Javascript"> |
Line 1198 ENDAUTH
|
Line 1228 ENDAUTH
|
); |
); |
$r->print(<<ENDCHANGEUSER); |
$r->print(<<ENDCHANGEUSER); |
$start_page |
$start_page |
$crumbs |
|
$forminfo |
$forminfo |
<h2> |
<h2> |
ENDCHANGEUSER |
ENDCHANGEUSER |
Line 1344 ENDNOTOOLSPRIV
|
Line 1373 ENDNOTOOLSPRIV
|
} |
} |
$r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain'])); |
$r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain'])); |
$r->print('<input type="hidden" name="currstate" value="" />'); |
$r->print('<input type="hidden" name="currstate" value="" />'); |
$r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />'); |
$r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" /></form>'); |
$r->print("</form>".&Apache::loncommon::end_page()); |
|
return; |
return; |
} |
} |
|
|
Line 2169 sub get_inststatuses {
|
Line 2197 sub get_inststatuses {
|
|
|
# ================================================================= Phase Three |
# ================================================================= Phase Three |
sub update_user_data { |
sub update_user_data { |
my ($r,$context,$crstype) = @_; |
my ($r,$context,$crstype,$brcrum) = @_; |
|
my $is_custom = &Apache::loncommon::needs_gci_custom(); |
my $uhome=&Apache::lonnet::homeserver($env{'form.ccuname'}, |
my $uhome=&Apache::lonnet::homeserver($env{'form.ccuname'}, |
$env{'form.ccdomain'}); |
$env{'form.ccdomain'}); |
# Error messages |
# Error messages |
Line 2194 sub update_user_data {
|
Line 2223 sub update_user_data {
|
'// ]]>'."\n". |
'// ]]>'."\n". |
'</script>'."\n"; |
'</script>'."\n"; |
my %breadcrumb_text = &singleuser_breadcrumb($crstype); |
my %breadcrumb_text = &singleuser_breadcrumb($crstype); |
my $args; |
|
if ($env{'form.popup'}) { |
|
$args->{'no_nav_bar'} = 1; |
|
} else { |
|
$args = undef; |
|
} |
|
$r->print(&Apache::loncommon::start_page($title,$jscript,$args)); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.userupdate)", |
|
text=>$breadcrumb_text{'search'}, |
|
faq=>282,bug=>'Instructor Interface',}); |
|
if ($env{'form.prevphase'} eq 'userpicked') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.userupdate,'get_user_info','select')", |
|
text=>$breadcrumb_text{'userpicked'}, |
|
faq=>282,bug=>'Instructor Interface',}); |
|
} |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.userupdate,'$env{'form.prevphase'}','modify')", |
|
text=>$breadcrumb_text{'modify'}, |
|
faq=>282,bug=>'Instructor Interface',}, |
|
{href=>"/adm/createuser", |
|
text=>"Result", |
|
faq=>282,bug=>'Instructor Interface',}); |
|
my $helpitem = 'Course_Change_Privileges'; |
my $helpitem = 'Course_Change_Privileges'; |
if ($env{'form.action'} eq 'singlestudent') { |
if ($env{'form.action'} eq 'singlestudent') { |
$helpitem = 'Course_Add_Student'; |
$helpitem = 'Course_Add_Student'; |
} |
} |
my $title = 'User Management'; |
my $bread_crumbs_component = 'User Management'; |
if ($context eq 'course') { |
if ($context eq 'course') { |
if (&Apache::loncommon::needs_gci_custom()) { |
if ($is_custom) { |
$title = 'Enrollment and Student Activity'; |
$bread_crumbs_component = 'Enrollment and Student Activity'; |
} |
} |
} |
} |
$r->print(&Apache::lonhtmlcommon::breadcrumbs($title, |
push(@{$brcrum}, |
$helpitem)); |
{href => "javascript:backPage(document.userupdate,'$env{'form.prevphase'}','modify')", |
|
text => $breadcrumb_text{'modify'}, |
|
faq => 282, |
|
bug => 'Instructor Interface',}, |
|
{href => "/adm/createuser", |
|
text => "Result", |
|
faq => 282, |
|
bug => 'Instructor Interface', |
|
help => $helpitem}); |
|
my $args = {bread_crumbs => $brcrum, |
|
bread_crumbs_component => $bread_crumbs_component}; |
|
if ($env{'form.popup'}) { |
|
$args->{'no_nav_bar'} = 1; |
|
} |
|
$r->print(&Apache::loncommon::start_page($title,$jscript,$args)); |
|
|
$r->print(&update_result_form($uhome)); |
$r->print(&update_result_form($uhome)); |
# Check Inputs |
# Check Inputs |
if (! $env{'form.ccuname'} ) { |
if (! $env{'form.ccuname'} ) { |
Line 2719 sub update_user_data {
|
Line 2739 sub update_user_data {
|
$changeHash{'tools.'.$key}; |
$changeHash{'tools.'.$key}; |
} else { |
} else { |
$newenvhash{'environment.availabletools.'.$key} = |
$newenvhash{'environment.availabletools.'.$key} = |
&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'}, $key,'reload','tools'); |
&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'}, |
|
$key,'reload','tools'); |
} |
} |
} |
} |
} |
} |
Line 3023 END
|
Line 3044 END
|
.&mt('Create/Modify Another User').'</a></p>'); |
.&mt('Create/Modify Another User').'</a></p>'); |
} |
} |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
|
} |
} |
|
|
sub tool_changes { |
sub tool_changes { |
Line 3633 sub build_roles {
|
Line 3653 sub build_roles {
|
# ========================================================== Custom Role Editor |
# ========================================================== Custom Role Editor |
|
|
sub custom_role_editor { |
sub custom_role_editor { |
my ($r) = @_; |
my ($r,$brcrum) = @_; |
my $action = $env{'form.customroleaction'}; |
my $action = $env{'form.customroleaction'}; |
my $rolename; |
my $rolename; |
if ($action eq 'new') { |
if ($action eq 'new') { |
Line 3642 sub custom_role_editor {
|
Line 3662 sub custom_role_editor {
|
$rolename=$env{'form.rolename'}; |
$rolename=$env{'form.rolename'}; |
} |
} |
|
|
$rolename=~s/[^A-Za-z0-9]//gs; |
|
if (!$rolename || $env{'form.phase'} eq 'pickrole') { |
|
&print_username_entry_form($r); |
|
return; |
|
} |
|
my ($crstype,$context); |
my ($crstype,$context); |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$crstype = &Apache::loncommon::course_type(); |
$crstype = &Apache::loncommon::course_type(); |
Line 3655 sub custom_role_editor {
|
Line 3670 sub custom_role_editor {
|
$context = 'domain'; |
$context = 'domain'; |
$crstype = $env{'form.templatecrstype'}; |
$crstype = $env{'form.templatecrstype'}; |
} |
} |
|
|
|
$rolename=~s/[^A-Za-z0-9]//gs; |
|
if (!$rolename || $env{'form.phase'} eq 'pickrole') { |
|
&print_username_entry_form($r,undef,undef,undef,undef,$crstype,$brcrum); |
|
return; |
|
} |
|
my $is_custom = &Apache::loncommon::needs_gci_custom(); |
my $title = 'User Management'; |
my $title = 'User Management'; |
if ($context eq 'course') { |
if ($context eq 'course') { |
if (&Apache::loncommon::needs_gci_custom()) { |
if ($is_custom) { |
$title = 'Enrollment and Student Activity'; |
$title = 'Enrollment and Student Activity'; |
} |
} |
} |
} |
Line 3768 sub custom_role_editor {
|
Line 3790 sub custom_role_editor {
|
$head_script .= "\n".$jsback."\n" |
$head_script .= "\n".$jsback."\n" |
.'// ]]>'."\n" |
.'// ]]>'."\n" |
.'</script>'."\n"; |
.'</script>'."\n"; |
$r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script)); |
push (@{$brcrum}, |
&Apache::lonhtmlcommon::add_breadcrumb |
{href => "javascript:backPage(document.form1,'pickrole','')", |
({href=>"javascript:backPage(document.form1,'pickrole','')", |
text => "Pick custom role", |
text=>"Pick custom role", |
faq => 282,bug=>'Instructor Interface',}, |
faq=>282,bug=>'Instructor Interface',}, |
{href => "javascript:backPage(document.form1,'','')", |
{href=>"javascript:backPage(document.form1,'','')", |
text => "Edit custom role", |
text=>"Edit custom role", |
faq => 282, |
faq=>282,bug=>'Instructor Interface',}); |
bug => 'Instructor Interface', |
$r->print(&Apache::lonhtmlcommon::breadcrumbs($title, |
help => 'Course_Editing_Custom_Roles'} |
'Course_Editing_Custom_Roles')); |
); |
|
my $args = { bread_crumbs => $brcrum, |
$r->print($body_top); |
bread_crumbs_component => 'User Management'}; |
|
|
|
$r->print(&Apache::loncommon::start_page('Custom Role Editor', |
|
$head_script,$args). |
|
$body_top); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'prv' => "Privilege", |
'prv' => "Privilege", |
'crl' => "Course Level", |
'crl' => "Course Level", |
'dml' => "Domain Level", |
'dml' => "Domain Level", |
'ssl' => "System Level"); |
'ssl' => "System Level"); |
|
|
|
|
$r->print('<div class="LC_left_float">' |
$r->print('<div class="LC_left_float">' |
.'<form action=""><fieldset>' |
.'<form action=""><fieldset>' |
.'<legend>'.&mt('Select a Template').'</legend>' |
.'<legend>'.&mt('Select a Template').'</legend>' |
Line 3837 ENDCCF
|
Line 3862 ENDCCF
|
'<input type="hidden" name="startrolename" value="'.$env{'form.rolename'}. |
'<input type="hidden" name="startrolename" value="'.$env{'form.rolename'}. |
'" />'."\n".'<input type="hidden" name="currstate" value="" />'."\n". |
'" />'."\n".'<input type="hidden" name="currstate" value="" />'."\n". |
'<input type="reset" value="'.&mt("Reset").'" />'."\n". |
'<input type="reset" value="'.&mt("Reset").'" />'."\n". |
'<input type="submit" value="'.&mt('Save').'" /></form>'. |
'<input type="submit" value="'.&mt('Save').'" /></form>'); |
&Apache::loncommon::end_page()); |
|
} |
} |
# -------------------------------------------------------- |
# -------------------------------------------------------- |
sub make_script_template { |
sub make_script_template { |
Line 3916 sub make_button_code {
|
Line 3940 sub make_button_code {
|
} |
} |
# ---------------------------------------------------------- Call to definerole |
# ---------------------------------------------------------- Call to definerole |
sub set_custom_role { |
sub set_custom_role { |
my ($r,$context) = @_; |
my ($r,$context,$brcrum) = @_; |
my $rolename=$env{'form.rolename'}; |
my $rolename=$env{'form.rolename'}; |
$rolename=~s/[^A-Za-z0-9]//gs; |
$rolename=~s/[^A-Za-z0-9]//gs; |
if (!$rolename) { |
if (!$rolename) { |
&custom_role_editor($r); |
&custom_role_editor($r,$brcrum); |
return; |
return; |
} |
} |
my ($jsback,$elements) = &crumb_utilities(); |
my ($jsback,$elements) = &crumb_utilities(); |
Line 3929 sub set_custom_role {
|
Line 3953 sub set_custom_role {
|
.$jsback."\n" |
.$jsback."\n" |
.'// ]]>'."\n" |
.'// ]]>'."\n" |
.'</script>'."\n"; |
.'</script>'."\n"; |
my $title = 'User Management'; |
my $bread_crumbs_component = 'User Management'; |
|
my $is_custom = &Apache::loncommon::needs_gci_custom(); |
if ($context eq 'course') { |
if ($context eq 'course') { |
if (&Apache::loncommon::needs_gci_custom()) { |
if ($is_custom) { |
$title = 'Enrollment and Student Activity'; |
$bread_crumbs_component = 'Enrollment and Student Activity'; |
} |
} |
} |
} |
$r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
push(@{$brcrum}, |
({href=>"javascript:backPage(document.customresult,'pickrole','')", |
{href => "javascript:backPage(document.customresult,'pickrole','')", |
text=>"Pick custom role", |
text => "Pick custom role", |
faq=>282,bug=>'Instructor Interface',}, |
faq => 282, |
{href=>"javascript:backPage(document.customresult,'selected_custom_edit','')", |
bug => 'Instructor Interface',}, |
text=>"Edit custom role", |
{href => "javascript:backPage(document.customresult,'selected_custom_edit','')", |
faq=>282,bug=>'Instructor Interface',}, |
text => "Edit custom role", |
{href=>"javascript:backPage(document.customresult,'set_custom_roles','')", |
faq => 282, |
text=>"Result", |
bug => 'Instructor Interface',}, |
faq=>282,bug=>'Instructor Interface',}); |
{href => "javascript:backPage(document.customresult,'set_custom_roles','')", |
$r->print(&Apache::lonhtmlcommon::breadcrumbs($title, |
text => "Result", |
'Course_Editing_Custom_Roles')); |
faq => 282, |
|
bug => 'Instructor Interface', |
|
help => 'Course_Editing_Custom_Roles'}, |
|
); |
|
my $args = { bread_crumbs => $brcrum, |
|
bread_crumbs_component => $bread_crumbs_component }; |
|
$r->print(&Apache::loncommon::start_page('Save Custom Role',$jscript,$args)); |
|
|
my ($rdummy,$roledef)= |
my ($rdummy,$roledef)= |
&Apache::lonnet::get('roles',["rolesdef_$rolename"]); |
&Apache::lonnet::get('roles',["rolesdef_$rolename"]); |
Line 4004 sub set_custom_role {
|
Line 4035 sub set_custom_role {
|
} |
} |
$r->print('<p><a href="javascript:backPage(document.customresult,'."'pickrole'".')">'.&mt('Create or edit another custom role').'</a></p><form name="customresult" method="post">'); |
$r->print('<p><a href="javascript:backPage(document.customresult,'."'pickrole'".')">'.&mt('Create or edit another custom role').'</a></p><form name="customresult" method="post">'); |
$r->print(&Apache::lonhtmlcommon::echo_form_input([]).'</form>'); |
$r->print(&Apache::lonhtmlcommon::echo_form_input([]).'</form>'); |
$r->print(&Apache::loncommon::end_page()); |
|
} |
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
Line 4025 sub handler {
|
Line 4055 sub handler {
|
$context = 'domain'; |
$context = 'domain'; |
} |
} |
my $title = 'User Management'; |
my $title = 'User Management'; |
|
my $is_custom = &Apache::loncommon::needs_gci_custom(); |
if ($context eq 'course') { |
if ($context eq 'course') { |
if (&Apache::loncommon::needs_gci_custom()) { |
if ($is_custom) { |
$title = 'Enrollment and Student Activity'; |
$title = 'Enrollment and Student Activity'; |
} |
} |
} |
} |
Line 4034 sub handler {
|
Line 4065 sub handler {
|
['action','state','callingform','roletype','showrole','bulkaction','popup','phase', |
['action','state','callingform','roletype','showrole','bulkaction','popup','phase', |
'username','domain','srchterm','srchdomain','srchin','srchby','srchtype']); |
'username','domain','srchterm','srchdomain','srchin','srchby','srchtype']); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
my $args; |
|
my $brcrum = []; |
|
my $bread_crumbs_component = $title; |
if ($env{'form.action'} ne 'dateselect') { |
if ($env{'form.action'} ne 'dateselect') { |
&Apache::lonhtmlcommon::add_breadcrumb |
$brcrum = [{href=>"/adm/createuser", |
({href=>"/adm/createuser", |
text=>$title, |
text=>$title, |
help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'} |
help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'}); |
]; |
} |
} |
#SD Following files not added to help, because the corresponding .tex-files seem to |
#SD Following files not added to help, because the corresponding .tex-files seem to |
#be missing: Course_Approve_Selfenroll,Course_User_Logs, |
#be missing: Course_Approve_Selfenroll,Course_User_Logs, |
Line 4056 sub handler {
|
Line 4090 sub handler {
|
|
|
# Main switch on form.action and form.state, as appropriate |
# Main switch on form.action and form.state, as appropriate |
if (! exists($env{'form.action'})) { |
if (! exists($env{'form.action'})) { |
$r->print(&header()); |
$args = {bread_crumbs => $brcrum, |
$r->print(&Apache::lonhtmlcommon::breadcrumbs($title)); |
bread_crumbs_component => $bread_crumbs_component}; |
|
$r->print(&header(undef,$args)); |
$r->print(&print_main_menu($permission,$context,$crstype)); |
$r->print(&print_main_menu($permission,$context,$crstype)); |
$r->print(&Apache::loncommon::end_page()); |
|
} elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) { |
} elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) { |
$r->print(&header()); |
push(@{$brcrum}, |
&Apache::lonhtmlcommon::add_breadcrumb |
{ href => '/adm/createuser?action=upload&state=', |
({href=>'/adm/createuser?action=upload&state=', |
text => 'Upload Users List', |
text=>"Upload Users List"}); |
help => 'Course_Create_Class_List', |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Users List', |
}); |
'Course_Create_Class_List')); |
$bread_crumbs_component = 'Upload Users List'; |
|
$args = {bread_crumbs => $brcrum, |
|
bread_crumbs_component => $bread_crumbs_component}; |
|
$r->print(&header(undef,$args)); |
$r->print('<form name="studentform" method="post" '. |
$r->print('<form name="studentform" method="post" '. |
'enctype="multipart/form-data" '. |
'enctype="multipart/form-data" '. |
' action="/adm/createuser">'."\n"); |
' action="/adm/createuser">'."\n"); |
if (! exists($env{'form.state'})) { |
if (! exists($env{'form.state'})) { |
&Apache::lonuserutils::print_first_users_upload_form($r,$context); |
&Apache::lonuserutils::print_first_users_upload_form($r,$context); |
} elsif ($env{'form.state'} eq 'got_file') { |
} elsif ($env{'form.state'} eq 'got_file') { |
|
my $formname; |
|
if ($env{'form.caller'} eq 'requestcrs') { |
|
$formname = 'studentform'; |
|
} |
&Apache::lonuserutils::print_upload_manager_form($r,$context, |
&Apache::lonuserutils::print_upload_manager_form($r,$context, |
$permission,$crstype); |
$permission,$crstype,$formname); |
} elsif ($env{'form.state'} eq 'enrolling') { |
} elsif ($env{'form.state'} eq 'enrolling') { |
if ($env{'form.datatoken'}) { |
if ($env{'form.datatoken'}) { |
&Apache::lonuserutils::upfile_drop_add($r,$context,$permission); |
&Apache::lonuserutils::upfile_drop_add($r,$context,$permission); |
Line 4082 sub handler {
|
Line 4123 sub handler {
|
} else { |
} else { |
&Apache::lonuserutils::print_first_users_upload_form($r,$context); |
&Apache::lonuserutils::print_first_users_upload_form($r,$context); |
} |
} |
$r->print('</form>'.&Apache::loncommon::end_page()); |
|
} elsif ((($env{'form.action'} eq 'singleuser') || ($env{'form.action'} |
} elsif ((($env{'form.action'} eq 'singleuser') || ($env{'form.action'} |
eq 'singlestudent')) && ($permission->{'cusr'})) { |
eq 'singlestudent')) && ($permission->{'cusr'})) { |
my $phase = $env{'form.phase'}; |
my $phase = $env{'form.phase'}; |
Line 4097 sub handler {
|
Line 4137 sub handler {
|
if ($env{'form.phase'} eq 'createnewuser') { |
if ($env{'form.phase'} eq 'createnewuser') { |
my $response; |
my $response; |
if ($env{'form.srchterm'} !~ /^$match_username$/) { |
if ($env{'form.srchterm'} !~ /^$match_username$/) { |
my $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @'); |
my $response = '<p class="LC_warning">'.&mt('You must specify a valid username. Only the following are allowed: letters numbers - . @').'</p>'; |
$env{'form.phase'} = ''; |
$env{'form.phase'} = ''; |
&print_username_entry_form($r,$context,$response,$srch,undef,$crstype); |
&print_username_entry_form($r,$context,$response,$srch,undef,$crstype,$brcrum); |
} else { |
} else { |
my $ccuname =&LONCAPA::clean_username($srch->{'srchterm'}); |
my $ccuname =&LONCAPA::clean_username($srch->{'srchterm'}); |
my $ccdomain=&LONCAPA::clean_domain($srch->{'srchdomain'}); |
my $ccdomain=&LONCAPA::clean_domain($srch->{'srchdomain'}); |
Line 4133 sub handler {
|
Line 4173 sub handler {
|
} |
} |
&print_user_modification_page($r,$ccuname,$ccdomain, |
&print_user_modification_page($r,$ccuname,$ccdomain, |
$srch,$response,$context, |
$srch,$response,$context, |
$permission,$crstype); |
$permission,$crstype,$brcrum); |
} elsif ($currstate eq 'query') { |
} elsif ($currstate eq 'query') { |
&print_user_query_page($r,'createuser'); |
&print_user_query_page($r,'createuser',$brcrum); |
} else { |
} else { |
$env{'form.phase'} = ''; |
$env{'form.phase'} = ''; |
&print_username_entry_form($r,$context,$response,$srch, |
&print_username_entry_form($r,$context,$response,$srch, |
$forcenewuser,$crstype); |
$forcenewuser,$crstype,$brcrum); |
} |
} |
} elsif ($env{'form.phase'} eq 'userpicked') { |
} elsif ($env{'form.phase'} eq 'userpicked') { |
my $ccuname = &LONCAPA::clean_username($env{'form.seluname'}); |
my $ccuname = &LONCAPA::clean_username($env{'form.seluname'}); |
my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'}); |
my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'}); |
&print_user_modification_page($r,$ccuname,$ccdomain,$srch,'', |
&print_user_modification_page($r,$ccuname,$ccdomain,$srch,'', |
$context,$permission,$crstype); |
$context,$permission,$crstype,$brcrum); |
} |
} |
} elsif ($env{'form.phase'} eq 'update_user_data') { |
} elsif ($env{'form.phase'} eq 'update_user_data') { |
&update_user_data($r,$context,$crstype); |
&update_user_data($r,$context,$crstype,$brcrum); |
} else { |
} else { |
&print_username_entry_form($r,$context,undef,$srch,undef,$crstype); |
&print_username_entry_form($r,$context,undef,$srch,undef,$crstype,$brcrum); |
} |
} |
} elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) { |
} elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) { |
if ($env{'form.phase'} eq 'set_custom_roles') { |
if ($env{'form.phase'} eq 'set_custom_roles') { |
&set_custom_role($r,$context); |
&set_custom_role($r,$context,$brcrum); |
} else { |
} else { |
&custom_role_editor($r); |
&custom_role_editor($r,$brcrum); |
} |
} |
} elsif (($env{'form.action'} eq 'listusers') && |
} elsif (($env{'form.action'} eq 'listusers') && |
($permission->{'view'} || $permission->{'cusr'})) { |
($permission->{'view'} || $permission->{'cusr'})) { |
if ($env{'form.phase'} eq 'bulkchange') { |
if ($env{'form.phase'} eq 'bulkchange') { |
&Apache::lonhtmlcommon::add_breadcrumb |
push(@{$brcrum}, |
({href=>'/adm/createuser?action=listusers', |
{href => '/adm/createuser?action=listusers', |
text=>"List Users"}, |
text => "List Users"}, |
{href=>"/adm/createuser", |
{href => "/adm/createuser", |
text=>"Result"}); |
text => "Result", |
|
help => 'Course_View_Class_List'}); |
|
$bread_crumbs_component = 'Update Users'; |
|
$args = {bread_crumbs => $brcrum, |
|
bread_crumbs_component => $bread_crumbs_component}; |
|
$r->print(&header(undef,$args)); |
my $setting = $env{'form.roletype'}; |
my $setting = $env{'form.roletype'}; |
my $choice = $env{'form.bulkaction'}; |
my $choice = $env{'form.bulkaction'}; |
$r->print(&header()); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs("Update Users", |
$r->print(&Apache::lonhtmlcommon::breadcrumbs("Update Users", |
'Course_View_Class_List')); |
'Course_View_Class_List')); |
if ($permission->{'cusr'}) { |
if ($permission->{'cusr'}) { |
Line 4177 sub handler {
|
Line 4221 sub handler {
|
} else { |
} else { |
$r->print(&mt('You are not authorized to make bulk changes to user roles')); |
$r->print(&mt('You are not authorized to make bulk changes to user roles')); |
$r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>'); |
$r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>'); |
$r->print(&Apache::loncommon::end_page()); |
|
} |
} |
} else { |
} else { |
&Apache::lonhtmlcommon::add_breadcrumb |
push(@{$brcrum}, |
({href=>'/adm/createuser?action=listusers', |
{href => '/adm/createuser?action=listusers', |
text=>"List Users"}); |
text => "List Users", |
|
help => 'Course_View_Class_List'}); |
|
$bread_crumbs_component = 'List Users'; |
|
$args = {bread_crumbs => $brcrum, |
|
bread_crumbs_component => $bread_crumbs_component}; |
my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles); |
my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles); |
my $formname = 'studentform'; |
my $formname = 'studentform'; |
if (($context eq 'domain') && (($env{'form.roletype'} eq 'course') || |
if (($context eq 'domain') && (($env{'form.roletype'} eq 'course') || |
Line 4203 sub handler {
|
Line 4250 sub handler {
|
} |
} |
$jscript .= &verify_user_display(); |
$jscript .= &verify_user_display(); |
my $js = &add_script($jscript).$cb_jscript; |
my $js = &add_script($jscript).$cb_jscript; |
my $loadcode = |
my $loadcode = |
&Apache::lonuserutils::course_selector_loadcode($formname); |
&Apache::lonuserutils::course_selector_loadcode($formname); |
if ($loadcode ne '') { |
if ($loadcode ne '') { |
$r->print(&header($js,{'onload' => $loadcode,})); |
$args->{add_entries} = {onload => $loadcode}; |
} else { |
|
$r->print(&header($js)); |
|
} |
} |
|
$r->print(&header($js,$args)); |
} else { |
} else { |
$r->print(&header(&add_script(&verify_user_display()))); |
$r->print(&header(&add_script(&verify_user_display()),$args)); |
} |
} |
$r->print(&Apache::lonhtmlcommon::breadcrumbs("List Users", |
|
'Course_View_Class_List')); |
|
&Apache::lonuserutils::print_userlist($r,undef,$permission,$context, |
&Apache::lonuserutils::print_userlist($r,undef,$permission,$context, |
$formname,$totcodes,$codetitles,$idlist,$idlist_titles); |
$formname,$totcodes,$codetitles,$idlist,$idlist_titles); |
$r->print(&Apache::loncommon::end_page()); |
|
} |
} |
} elsif ($env{'form.action'} eq 'drop' && $permission->{'cusr'}) { |
} elsif ($env{'form.action'} eq 'drop' && $permission->{'cusr'}) { |
$r->print(&header()); |
|
my $brtext; |
my $brtext; |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$brtext = 'Drop Members'; |
$brtext = 'Drop Members'; |
} else { |
} else { |
$brtext = 'Drop Students'; |
$brtext = 'Drop Students'; |
} |
} |
&Apache::lonhtmlcommon::add_breadcrumb |
push(@{$brcrum}, |
({href=>'/adm/createuser?action=drop', |
{href => '/adm/createuser?action=drop', |
text=>$brtext}); |
text => $brtext, |
|
help => 'Course_Drop_Student'}); |
|
if ($env{'form.state'} eq 'done') { |
|
push(@{$brcrum}, |
|
{href=>'/adm/createuser?action=drop', |
|
text=>"Result"}); |
|
} |
|
$bread_crumbs_component = $brtext; |
|
$args = {bread_crumbs => $brcrum, |
|
bread_crumbs_component => $bread_crumbs_component}; |
|
$r->print(&header(undef,$args)); |
if (!exists($env{'form.state'})) { |
if (!exists($env{'form.state'})) { |
$r->print(&Apache::lonhtmlcommon::breadcrumbs($brtext, |
|
'Course_Drop_Student')); |
|
|
|
&Apache::lonuserutils::print_drop_menu($r,$context,$permission,$crstype); |
&Apache::lonuserutils::print_drop_menu($r,$context,$permission,$crstype); |
} elsif ($env{'form.state'} eq 'done') { |
} elsif ($env{'form.state'} eq 'done') { |
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>'/adm/createuser?action=drop', |
|
text=>"Result"}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs($brtext, |
|
'Course_Drop_Student')); |
|
&Apache::lonuserutils::update_user_list($r,$context,undef, |
&Apache::lonuserutils::update_user_list($r,$context,undef, |
$env{'form.action'}); |
$env{'form.action'}); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
|
} elsif ($env{'form.action'} eq 'dateselect') { |
} elsif ($env{'form.action'} eq 'dateselect') { |
if ($permission->{'cusr'}) { |
if ($permission->{'cusr'}) { |
$r->print(&header(undef,undef,{'no_nav_bar' => 1}). |
$r->print(&header(undef,undef,{'no_nav_bar' => 1}). |
&Apache::lonuserutils::date_section_selector($context, |
&Apache::lonuserutils::date_section_selector($context, |
$permission,$crstype). |
$permission,$crstype)); |
&Apache::loncommon::end_page()); |
|
} else { |
} else { |
$r->print(&header(). |
$r->print(&header(). |
'<span class="LC_error">'.&mt('You do not have permission to modify dates or sections for users').'</span>'. |
'<span class="LC_error">'.&mt('You do not have permission to modify dates or sections for users').'</span>'); |
&Apache::loncommon::end_page()); |
|
} |
} |
} elsif ($env{'form.action'} eq 'selfenroll') { |
} elsif ($env{'form.action'} eq 'selfenroll') { |
$r->print(&header()); |
push(@{$brcrum}, |
&Apache::lonhtmlcommon::add_breadcrumb |
{href => '/adm/createuser?action=selfenroll', |
({href=>'/adm/createuser?action=selfenroll', |
text => "Configure Self-enrollment", |
text=>"Configure Self-enrollment"}); |
help => 'Course_Self_Enrollment'}); |
if (!exists($env{'form.state'})) { |
if (!exists($env{'form.state'})) { |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Configure Self-enrollment', |
$args = { bread_crumbs => $brcrum, |
'Course_Self_Enrollment')); |
bread_crumbs_component => 'Configure Self-enrollment'}; |
|
$r->print(&header(undef,$args)); |
$r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n"); |
$r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n"); |
&print_selfenroll_menu($r,$context,$permission); |
&print_selfenroll_menu($r,$context,$permission); |
} elsif ($env{'form.state'} eq 'done') { |
} elsif ($env{'form.state'} eq 'done') { |
&Apache::lonhtmlcommon::add_breadcrumb |
push (@{$brcrum}, |
({href=>'/adm/createuser?action=selfenroll', |
{href=>'/adm/createuser?action=selfenroll', |
text=>"Result"}); |
text=>"Result"}); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Self-enrollment result', |
$args = { bread_crumbs => $brcrum, |
'Course_Self_Enrollment')); |
bread_crumbs_component => 'Self-enrollment result'}; |
|
$r->print(&header(undef,$args)); |
$r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n"); |
$r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n"); |
&update_selfenroll_config($r,$context,$permission); |
&update_selfenroll_config($r,$context,$permission); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
|
} elsif ($env{'form.action'} eq 'selfenrollqueue') { |
} elsif ($env{'form.action'} eq 'selfenrollqueue') { |
$r->print(&header()); |
push(@{$brcrum}, |
&Apache::lonhtmlcommon::add_breadcrumb |
{href => '/adm/createuser?action=selfenrollqueue', |
({href=>'/adm/createuser?action=selfenrollqueue', |
text => 'Enrollment requests', |
text=>"Enrollment requests"}); |
help => 'Course_Self_Enrollment'}); |
|
$bread_crumbs_component = 'Enrollment requests'; |
|
if ($env{'form.state'} eq 'done') { |
|
push(@{$brcrum}, |
|
{href => '/adm/createuser?action=selfenrollqueue', |
|
text => 'Result', |
|
help => 'Course_Self_Enrollment'}); |
|
$bread_crumbs_component = 'Enrollment result'; |
|
} |
|
$args = { bread_crumbs => $brcrum, |
|
bread_crumbs_component => $bread_crumbs_component}; |
|
$r->print(&header(undef,$args)); |
my $cid = $env{'request.course.id'}; |
my $cid = $env{'request.course.id'}; |
my $cdom = $env{'course.'.$cid.'.domain'}; |
my $cdom = $env{'course.'.$cid.'.domain'}; |
my $cnum = $env{'course.'.$cid.'.num'}; |
my $cnum = $env{'course.'.$cid.'.num'}; |
my $coursedesc = $env{'course.'.$cid.'.description'}; |
my $coursedesc = $env{'course.'.$cid.'.description'}; |
if (!exists($env{'form.state'})) { |
if (!exists($env{'form.state'})) { |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment requests', |
|
'Course_SelfEnrollment_Approval')); |
|
$r->print('<h3>'.&mt('Pending enrollment requests').'</h3>'."\n"); |
$r->print('<h3>'.&mt('Pending enrollment requests').'</h3>'."\n"); |
$r->print(&Apache::loncoursequeueadmin::display_queued_requests($context, |
$r->print(&Apache::loncoursequeueadmin::display_queued_requests($context, |
$cdom,$cnum)); |
$cdom,$cnum)); |
} elsif ($env{'form.state'} eq 'done') { |
} elsif ($env{'form.state'} eq 'done') { |
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>'/adm/createuser?action=selfenrollqueue', |
|
text=>"Result"}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment result', |
|
'Course_Self_Enrollment')); |
|
$r->print('<h3>'.&mt('Enrollment request processing').'</h3>'."\n"); |
$r->print('<h3>'.&mt('Enrollment request processing').'</h3>'."\n"); |
$r->print(&Apache::loncoursequeueadmin::update_request_queue($context, |
$r->print(&Apache::loncoursequeueadmin::update_request_queue($context, |
$cdom,$cnum,$coursedesc)); |
$cdom,$cnum,$coursedesc)); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
|
} elsif ($env{'form.action'} eq 'changelogs') { |
} elsif ($env{'form.action'} eq 'changelogs') { |
$r->print(&header()); |
push (@{$brcrum}, |
&Apache::lonhtmlcommon::add_breadcrumb |
{href => '/adm/createuser?action=changelogs', |
({href=>'/adm/createuser?action=changelogs', |
text => 'User Management Logs', |
text=>"User Management Logs"}); |
help => 'Course_User_Logs'}); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Changes', |
$bread_crumbs_component = 'User Changes'; |
'Course_User_Logs')); |
$args = { bread_crumbs => $brcrum, |
&print_userchangelogs_display($r,$context,$permission); |
bread_crumbs_component => $bread_crumbs_component}; |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&header(undef,$args)); |
|
&print_userchangelogs_display($r,$context,$permission); |
} else { |
} else { |
$r->print(&header()); |
$args = { bread_crumbs => $brcrum, |
$r->print(&Apache::lonhtmlcommon::breadcrumbs($title)); |
bread_crumbs_component => $bread_crumbs_component}; |
|
$r->print(&header(undef,$args)); |
$r->print(&print_main_menu($permission,$context,$crstype)); |
$r->print(&print_main_menu($permission,$context,$crstype)); |
$r->print(&Apache::loncommon::end_page()); |
|
} |
} |
|
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|
sub header { |
sub header { |
my ($jscript,$loaditems,$args) = @_; |
my ($jscript,$args) = @_; |
|
my $title = 'User Management'; |
|
my $is_custom = &Apache::loncommon::needs_gci_custom(); |
|
if ($env{'request.course.id'}) { |
|
if ($is_custom) { |
|
$title = 'Enrollment and Student Activity'; |
|
} |
|
} |
my $start_page; |
my $start_page; |
if (ref($loaditems) eq 'HASH') { |
if (ref($args) eq 'HASH') { |
$start_page=&Apache::loncommon::start_page('User Management',$jscript,{'add_entries' => $loaditems}); |
$start_page=&Apache::loncommon::start_page($title,$jscript,$args); |
} else { |
} else { |
$start_page=&Apache::loncommon::start_page('User Management',$jscript,$args); |
$start_page=&Apache::loncommon::start_page($title,$jscript); |
} |
} |
return $start_page; |
return $start_page; |
} |
} |
Line 4359 END
|
Line 4413 END
|
# Menu Phase One |
# Menu Phase One |
sub print_main_menu { |
sub print_main_menu { |
my ($permission,$context,$crstype) = @_; |
my ($permission,$context,$crstype) = @_; |
if (($context eq 'course') && (&Apache::loncommon::needs_gci_custom())) { |
my $is_custom = &Apache::loncommon::needs_gci_custom(); |
|
if (($context eq 'course') && ($is_custom)) { |
return &print_gci_main_menu($permission,$context,$crstype) |
return &print_gci_main_menu($permission,$context,$crstype) |
} |
} |
my $linkcontext = $context; |
my $linkcontext = $context; |
Line 5673 sub user_search_result {
|
Line 5728 sub user_search_result {
|
if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'instd')) { |
if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'instd')) { |
if (($srch->{'srchdomain'} eq '') || |
if (($srch->{'srchdomain'} eq '') || |
! (&Apache::lonnet::domain($srch->{'srchdomain'}))) { |
! (&Apache::lonnet::domain($srch->{'srchdomain'}))) { |
$response = &mt('You must specify a valid domain when searching in a domain or institutional directory.') |
$response = '<p class="LC_warning">'.&mt('You must specify a valid domain when searching in a domain or institutional directory.').'</p>'; |
} |
} |
} |
} |
if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs') || |
if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs') || |
Line 5686 sub user_search_result {
|
Line 5741 sub user_search_result {
|
} |
} |
} |
} |
if ($unamecheck !~ /^$match_username$/) { |
if ($unamecheck !~ /^$match_username$/) { |
$response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @'); |
$response = '<p class="LC_warning">'.&mt('You must specify a valid username. Only the following are allowed: letters numbers - . @').'</p>'; |
} |
} |
} |
} |
} |
} |
Line 5861 sub user_search_result {
|
Line 5916 sub user_search_result {
|
($currstate,$response,$forcenewuser) = |
($currstate,$response,$forcenewuser) = |
&build_search_response($context,$srch,%srch_results); |
&build_search_response($context,$srch,%srch_results); |
} else { |
} else { |
my $showdom = &display_domain_info($srch->{'srchdomain'}); $response = '<span class="LC_warning">'. |
my $showdom = &display_domain_info($srch->{'srchdomain'}); |
|
$response = '<span class="LC_warning">'. |
&mt('Institutional directory search is not available in domain: [_1]',$showdom). |
&mt('Institutional directory search is not available in domain: [_1]',$showdom). |
'</span><br />'. |
'</span><br />'. |
&mt('You may want to search in the LON-CAPA domain instead of the institutional directory.'). |
&mt('You may want to search in the LON-CAPA domain instead of the institutional directory.'). |