version 1.320, 2009/10/30 18:32:25
|
version 1.321, 2009/10/31 14:27:48
|
Line 3957 sub handler {
|
Line 3957 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 5840 sub course_level_table {
|
Line 5852 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 5850 sub course_level_table {
|
Line 5862 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,$type); |
my $plrole=&Apache::lonnet::plaintext($role,$crstype); |
if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) { |
if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) { |
$table .= &course_level_row($protectedcourse,$role,$area,$domain, |
$table .= &course_level_row($protectedcourse,$role,$area,$domain, |
$plrole,\%sections_count,\%lt); |
$plrole,\%sections_count,\%lt); |