version 1.295.2.18, 2010/01/03 15:53:56
|
version 1.295.2.22, 2010/01/19 20:52:24
|
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 4256 sub restore_prev_selections {
|
Line 4271 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 4619 ENDSCRIPT
|
Line 4635 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 5689 sub course_level_table {
|
Line 5709 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 5719 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 5745 sub course_level_row {
|
Line 5765 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="'. |
Line 5794 sub course_level_dc {
|
Line 5814 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", |