version 1.50, 2002/09/17 15:52:44
|
version 1.54, 2002/09/26 13:29:44
|
Line 558 sub print_upload_manager_form {
|
Line 558 sub print_upload_manager_form {
|
sub enroll_single_student { |
sub enroll_single_student { |
my $r=shift; |
my $r=shift; |
$r->print('<h3>Enrolling Student</h3>'); |
$r->print('<h3>Enrolling Student</h3>'); |
$r->print('<p>Enrolling '.$ENV{'form.cuname'}." in domain ". |
$r->print('<p>Enrolling '.$ENV{'form.cuname'}." \@ ". |
$ENV{'form.lcdomain'}.'</p>'); |
$ENV{'form.lcdomain'}.'</p>'); |
if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&& |
if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&& |
($ENV{'form.lcdomain'})&&($ENV{'form.lcdomain'}!~/\W/)) { |
($ENV{'form.lcdomain'})&&($ENV{'form.lcdomain'}!~/\W/)) { |
Line 728 END
|
Line 728 END
|
|
|
# =================================================== get the current classlist |
# =================================================== get the current classlist |
sub get_current_classlist { |
sub get_current_classlist { |
my ($domain,$identifier) = @_; |
my $r = shift; |
# domain is the domain the class is being run in |
# Call DownloadClasslist |
# identifier is the internal, unique identifier for the class. |
my $cid = $ENV{'request.course.id'}; |
my %currentlist=(); |
my $c = $r->connection; |
my $now=time; |
my $classlisthash = &Apache::loncoursedata::DownloadClasslist |
my %results=&Apache::lonnet::dump('classlist',$domain,$identifier); |
($cid,'Not downloaded',$c); |
my ($tmp) = keys(%results); |
# Call ProcessClasslist |
if ($tmp !~ /^(con_lost|error|no_such_host)/i) { |
my %cache; |
foreach my $student (keys(%results)) { |
my @students = &Apache::loncoursedata::ProcessClasslist(\%cache, |
# Extract the start and end dates |
$classlisthash, |
my ($end,$start)=split(/\:/,$results{$student}); |
$cid,$c); |
# If the class isn't over, put it in the list |
return (\@students,\%cache); |
unless (($end) && ($now>$end)) { |
|
$currentlist{$student}=1; |
|
} |
|
} |
|
return (undef,%currentlist); |
|
} else { |
|
$tmp =~ s/^error://; |
|
return ($tmp,undef); |
|
} |
|
} |
} |
|
|
# ========================================================= Menu Phase Two Drop |
# ========================================================= Menu Phase Two Drop |
sub menu_phase_two_drop { |
sub print_drop_menu { |
my $r=shift; |
my $r=shift; |
$r->print("<h3>Drop Students</h3>"); |
$r->print("<h3>Drop Students</h3>"); |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
my ($error,%currentlist)=&get_current_classlist |
my ($student_array,$student_data)=&get_current_classlist($r); |
($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'}); |
if (! scalar(@$student_array)) { |
if (defined($error)) { |
|
if ($error =~ /^No such file or directory/) { |
|
$r->print("There are no students currently enrolled.\n"); |
|
} else { |
|
$r->print("<pre>ERROR:$error</pre>"); |
|
} |
|
} elsif (!defined(%currentlist)) { |
|
$r->print("There are no students currently enrolled.\n"); |
$r->print("There are no students currently enrolled.\n"); |
} else { |
return; |
# Print out the available choices |
|
&show_drop_list($r,%currentlist); |
|
} |
} |
|
# Print out the available choices |
|
&show_drop_list($student_array,$student_data,$r); |
|
return; |
} |
} |
|
|
# ============================================== view classlist |
# ============================================== view classlist |
Line 782 sub print_html_classlist {
|
Line 767 sub print_html_classlist {
|
</p> |
</p> |
END |
END |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
my ($error,%currentlist)=&get_current_classlist |
my ($student_array,$student_data)=&get_current_classlist($r); |
($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'}); |
if (! scalar(@$student_array)) { |
if (defined($error)) { |
|
if ($error =~ /^No such file or directory/) { |
|
$r->print("There are no students currently enrolled.\n"); |
|
} else { |
|
$r->print("<pre>ERROR:$error</pre>"); |
|
} |
|
} elsif (!defined(%currentlist)) { |
|
$r->print("There are no students currently enrolled.\n"); |
$r->print("There are no students currently enrolled.\n"); |
} else { |
} else { |
# Print out the available choices |
# Print out the available choices |
if ($ENV{'form.action'} eq 'modifystudent') { |
if ($ENV{'form.action'} eq 'modifystudent') { |
&show_class_list($r,'view','modify',%currentlist); |
&show_class_list($r,'view','modify','modifystudent', |
|
'any',$student_array,$student_data); |
} else { |
} else { |
&show_class_list($r,'view','aboutme',%currentlist); |
&show_class_list($r,'view','aboutme','classlist', |
|
'any',$student_array,$student_data); |
} |
} |
} |
} |
} |
} |
Line 806 END
|
Line 786 END
|
sub print_csv_classlist { |
sub print_csv_classlist { |
my $r=shift; |
my $r=shift; |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
my ($error,%currentlist)=&get_current_classlist |
my ($student_array,$student_data)=&get_current_classlist($r); |
($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'}); |
if (! scalar(@$student_array)) { |
if (defined($error)) { |
|
if ($error =~ /^No such file or directory/) { |
|
$r->print("There are no students currently enrolled.\n"); |
|
} else { |
|
$r->print("<pre>ERROR:$error</pre>"); |
|
} |
|
} elsif (!defined(%currentlist)) { |
|
$r->print("There are no students currently enrolled.\n"); |
$r->print("There are no students currently enrolled.\n"); |
} else { |
} else { |
&show_class_list($r,'csv','nolink',%currentlist); |
&show_class_list($r,'csv','nolink','csv', |
|
'any',$student_array,$student_data); |
} |
} |
} |
} |
|
|
# =================================================== Show student list to drop |
# =================================================== Show student list to drop |
sub show_class_list { |
sub show_class_list { |
my ($r,$mode,$linkto,%currentlist)=@_; |
my ($r,$mode,$linkto,$action,$statusmode,$students,$s_data)=@_; |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['sortby']); |
|
my $sortby = $ENV{'form.sortby'}; |
|
if ($sortby !~ /^(username|domain|section|fullname|id)$/) { |
|
$sortby = 'username'; |
|
} |
# Print out header |
# Print out header |
if ($mode eq 'view') { |
if ($mode eq 'view') { |
if ($linkto eq 'aboutme') { |
if ($linkto eq 'aboutme') { |
Line 833 sub show_class_list {
|
Line 813 sub show_class_list {
|
$r->print('Select a user name to modify the students information'); |
$r->print('Select a user name to modify the students information'); |
} |
} |
$r->print(<<END); |
$r->print(<<END); |
|
<input type="hidden" name="sortby" value="$sortby" /> |
<p> |
<p> |
<table border=2> |
<table border=2> |
<tr><th>username</th><th>domain</th><th>ID</th> |
<tr><th> |
<th>student name</th><th>generation</th><th>section</th></tr> |
<a href="/adm/dropadd?action=$action&sortby=username">username</a> |
|
</th><th> |
|
<a href="/adm/dropadd?action=$action&sortby=domain">domain</a> |
|
</th><th> |
|
<a href="/adm/dropadd?action=$action&sortby=id">ID</a> |
|
</th><th> |
|
<a href="/adm/dropadd?action=$action&sortby=fullname">student name</a> |
|
</th><th> |
|
<a href="/adm/dropadd?action=$action&sortby=section">section</a> |
|
</th> |
|
</tr> |
END |
END |
} elsif ($mode eq 'csv') { |
} elsif ($mode eq 'csv') { |
$r->print('"'.join('","',("username","domain","ID","last name", |
$r->print('"'.join('","',("username","domain","ID","student name", |
"first name","middle name","generation", |
|
"section")).'"'."\n"); |
"section")).'"'."\n"); |
} |
} |
foreach (sort keys %currentlist) { |
my @Sorted_Students = sort { |
my ($sname,$sdom)=split(/\:/,$_); |
lc($s_data->{$a.':'.$sortby}) cmp lc($s_data->{$b.':'.$sortby}) |
my %reply=&Apache::lonnet::idrget($sdom,$sname); |
|| |
my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid); |
lc($s_data->{$a.':username'}) cmp lc($s_data->{$b.':username'}) |
my %info=&Apache::lonnet::get('environment', |
|| |
['firstname','middlename', |
lc($s_data->{$a.':domain'}) cmp lc($s_data->{$b.':domain'}) |
'lastname','generation'], |
} @$students; |
$sdom, $sname); |
foreach my $student (@Sorted_Students) { |
my ($tmp) = keys(%info); |
my $error; |
if ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
if (exists($s_data->{$student.':error'})) { |
if ($mode eq 'view') { |
$error = $s_data->{$student.':error'}; |
$r->print('<tr><td colspan="6"><font color="red">'. |
} |
'Internal error: unable to get environment '. |
if ($error) { |
'for '.$sname.' in domain '.$sdom.'</font></td></tr>'); |
$r->print('<tr><td colspan="6">'. |
} else { |
'<font color="#FF8888">Error</font>'. |
$r->print('"Internal error: unable to get environment for '. |
'Error retrieving data for '. |
$sname.' in domain '.$sdom.'"'); |
join('@',split(/:/,$student)). |
|
', '.$error.'</td></tr>'."\n"); |
|
next; |
|
} |
|
my $username = $s_data->{$student.':username'}; |
|
my $domain = $s_data->{$student.':domain'}; |
|
my $section = $s_data->{$student.':section'}; |
|
my $name = $s_data->{$student.':fullname'}; |
|
my $status = $s_data->{$student.':Status'}; |
|
my $id = $s_data->{$student.':id'}; |
|
next if (($statusmode ne 'any') && ($status ne $statusmode)); |
|
if ($mode eq 'view') { |
|
$r->print("<tr>\n <td>\n "); |
|
if ($linkto eq 'nothing') { |
|
$r->print($username); |
|
} elsif ($linkto eq 'aboutme') { |
|
$r->print(&Apache::loncommon::aboutmewrapper($username, |
|
$username, |
|
$domain)); |
|
} elsif ($linkto eq 'modify') { |
|
$r->print('<a href="/adm/dropadd?action=modifystudent'. |
|
'&state=selected'.'&sname='.$username. |
|
'&sdom='.$domain.'&sortby='.$sortby.'">'. |
|
$username."</a>\n"); |
} |
} |
} else { |
$r->print(<<"END"); |
if ($mode eq 'view') { |
|
$r->print("<tr>\n <td>\n "); |
|
if ($linkto eq 'nothing') { |
|
$r->print($sname); |
|
} elsif ($linkto eq 'aboutme') { |
|
$r->print(&Apache::loncommon::aboutmewrapper($sname,$sname, |
|
$sdom)); |
|
} elsif ($linkto eq 'modify') { |
|
$r->print('<a href="/adm/dropadd?action=modifystudent'. |
|
'&state=selected'.'&sname='.$sname. |
|
'&sdom='.$sdom.'">'.$sname."</a>\n"); |
|
} |
|
$r->print(<<"END"); |
|
</td> |
</td> |
<td>$sdom</td> |
<td>$domain</td> |
<td>$reply{$sname}</td> |
<td>$id</td> |
<td>$info{'lastname'}, $info{'firstname'} $info{'middlename'}</td> |
<td>$name</td> |
<td>$info{'generation'}</td> |
<td>$section</td> |
<td>$ssec</td> |
|
</tr> |
</tr> |
END |
END |
} elsif ($mode eq 'csv') { |
} elsif ($mode eq 'csv') { |
# no need to bother with $linkto |
# no need to bother with $linkto |
my @line = (); |
my @line = (); |
foreach ($sname,$sdom,$reply{$sname}, |
foreach ($username,$domain,$id,$name,$section) { |
$info{'lastname'},$info{'firstname'}, |
push @line,&Apache::loncommon::csv_translate($_); |
$info{'middlename'},$info{'generation'},$ssec) { |
|
push @line,&Apache::loncommon::csv_translate($_); |
|
} |
|
my $tmp = $"; |
|
$" = '","'; |
|
$r->print("\"@line\"\n"); |
|
$" = $tmp; |
|
} |
} |
|
my $tmp = $"; |
|
$" = '","'; |
|
$r->print("\"@line\"\n"); |
|
$" = $tmp; |
} |
} |
} |
} |
$r->print('</table><br>') if ($mode eq 'view'); |
$r->print('</table><br>') if ($mode eq 'view'); |
Line 908 END
|
Line 904 END
|
sub print_modify_student_form { |
sub print_modify_student_form { |
my $r = shift(); |
my $r = shift(); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['sdom','sname']); |
['sdom','sname','sortby']); |
|
my $sname = $ENV{'form.sname'}; |
my $sname = $ENV{'form.sname'}; |
my $sdom = $ENV{'form.sdom'}; |
my $sdom = $ENV{'form.sdom'}; |
my $sortby = $ENV{'form.sortby'}; |
# determine the students name information |
# determine the students name information |
my %info=&Apache::lonnet::get('environment', |
my %info=&Apache::lonnet::get('environment', |
['firstname','middlename', |
['firstname','middlename', |
'lastname','generation'], |
'lastname','generation','id'], |
$sdom, $sname); |
$sdom, $sname); |
my ($tmp) = keys(%info); |
my ($tmp) = keys(%info); |
if ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
if ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
Line 938 sub print_modify_student_form {
|
Line 934 sub print_modify_student_form {
|
$endtime); |
$endtime); |
# Make sure student is enrolled in course |
# Make sure student is enrolled in course |
$r->print(<<END); |
$r->print(<<END); |
|
<p> |
|
<font size="+1"> |
|
Only domain coordinators can change a users password. |
|
</font> |
|
</p> |
<input type="hidden" name="slogin" value="$sname" /> |
<input type="hidden" name="slogin" value="$sname" /> |
<input type="hidden" name="sdomain" value="$sdom" /> |
<input type="hidden" name="sdomain" value="$sdom" /> |
<input type="hidden" name="action" value="modifystudent" /> |
<input type="hidden" name="action" value="modifystudent" /> |
<input type="hidden" name="state" value="done" /> |
<input type="hidden" name="state" value="done" /> |
|
<input type="hidden" name="sortby" value="$sortby" /> |
<h2>Modify Enrollment for $info{'firstname'} $info{'middlename'} |
<h2>Modify Enrollment for $info{'firstname'} $info{'middlename'} |
$info{'lastname'} $info{'generation'}, $sname\@$sdom</h2> |
$info{'lastname'} $info{'generation'}, $sname\@$sdom</h2> |
<p> |
<p> |
Line 955 $info{'lastname'} $info{'generation'}, $
|
Line 957 $info{'lastname'} $info{'generation'}, $
|
<input type="text" name="generation" value="$info{'generation'}" /></td></tr> |
<input type="text" name="generation" value="$info{'generation'}" /></td></tr> |
</table> |
</table> |
</p><p> |
</p><p> |
|
<b>Student ID</b>: <input type="text" name="id" value="$info{'id'}" size="12"/> |
|
</p><p> |
|
<input type="checkbox" name="forceid" > |
|
Disable ID/Student Number Safeguard and Force Change of Conflicting IDs |
|
(only do if you know what you are doing) |
|
</p><p> |
<b>Section</b>: <input type="text" name="section" value="$section" size="4"/> |
<b>Section</b>: <input type="text" name="section" value="$section" size="4"/> |
</p><p> |
</p><p> |
<table> |
<table> |
Line 973 END
|
Line 981 END
|
# |
# |
sub modify_single_student { |
sub modify_single_student { |
my $r = shift; |
my $r = shift; |
# make sure user can modify student data? |
# Get the 'sortby' variable so the user does not need to re-sort |
|
my $sortby = $ENV{'form.sortby'}; |
|
# |
|
# We always need this information |
|
my $slogin = $ENV{'form.slogin'}; |
|
my $sdom = $ENV{'form.sdomain'}; |
|
# |
|
# Get the old data |
|
my %old=&Apache::lonnet::get('environment', |
|
['firstname','middlename', |
|
'lastname','generation','id'], |
|
$sdom, $slogin); |
|
my ($tmp) = keys(%old); |
|
if ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
|
$r->print("There was an error determining the environment values ". |
|
" for $slogin \@ $sdom."); |
|
return; |
|
} |
|
undef $tmp; |
|
# |
|
# Get the new data |
my $firstname = $ENV{'form.firstname'}; |
my $firstname = $ENV{'form.firstname'}; |
my $middlename = $ENV{'form.middlename'}; |
my $middlename = $ENV{'form.middlename'}; |
my $lastname = $ENV{'form.lastname'}; |
my $lastname = $ENV{'form.lastname'}; |
my $generation = $ENV{'form.generation'}; |
my $generation = $ENV{'form.generation'}; |
my $section = $ENV{'form.section'}; |
my $section = $ENV{'form.section'}; |
my $courseid = $ENV{'request.course.id'}; |
my $courseid = $ENV{'request.course.id'}; |
my $sname = $ENV{'form.slogin'}; |
my $sid = $ENV{'form.id'}; |
my $sdom = $ENV{'form.sdomain'}; |
|
my $starttime = &Apache::lonhtmlcommon::get_date_from_form('startdate', |
my $starttime = &Apache::lonhtmlcommon::get_date_from_form('startdate', |
time); |
time); |
my $endtime = &Apache::lonhtmlcommon::get_date_from_form('enddate', |
my $endtime = &Apache::lonhtmlcommon::get_date_from_form('enddate', |
time); |
time); |
my $displayable_starttime = localtime($starttime); |
my $displayable_starttime = localtime($starttime); |
my $displayable_endtime = localtime($endtime); |
my $displayable_endtime = localtime($endtime); |
|
# |
|
# check for forceid override |
|
if (($sid ne $old{'id'}) && (! exists($ENV{'form.forceid'}))) { |
|
$r->print("<font color=\"ff0000\">You changed the students id ". |
|
" but did not disable the ID change safeguard.". |
|
" The students id will not be changed.</font>"); |
|
$sid = $old{'id'}; |
|
} |
|
# |
# talk to the user about what we are going to do |
# talk to the user about what we are going to do |
$r->print(<<END); |
$r->print(<<END); |
Modifying data for user: $sname \@ $sdom <br /> |
<h2>Modifying data for user $slogin \@ $sdom </h2> |
<h3>Student Information</h3> |
<h3>Student Information</h3> |
<table> |
<table rules="rows" border="1" cellpadding="3" > |
<tr><td>First name </td><td> $firstname </td></tr> |
<tr> |
<tr><td>Middle name </td><td> $middlename </td></tr> |
<th> Field </th> |
<tr><td>Last name </td><td> $lastname </td></tr> |
<th> Old Value </th> |
<tr><td>Generation </td><td> $generation </td></tr> |
<th> New Value </th> |
|
</tr> |
|
<tr> |
|
<td> <b>First name</b> </td> |
|
<td> $old{'firstname'} </td> |
|
<td> $firstname </td> |
|
</tr><tr> |
|
<td> <b>Middle name</b> </td> |
|
<td> $old{'middlename'} </td> |
|
<td> $middlename </td> |
|
</tr><tr> |
|
<td> <b>Last name</b> </td> |
|
<td> $old{'lastname'} </td> |
|
<td> $lastname </td> |
|
</tr><tr> |
|
<td> <b>Generation</b> </td> |
|
<td> $old{'generation'} </td> |
|
<td> $generation </td> |
|
</tr><tr> |
|
<td> <b>ID</b> </td> |
|
<td> $old{'id'} </td> |
|
<td> $sid </td> |
|
</tr> |
</table> |
</table> |
<h3>Role Information</h3> |
<h3>Role Information</h3> |
<table> |
<table> |
Line 1004 Modifying data for user: $sname \@ $sdom
|
Line 1062 Modifying data for user: $sname \@ $sdom
|
<tr><td>Start Time </td><td> $displayable_starttime </td></tr> |
<tr><td>Start Time </td><td> $displayable_starttime </td></tr> |
<tr><td>End Time </td><td> $displayable_endtime </td></tr> |
<tr><td>End Time </td><td> $displayable_endtime </td></tr> |
</table> |
</table> |
|
<p> |
END |
END |
# send request(s) to modify data |
# |
my $roleresults = 'refused'; |
# Send request(s) to modify data |
#my $roleresults = &Apache::lonnet::assignrole($sdom,$sname, |
my $roleresults = &Apache::lonnet::modifystudent |
# $courseid.'/'.$section, |
($sdom,$slogin,$sid,undef,undef,$firstname,$middlename,$lastname, |
# 'st', |
$generation,$section,$endtime,$starttime,$ENV{'form.forceid'}); |
# $endtime,$starttime); |
if ($roleresults eq 'refused' ) { |
if ($roleresults =~/refused/) { |
|
$r->print("Your request to change the role information for this ". |
$r->print("Your request to change the role information for this ". |
"student was refused."); |
"student was refused. You do not appear to have ". |
|
"sufficient authority to change student information."); |
} elsif ($roleresults !~ /ok/) { |
} elsif ($roleresults !~ /ok/) { |
$r->print("An error occurred during the attempt to change the role". |
$r->print("An error occurred during the attempt to change the role". |
" information for this student. The error reported was ". |
" information for this student. <br />". |
|
"The error reported was ". |
$roleresults); |
$roleresults); |
|
&Apache::lonnet::logthis("londropadd:failed attempt to modify student". |
|
" data for ".$slogin." \@ ".$sdom." by ". |
|
$ENV{'user.name'}." \@ ".$ENV{'user.domain'}. |
|
":".$roleresults); |
} else { # everything is okay! |
} else { # everything is okay! |
$r->print("Student role updated successfully."); |
$r->print("Student information updated successfully. <br />". |
|
"The student must log out and log in again to see ". |
|
"these changes."); |
} |
} |
# |
|
$r->print(<<END); |
$r->print(<<END); |
|
</p><p> |
|
<a href="/adm/dropadd?action=modifystudent&sortby=$sortby">Modify another students data</a> |
</body></html> |
</body></html> |
END |
END |
return; |
return; |
Line 1063 sub get_enrollment_data {
|
Line 1130 sub get_enrollment_data {
|
|
|
# =================================================== Show student list to drop |
# =================================================== Show student list to drop |
sub show_drop_list { |
sub show_drop_list { |
my ($r,%currentlist)=@_; |
my ($students,$s_data,$r)=@_; |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
$r->print(<<'END'); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
<input type="hidden" name="action" value="drop" /> |
['sortby']); |
|
my $sortby = $ENV{'form.sortby'}; |
|
if ($sortby !~ /^(username|domain|section|fullname|id)$/) { |
|
$sortby = 'username'; |
|
} |
|
my $action = "drop"; |
|
$r->print(<<END); |
|
<input type="hidden" name="sortby" value="$sortby" /> |
|
<input type="hidden" name="action" value="$action" /> |
<input type="hidden" name="state" value="done" /> |
<input type="hidden" name="state" value="done" /> |
<script> |
<script> |
function checkAll(field) |
function checkAll(field) { |
{ |
|
for (i = 0; i < field.length; i++) |
for (i = 0; i < field.length; i++) |
field[i].checked = true ; |
field[i].checked = true ; |
} |
} |
|
|
function uncheckAll(field) |
function uncheckAll(field) { |
{ |
|
for (i = 0; i < field.length; i++) |
for (i = 0; i < field.length; i++) |
field[i].checked = false ; |
field[i].checked = false ; |
} |
} |
Line 1084 function uncheckAll(field)
|
Line 1157 function uncheckAll(field)
|
<p> |
<p> |
<input type="hidden" name="phase" value="four"> |
<input type="hidden" name="phase" value="four"> |
<table border=2> |
<table border=2> |
<tr><th> </th><th>username</th><th>domain</th> |
<tr><th> </th> |
<th>ID</th><th>student name</th><th>generation</th> |
<th> |
<th>section</th></tr> |
<a href="/adm/dropadd?action=$action&sortby=username">username</a> |
|
</th><th> |
|
<a href="/adm/dropadd?action=$action&sortby=domain">domain</a> |
|
</th><th> |
|
<a href="/adm/dropadd?action=$action&sortby=id">ID</a> |
|
</th><th> |
|
<a href="/adm/dropadd?action=$action&sortby=fullname">student name</a> |
|
</th><th> |
|
<a href="/adm/dropadd?action=$action&sortby=section">section</a> |
|
</th> |
|
</tr> |
END |
END |
foreach (sort keys %currentlist) { |
my @Sorted_Students = sort { |
my ($sname,$sdom)=split(/\:/,$_); |
lc($s_data->{$a.':'.$sortby}) cmp lc($s_data->{$b.':'.$sortby}) |
my %reply=&Apache::lonnet::idrget($sdom,$sname); |
|| |
my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid); |
lc($s_data->{$a.':username'}) cmp lc($s_data->{$b.':username'}) |
my %info=&Apache::lonnet::get('environment', |
|| |
['firstname','middlename', |
lc($s_data->{$a.':domain'}) cmp lc($s_data->{$b.':domain'}) |
'lastname','generation'], |
} @$students; |
$sdom, $sname); |
foreach my $student (@Sorted_Students) { |
my ($tmp) = keys(%info); |
my $error; |
if ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
if (exists($s_data->{$student.':error'})) { |
$r->print('<tr><td colspan="7"><font color="red">'. |
$error = $s_data->{$student.':error'}; |
'Internal error: unable to get environment '. |
} |
'for '.$sname.' in domain '.$sdom.'</font></td></tr>'); |
if ($error) { |
} else { |
$r->print('<tr><td colspan="6">'. |
$r->print(<<"END"); |
'<font color="#FF8888">Error</font>'. |
|
'Error retrieving data for '. |
|
join('@',split(/:/,$student)). |
|
', '.$error.'</td></tr>'."\n"); |
|
next; |
|
} |
|
my $username = $s_data->{$student.':username'}; |
|
my $domain = $s_data->{$student.':domain'}; |
|
my $section = $s_data->{$student.':section'}; |
|
my $name = $s_data->{$student.':fullname'}; |
|
my $status = $s_data->{$student.':Status'}; |
|
my $id = $s_data->{$student.':id'}; |
|
next if ($status ne 'Active'); |
|
# |
|
$r->print(<<"END"); |
<tr> |
<tr> |
<td><input type="checkbox" name="droplist" value="$_"></td> |
<td><input type="checkbox" name="droplist" value="$student"></td> |
<td>$sname</td> |
<td>$username</td> |
<td>$sdom</td> |
<td>$domain</td> |
<td>$reply{$sname}</td> |
<td>$id</td> |
<td>$info{'lastname'}, $info{'firstname'} $info{'middlename'}</td> |
<td>$name</td> |
<td>$info{'generation'}</td> |
<td>$section</td> |
<td>$ssec</td> |
|
</tr> |
</tr> |
END |
END |
} |
|
} |
} |
$r->print('</table><br>'); |
$r->print('</table><br>'); |
$r->print(<<"END"); |
$r->print(<<"END"); |
Line 1122 END
|
Line 1217 END
|
<input type="button" value="uncheck all" onclick="javascript:uncheckAll(document.studentform.droplist)"> |
<input type="button" value="uncheck all" onclick="javascript:uncheckAll(document.studentform.droplist)"> |
<p><input type=submit value="Drop Students"></p> |
<p><input type=submit value="Drop Students"></p> |
END |
END |
|
return; |
} |
} |
|
|
# |
# |
Line 1302 sub upfile_drop_add {
|
Line 1398 sub upfile_drop_add {
|
if ($ENV{'form.fullup'} eq 'yes') { |
if ($ENV{'form.fullup'} eq 'yes') { |
$r->print('<h3>Dropping Students</h3>'); |
$r->print('<h3>Dropping Students</h3>'); |
# Get current classlist |
# Get current classlist |
my ($error,%currentlist)=&get_current_classlist |
my ($error,%currentlist)=&get_current_classlist($r); |
($ENV{'course.'.$cid.'.domain'}, |
|
$ENV{'course.'.$cid.'.num'}); |
|
if (defined($error)) { |
if (defined($error)) { |
$r->print('<pre>ERROR:$error</pre>'); |
$r->print('<pre>ERROR:$error</pre>'); |
} |
} |
Line 1378 sub drop_student_list {
|
Line 1472 sub drop_student_list {
|
my ($uname,$udom)=split(/\:/,$_); |
my ($uname,$udom)=split(/\:/,$_); |
my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'}); |
my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'}); |
if ($result eq 'ok' || $result eq 'ok:') { |
if ($result eq 'ok' || $result eq 'ok:') { |
$r->print('Dropped '.$uname.' at '.$udom.'<br>'); |
$r->print('Dropped '.$uname.' @ '.$udom.'<br>'); |
} else { |
} else { |
$r->print('Error dropping '.$uname.' at '.$udom.': '.$result. |
$r->print('Error dropping '.$uname.' @ '.$udom.': '.$result. |
'<br />'); |
'<br />'); |
} |
} |
$count++; |
$count++; |
Line 1470 sub handler {
|
Line 1564 sub handler {
|
} |
} |
} elsif ($ENV{'form.action'} eq 'drop') { |
} elsif ($ENV{'form.action'} eq 'drop') { |
if (! exists($ENV{'form.state'})) { |
if (! exists($ENV{'form.state'})) { |
&menu_phase_two_drop($r); |
&print_drop_menu($r); |
} elsif ($ENV{'form.state'} eq 'done') { |
} elsif ($ENV{'form.state'} eq 'done') { |
&drop_student_list($r); |
&drop_student_list($r); |
} else { |
} else { |