version 1.51, 2002/09/18 14:17:47
|
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 773 END
|
Line 773 END
|
} 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',$student_array,$student_data); |
&show_class_list($r,'view','modify','modifystudent', |
|
'any',$student_array,$student_data); |
} else { |
} else { |
&show_class_list($r,'view','aboutme',$student_array,$student_data); |
&show_class_list($r,'view','aboutme','classlist', |
|
'any',$student_array,$student_data); |
} |
} |
} |
} |
} |
} |
Line 788 sub print_csv_classlist {
|
Line 790 sub print_csv_classlist {
|
if (! scalar(@$student_array)) { |
if (! scalar(@$student_array)) { |
$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',$student_array,$student_data); |
&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,$students,$student_data)=@_; |
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 804 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>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","student name", |
$r->print('"'.join('","',("username","domain","ID","student name", |
"section")).'"'."\n"); |
"section")).'"'."\n"); |
} |
} |
foreach my $student (@$students) { |
my @Sorted_Students = sort { |
my $username = $student_data->{$student.':username'}; |
lc($s_data->{$a.':'.$sortby}) cmp lc($s_data->{$b.':'.$sortby}) |
my $domain = $student_data->{$student.':domain'}; |
|| |
my $section = $student_data->{$student.':section'}; |
lc($s_data->{$a.':username'}) cmp lc($s_data->{$b.':username'}) |
my $name = $student_data->{$student.':fullname'}; |
|| |
my $status = $student_data->{$student.':Status'}; |
lc($s_data->{$a.':domain'}) cmp lc($s_data->{$b.':domain'}) |
my $id = $student_data->{$student.':id'}; |
} @$students; |
next if ($status ne 'Active'); |
foreach my $student (@Sorted_Students) { |
|
my $error; |
|
if (exists($s_data->{$student.':error'})) { |
|
$error = $s_data->{$student.':error'}; |
|
} |
|
if ($error) { |
|
$r->print('<tr><td colspan="6">'. |
|
'<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 (($statusmode ne 'any') && ($status ne $statusmode)); |
if ($mode eq 'view') { |
if ($mode eq 'view') { |
$r->print("<tr>\n <td>\n "); |
$r->print("<tr>\n <td>\n "); |
if ($linkto eq 'nothing') { |
if ($linkto eq 'nothing') { |
Line 832 END
|
Line 871 END
|
} elsif ($linkto eq 'modify') { |
} elsif ($linkto eq 'modify') { |
$r->print('<a href="/adm/dropadd?action=modifystudent'. |
$r->print('<a href="/adm/dropadd?action=modifystudent'. |
'&state=selected'.'&sname='.$username. |
'&state=selected'.'&sname='.$username. |
'&sdom='.$domain.'">'.$username."</a>\n"); |
'&sdom='.$domain.'&sortby='.$sortby.'">'. |
|
$username."</a>\n"); |
} |
} |
$r->print(<<"END"); |
$r->print(<<"END"); |
</td> |
</td> |
Line 864 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 894 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 911 $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 929 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 960 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 1019 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 ($students,$student_data,$r)=@_; |
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) { |
Line 1038 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>section</th></tr> |
<th> |
|
<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 my $student (@$students) { |
my @Sorted_Students = sort { |
my $username = $student_data->{$student.':username'}; |
lc($s_data->{$a.':'.$sortby}) cmp lc($s_data->{$b.':'.$sortby}) |
my $domain = $student_data->{$student.':domain'}; |
|| |
my $section = $student_data->{$student.':section'}; |
lc($s_data->{$a.':username'}) cmp lc($s_data->{$b.':username'}) |
my $name = $student_data->{$student.':fullname'}; |
|| |
my $status = $student_data->{$student.':Status'}; |
lc($s_data->{$a.':domain'}) cmp lc($s_data->{$b.':domain'}) |
my $id = $student_data->{$student.':id'}; |
} @$students; |
|
foreach my $student (@Sorted_Students) { |
|
my $error; |
|
if (exists($s_data->{$student.':error'})) { |
|
$error = $s_data->{$student.':error'}; |
|
} |
|
if ($error) { |
|
$r->print('<tr><td colspan="6">'. |
|
'<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'); |
next if ($status ne 'Active'); |
# |
# |
$r->print(<<"END"); |
$r->print(<<"END"); |
Line 1323 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++; |