version 1.29, 2007/12/22 22:42:58
|
version 1.31, 2007/12/23 03:21:28
|
Line 2047 END
|
Line 2047 END
|
$env{'request.role.domain'})) { |
$env{'request.role.domain'})) { |
$canchange{$role} = 1; |
$canchange{$role} = 1; |
} |
} |
|
} elsif ($setting eq 'author') { |
|
if (&Apache::lonnet::allowed('c'.$role, |
|
$env{'request.role.domain'})) { |
|
$canchange{$role} = 1; |
|
} |
} |
} |
} elsif ($context eq 'author') { |
} elsif ($context eq 'author') { |
if (&Apache::lonnet::allowed('c'.$role, |
if (&Apache::lonnet::allowed('c'.$role, |
Line 2841 sub viewable_section {
|
Line 2846 sub viewable_section {
|
################################################# |
################################################# |
################################################# |
################################################# |
sub show_drop_list { |
sub show_drop_list { |
my ($r,$classlist,$keylist,$nosort,$permission) = @_; |
my ($r,$classlist,$nosort,$permission) = @_; |
my $cid = $env{'request.course.id'}; |
my $cid = $env{'request.course.id'}; |
my ($cnum,$cdom) = &get_course_identity($cid); |
my ($cnum,$cdom) = &get_course_identity($cid); |
if (! exists($env{'form.sortby'})) { |
if (! exists($env{'form.sortby'})) { |
Line 2852 sub show_drop_list {
|
Line 2857 sub show_drop_list {
|
if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end)$/) { |
if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end)$/) { |
$sortby = 'username'; |
$sortby = 'username'; |
} |
} |
my ($classgroups) = &Apache::loncoursedata::get_group_memberships( |
|
$classlist,$keylist,$cdom,$cnum); |
|
# |
|
my $action = "drop"; |
my $action = "drop"; |
my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript(); |
my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript(); |
$r->print(<<END); |
$r->print(<<END); |
Line 2867 $check_uncheck_js
|
Line 2869 $check_uncheck_js
|
<p> |
<p> |
<input type="hidden" name="phase" value="four"> |
<input type="hidden" name="phase" value="four"> |
END |
END |
|
my ($indexhash,$keylist) = &make_keylist_array(); |
my %lt=&Apache::lonlocal::texthash('usrn' => "username", |
my $studentcount = 0; |
'dom' => "domain", |
if (ref($classlist) eq 'HASH') { |
'sn' => "student name", |
foreach my $student (keys(%{$classlist})) { |
'sec' => "section", |
my $sdata = $classlist->{$student}; |
'start' => "start date", |
my $status = $sdata->[$indexhash->{'status'}]; |
'end' => "end date", |
my $section = $sdata->[$indexhash->{'section'}]; |
'groups' => "active groups", |
if ($status ne 'Active') { |
); |
delete($classlist->{$student}); |
|
next; |
|
} |
|
if ($env{'request.course.sec'} ne '') { |
|
if ($section ne $env{'request.course.sec'}) { |
|
delete($classlist->{$student}); |
|
next; |
|
} |
|
} |
|
$studentcount ++; |
|
} |
|
} |
|
if (!$studentcount) { |
|
$r->print(&mt('There are no students to drop.')); |
|
return; |
|
} |
|
my ($classgroups) = &Apache::loncoursedata::get_group_memberships( |
|
$classlist,$keylist,$cdom,$cnum); |
|
my %lt=&Apache::lonlocal::texthash('usrn' => "username", |
|
'dom' => "domain", |
|
'sn' => "student name", |
|
'sec' => "section", |
|
'start' => "start date", |
|
'end' => "end date", |
|
'groups' => "active groups", |
|
); |
if ($nosort) { |
if ($nosort) { |
$r->print(&Apache::loncommon::start_data_table(). |
$r->print(&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table_header_row()); |
&Apache::loncommon::start_data_table_header_row()); |
Line 2918 END
|
Line 2945 END
|
} |
} |
# |
# |
# Sort the students |
# Sort the students |
my %index; |
my $index = $indexhash->{$sortby}; |
my $i; |
my $second = $indexhash->{'username'}; |
foreach (@$keylist) { |
my $third = $indexhash->{'domain'}; |
$index{$_} = $i++; |
|
} |
|
$index{'groups'} = scalar(@$keylist); |
|
my $index = $index{$sortby}; |
|
my $second = $index{'username'}; |
|
my $third = $index{'domain'}; |
|
my @Sorted_Students = sort { |
my @Sorted_Students = sort { |
lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index]) |
lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index]) |
|| |
|| |
lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second]) |
lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second]) |
|| |
|| |
lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third]) |
lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third]) |
} (keys(%$classlist)); |
} (keys(%{$classlist})); |
foreach my $student (@Sorted_Students) { |
foreach my $student (@Sorted_Students) { |
my $error; |
my $error; |
my $sdata = $classlist->{$student}; |
my $sdata = $classlist->{$student}; |
my $username = $sdata->[$index{'username'}]; |
my $username = $sdata->[$indexhash->{'username'}]; |
my $domain = $sdata->[$index{'domain'}]; |
my $domain = $sdata->[$indexhash->{'domain'}]; |
my $section = $sdata->[$index{'section'}]; |
my $section = $sdata->[$indexhash->{'section'}]; |
my $name = $sdata->[$index{'fullname'}]; |
my $name = $sdata->[$indexhash->{'fullname'}]; |
my $id = $sdata->[$index{'id'}]; |
my $id = $sdata->[$indexhash->{'id'}]; |
my $start = $sdata->[$index{'start'}]; |
my $start = $sdata->[$indexhash->{'start'}]; |
my $end = $sdata->[$index{'end'}]; |
my $end = $sdata->[$indexhash->{'end'}]; |
my $groups = $classgroups->{$student}; |
my $groups = $classgroups->{$student}; |
my $active_groups; |
my $active_groups; |
if (ref($groups->{active}) eq 'HASH') { |
if (ref($groups->{active}) eq 'HASH') { |
Line 2959 END
|
Line 2980 END
|
} else { |
} else { |
$end = &Apache::lonlocal::locallocaltime($end); |
$end = &Apache::lonlocal::locallocaltime($end); |
} |
} |
my $status = $sdata->[$index{'status'}]; |
|
next if ($status ne 'Active'); |
|
if ($env{'request.course.sec'} ne '') { |
|
if ($section ne $env{'request.course.sec'}) { |
|
next; |
|
} |
|
} |
|
my $studentkey = $student.':'.$section; |
my $studentkey = $student.':'.$section; |
my $startitem = '<input type="hidden" name="'.$studentkey.'_start" value="'.$sdata->[$index{'start'}].'" />'; |
my $startitem = '<input type="hidden" name="'.$studentkey.'_start" value="'.$sdata->[$indexhash->{'start'}].'" />'; |
# |
# |
$r->print(&Apache::loncommon::start_data_table_row()); |
$r->print(&Apache::loncommon::start_data_table_row()); |
$r->print(<<"END"); |
$r->print(<<"END"); |
Line 3534 sub upfile_drop_add {
|
Line 3548 sub upfile_drop_add {
|
if ($env{'form.fullup'} eq 'yes') { |
if ($env{'form.fullup'} eq 'yes') { |
$r->print('<h3>'.&mt('Students to Drop')."</h3>\n"); |
$r->print('<h3>'.&mt('Students to Drop')."</h3>\n"); |
# Get current classlist |
# Get current classlist |
my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist(); |
my $classlist = &Apache::loncoursedata::get_classlist(); |
if (! defined($classlist)) { |
if (! defined($classlist)) { |
$r->print('<form name="studentform" method="post" action="/adm/createuser" />'. |
$r->print('<form name="studentform" method="post" action="/adm/createuser" />'. |
'<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'. |
'<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'. |
Line 3542 sub upfile_drop_add {
|
Line 3556 sub upfile_drop_add {
|
'</form>'."\n"); |
'</form>'."\n"); |
} else { |
} else { |
# Remove the students we just added from the list of students. |
# Remove the students we just added from the list of students. |
foreach (@userdata) { |
foreach my $line (@userdata) { |
my %entries=&Apache::loncommon::record_sep($_); |
my %entries=&Apache::loncommon::record_sep($line); |
unless (($entries{$fields{'username'}} eq '') || |
unless (($entries{$fields{'username'}} eq '') || |
(!defined($entries{$fields{'username'}}))) { |
(!defined($entries{$fields{'username'}}))) { |
delete($classlist->{$entries{$fields{'username'}}. |
delete($classlist->{$entries{$fields{'username'}}. |
Line 3551 sub upfile_drop_add {
|
Line 3565 sub upfile_drop_add {
|
} |
} |
} |
} |
# Print out list of dropped students. |
# Print out list of dropped students. |
&show_drop_list($r,$classlist,$keylist,'nosort',$permission); |
&show_drop_list($r,$classlist,'nosort',$permission); |
} |
} |
} |
} |
} # end of unless |
} # end of unless |
Line 3654 sub print_drop_menu {
|
Line 3668 sub print_drop_menu {
|
my ($r,$context,$permission) = @_; |
my ($r,$context,$permission) = @_; |
$r->print('<h3>'.&mt("Drop Students").'</h3>'."\n". |
$r->print('<h3>'.&mt("Drop Students").'</h3>'."\n". |
'<form name="studentform" method="post">'."\n"); |
'<form name="studentform" method="post">'."\n"); |
my $cid=$env{'request.course.id'}; |
my $classlist = &Apache::loncoursedata::get_classlist(); |
my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist(); |
|
if (! defined($classlist)) { |
if (! defined($classlist)) { |
$r->print(&mt('There are no students currently enrolled.')."\n"); |
$r->print(&mt('There are no students currently enrolled.')."\n"); |
return; |
} else { |
|
&show_drop_list($r,$classlist,'nosort',$permission); |
} |
} |
# Print out the available choices |
|
&show_drop_list($r,$classlist,$keylist,$permission); |
|
$r->print('</form>'. &Apache::loncommon::end_page()); |
$r->print('</form>'. &Apache::loncommon::end_page()); |
return; |
return; |
} |
} |