version 1.320, 2009/10/30 18:32:25
|
version 1.322, 2009/11/03 21:31:06
|
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 4353 sub restore_prev_selections {
|
Line 4365 sub restore_prev_selections {
|
|
|
sub print_selfenroll_menu { |
sub print_selfenroll_menu { |
my ($r,$context,$permission) = @_; |
my ($r,$context,$permission) = @_; |
|
my $crstype = &Apache::loncommon::course_type(); |
my $formname = 'enrollstudent'; |
my $formname = 'enrollstudent'; |
my $nolink = 1; |
my $nolink = 1; |
my ($row,$lt) = &get_selfenroll_titles(); |
my ($row,$lt) = &get_selfenroll_titles(); |
Line 4714 ENDSCRIPT
|
Line 4727 ENDSCRIPT
|
&mt('No').'</label>'; |
&mt('No').'</label>'; |
my %advhash = &Apache::lonnet::get_course_adv_roles($cid,1); |
my %advhash = &Apache::lonnet::get_course_adv_roles($cid,1); |
my (@ccs,%notified); |
my (@ccs,%notified); |
if ($advhash{'cc'}) { |
my $ccrole = 'cc'; |
@ccs = split(/,/,$advhash{'cc'}); |
if ($crstype eq 'Community') { |
|
$ccrole = 'co'; |
|
} |
|
if ($advhash{$ccrole}) { |
|
@ccs = split(/,/,$advhash{$ccrole}); |
} |
} |
if ($currnotified) { |
if ($currnotified) { |
foreach my $current (split(/,/,$currnotified)) { |
foreach my $current (split(/,/,$currnotified)) { |
Line 5840 sub course_level_table {
|
Line 5857 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 5867 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); |
Line 5896 sub course_level_row {
|
Line 5913 sub course_level_row {
|
$protectedcourse.'_'.$role.'" /></td>'."\n". |
$protectedcourse.'_'.$role.'" /></td>'."\n". |
' <td>'.$plrole.'</td>'."\n". |
' <td>'.$plrole.'</td>'."\n". |
' <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n"; |
' <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n"; |
if ($role eq 'cc') { |
if (($role eq 'cc') || ($role eq 'co')) { |
$row .= '<td> </td>'; |
$row .= '<td> </td>'; |
} elsif ($env{'request.course.sec'} ne '') { |
} elsif ($env{'request.course.sec'} ne '') { |
$row .= ' <td><input type="hidden" value="'. |
$row .= ' <td><input type="hidden" value="'. |