version 1.295.2.18, 2010/01/03 15:53:56
|
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 3983 sub handler {
|
Line 3995 sub handler {
|
} |
} |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/createuser?action=drop', |
({href=>'/adm/createuser?action=drop', |
text=>$brtext); |
text=>$brtext}); |
if (!exists($env{'form.state'})) { |
if (!exists($env{'form.state'})) { |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Drop Students', |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Drop Students', |
'Course_Drop_Student')); |
'Course_Drop_Student')); |
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 5689 sub course_level_table {
|
Line 5704 sub course_level_table {
|
$thiscourse=~s:_:/:g; |
$thiscourse=~s:_:/:g; |
my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
my $area=$coursedata{'description'}; |
my $area=$coursedata{'description'}; |
my $type=$coursedata{'type'}; |
my $crstype=$coursedata{'type'}; |
if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; } |
if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; } |
my ($domain,$cnum)=split(/\//,$thiscourse); |
my ($domain,$cnum)=split(/\//,$thiscourse); |
my %sections_count; |
my %sections_count; |
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)) { |
Line 5794 sub course_level_dc {
|
Line 5809 sub course_level_dc {
|
'<input type="hidden" name="dccourse" value="" />'; |
'<input type="hidden" name="dccourse" value="" />'; |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'</b>'; |
('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'</b>'; |
my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu'); |
my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu','role','Course/Community Browser'); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'rol' => "Role", |
'rol' => "Role", |
'grs' => "Section", |
'grs' => "Section", |