version 1.295.2.19, 2010/01/19 17:16:59
|
version 1.295.2.21, 2010/01/19 20:49:41
|
Line 3951 sub handler {
|
Line 3951 sub handler {
|
text=>"List Users"}); |
text=>"List Users"}); |
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') || |
($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) = |
($env{'form.roletype'} eq 'community'))) { |
&Apache::lonuserutils::courses_selector($env{'request.role.domain'}, |
if ($env{'form.roletype'} eq 'course') { |
$formname); |
($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) = |
|
&Apache::lonuserutils::courses_selector($env{'request.role.domain'}, |
|
$formname); |
|
} elsif ($env{'form.roletype'} eq 'community') { |
|
$cb_jscript = |
|
&Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'}); |
|
my %elements = ( |
|
coursepick => 'radio', |
|
coursetotal => 'text', |
|
courselist => 'text', |
|
); |
|
$jscript = &Apache::lonhtmlcommon::set_form_elements(\%elements); |
|
} |
$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 = |
Line 4184 sub print_main_menu {
|
Line 4196 sub print_main_menu {
|
permission => $permission->{'cusr'}, |
permission => $permission->{'cusr'}, |
}); |
}); |
if (!exists($permission->{'cusr_section'})) { |
if (!exists($permission->{'cusr_section'})) { |
push(@courselinks, |
if ($crstype ne 'Community') { |
{ text => 'Automated Enrollment Manager', |
push(@courselinks, |
help => 'Course_Automated_Enrollment', |
{ text => 'Automated Enrollment Manager', |
permission => (&Apache::lonnet::auto_run($cnum,$cdom) |
help => 'Course_Automated_Enrollment', |
&& $permission->{'cusr'}), |
permission => (&Apache::lonnet::auto_run($cnum,$cdom) |
url => '/adm/populate', |
&& $permission->{'cusr'}), |
}, |
url => '/adm/populate', |
{ text => 'Configure User Self-enrollment', |
}); |
help => 'Course_Self_Enrollment', |
} |
action => 'selfenroll', |
push(@courselinks, |
permission => $permission->{'cusr'}, |
{ text => 'Configure User Self-enrollment', |
}); |
help => 'Course_Self_Enrollment', |
|
action => 'selfenroll', |
|
permission => $permission->{'cusr'}, |
|
}); |
} |
} |
if ($env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'}) { |
if ($env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'}) { |
push(@courselinks, |
push(@courselinks, |
Line 5699 sub course_level_table {
|
Line 5714 sub course_level_table {
|
&Apache::loncommon::get_sections($domain,$cnum); |
&Apache::loncommon::get_sections($domain,$cnum); |
} |
} |
} |
} |
my @roles = &Apache::lonuserutils::roles_by_context('course'); |
my @roles = &Apache::lonuserutils::roles_by_context('course','',$crstype); |
foreach my $role (@roles) { |
foreach my $role (@roles) { |
my $plrole=&Apache::lonnet::plaintext($role,$crstype); |
my $plrole=&Apache::lonnet::plaintext($role,$crstype); |
if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) { |
if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) { |