version 1.51, 2002/09/18 14:17:47
|
version 1.66, 2003/05/21 16:06:09
|
Line 41 use Apache::lonnet();
|
Line 41 use Apache::lonnet();
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
|
use Spreadsheet::WriteExcel; |
|
|
############################################################### |
############################################################### |
############################################################### |
############################################################### |
Line 92 sub modifystudent {
|
Line 93 sub modifystudent {
|
} |
} |
} |
} |
if ($result eq '') { |
if ($result eq '') { |
$result eq 'Unable to find section for this student'; |
$result = 'Unable to find section for this student'; |
} else { |
} else { |
$result =~ s/(ok:)+/ok/g; |
$result =~ s/(ok:)+/ok/g; |
} |
} |
Line 212 sub javascript_validations {
|
Line 213 sub javascript_validations {
|
my %param = ( formname => 'studentform', |
my %param = ( formname => 'studentform', |
kerb_def_dom => $krbdefdom ); |
kerb_def_dom => $krbdefdom ); |
my $authheader = &Apache::loncommon::authform_header(%param); |
my $authheader = &Apache::loncommon::authform_header(%param); |
|
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
return (<<ENDPICK); |
return (<<ENDPICK); |
function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec) { |
function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec) { |
var foundatype=0; |
var foundatype=0; |
Line 220 function verify_message (vf,founduname,f
|
Line 222 function verify_message (vf,founduname,f
|
alert('You need to specify the username field'); |
alert('You need to specify the username field'); |
return; |
return; |
} |
} |
|
// alert('current.radiovalue = '+current.radiovalue); |
if (current.radiovalue == null || current.radiovalue == 'nochange') { |
if (current.radiovalue == null || current.radiovalue == 'nochange') { |
// They did not check any of the login radiobuttons. |
// They did not check any of the login radiobuttons. |
alert('You must choose an authentication type'); |
alert('You must choose an authentication type'); |
Line 284 function verify_message (vf,founduname,f
|
Line 287 function verify_message (vf,founduname,f
|
parmwin.close(); |
parmwin.close(); |
} |
} |
|
|
function pjump(type,dis,value,marker,ret,call) { |
$pjump_def |
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type) |
|
+"&value="+escape(value)+"&marker="+escape(marker) |
|
+"&return="+escape(ret) |
|
+"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms", |
|
"height=350,width=350,scrollbars=no,menubar=no"); |
|
|
|
} |
|
|
|
function dateset() { |
function dateset() { |
if (document.studentform.pres_marker.value=='end') { |
if (document.studentform.pres_marker.value=='end') { |
Line 459 ENDPICK
|
Line 455 ENDPICK
|
############################################################### |
############################################################### |
sub print_upload_manager_footer { |
sub print_upload_manager_footer { |
my ($r,$i,$keyfields,$defdom,$today,$halfyear)=@_; |
my ($r,$i,$keyfields,$defdom,$today,$halfyear)=@_; |
my %param = ( formname => 'document.studentform'); |
|
|
my ($krbdef,$krbdefdom) = |
|
&Apache::loncommon::get_kerberos_defaults($defdom); |
|
my %param = ( formname => 'document.studentform', |
|
kerb_def_dom => $krbdefdom, |
|
kerb_def_auth => $krbdef |
|
); |
my $krbform = &Apache::loncommon::authform_kerberos(%param); |
my $krbform = &Apache::loncommon::authform_kerberos(%param); |
my $intform = &Apache::loncommon::authform_internal(%param); |
my $intform = &Apache::loncommon::authform_internal(%param); |
my $locform = &Apache::loncommon::authform_local(%param); |
my $locform = &Apache::loncommon::authform_local(%param); |
Line 520 sub print_upload_manager_form {
|
Line 522 sub print_upload_manager_form {
|
my @records=&Apache::loncommon::upfile_record_sep(); |
my @records=&Apache::loncommon::upfile_record_sep(); |
my $total=$#records; |
my $total=$#records; |
my $distotal=$total+1; |
my $distotal=$total+1; |
$ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/; |
|
my $krbdefdom=$1; |
|
$krbdefdom=~tr/a-z/A-Z/; |
|
my $today=time; |
my $today=time; |
my $halfyear=$today+15552000; |
my $halfyear=$today+15552000; |
my $defdom=$r->dir_config('lonDefDomain'); |
my $defdom=$r->dir_config('lonDefDomain'); |
|
my ($krbdef,$krbdefdom) = |
|
&Apache::loncommon::get_kerberos_defaults($defdom); |
&print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom); |
&print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom); |
my $i; |
my $i; |
my $keyfields; |
my $keyfields; |
Line 558 sub print_upload_manager_form {
|
Line 559 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 594 sub enroll_single_student {
|
Line 595 sub enroll_single_student {
|
my $home = &Apache::lonnet::homeserver($ENV{'form.cuname'}, |
my $home = &Apache::lonnet::homeserver($ENV{'form.cuname'}, |
$ENV{'form.lcdomain'}); |
$ENV{'form.lcdomain'}); |
if ((($amode) && ($genpwd)) || ($home ne 'no_host')) { |
if ((($amode) && ($genpwd)) || ($home ne 'no_host')) { |
|
# Clean out any old roles the student has in this class. |
&modifystudent($ENV{'form.lcdomain'},$ENV{'form.cuname'}, |
&modifystudent($ENV{'form.lcdomain'},$ENV{'form.cuname'}, |
$ENV{'request.course.id'},$ENV{'form.csec'}, |
$ENV{'request.course.id'},$ENV{'form.csec'}, |
$desiredhost); |
$desiredhost); |
$r->print(&Apache::lonnet::modifystudent( |
my $login_result = &Apache::lonnet::modifystudent |
$ENV{'form.lcdomain'},$ENV{'form.cuname'}, |
($ENV{'form.lcdomain'},$ENV{'form.cuname'}, |
$ENV{'form.cstid'},$amode,$genpwd, |
$ENV{'form.cstid'},$amode,$genpwd, |
$ENV{'form.cfirst'},$ENV{'form.cmiddle'}, |
$ENV{'form.cfirst'},$ENV{'form.cmiddle'}, |
$ENV{'form.clast'},$ENV{'form.cgen'}, |
$ENV{'form.clast'},$ENV{'form.cgen'}, |
$ENV{'form.csec'},$ENV{'form.enddate'}, |
$ENV{'form.csec'},$ENV{'form.enddate'}, |
$ENV{'form.startdate'},$ENV{'form.forceid'}, |
$ENV{'form.startdate'},$ENV{'form.forceid'}, |
$desiredhost)); |
$desiredhost); |
|
if ($login_result =~ /^ok/) { |
|
$r->print($login_result); |
|
$r->print("<p> If active, the new role will be available ". |
|
"when the student next logs in to LON-CAPA.</p>"); |
|
} else { |
|
$r->print("unable to enroll: ".$login_result); |
|
} |
} else { |
} else { |
$r->print('<p><font color="#ff0000">ERROR</font> '. |
$r->print('<p><font color="#ff0000">ERROR</font> '. |
'Invalid login mode or password. '. |
'Invalid login mode or password. '. |
Line 619 sub enroll_single_student {
|
Line 628 sub enroll_single_student {
|
sub print_enroll_single_student_form { |
sub print_enroll_single_student_form { |
my $r=shift; |
my $r=shift; |
$r->print("<h3>Enroll One Student</h3>"); |
$r->print("<h3>Enroll One Student</h3>"); |
my ($krbdefdom) = $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/; |
|
$krbdefdom=~tr/a-z/A-Z/; |
|
my $today = time; |
my $today = time; |
my $halfyear = $today+15552000; |
my $halfyear = $today+15552000; |
my $defdom=$r->dir_config('lonDefDomain'); |
my $defdom=$r->dir_config('lonDefDomain'); |
my $javascript_validations=&javascript_validations($krbdefdom); |
|
# Set up authentication forms |
# Set up authentication forms |
my %param = ( formname => 'document.studentform'); |
my ($krbdef,$krbdefdom) = |
|
&Apache::loncommon::get_kerberos_defaults($defdom); |
|
my $javascript_validations=&javascript_validations($krbdefdom); |
|
my %param = ( formname => 'document.studentform', |
|
kerb_def_dom => $krbdefdom, |
|
kerb_def_auth => $krbdef |
|
); |
my $krbform = &Apache::loncommon::authform_kerberos(%param); |
my $krbform = &Apache::loncommon::authform_kerberos(%param); |
my $intform = &Apache::loncommon::authform_internal(%param); |
my $intform = &Apache::loncommon::authform_internal(%param); |
my $locform = &Apache::loncommon::authform_local(%param); |
my $locform = &Apache::loncommon::authform_local(%param); |
Line 726 END
|
Line 738 END
|
return; |
return; |
} |
} |
|
|
# =================================================== get the current classlist |
|
sub get_current_classlist { |
|
my $r = shift; |
|
# Call DownloadClasslist |
|
my $cid = $ENV{'request.course.id'}; |
|
my $c = $r->connection; |
|
my $classlisthash = &Apache::loncoursedata::DownloadClasslist |
|
($cid,'Not downloaded',$c); |
|
# Call ProcessClasslist |
|
my %cache; |
|
my @students = &Apache::loncoursedata::ProcessClasslist(\%cache, |
|
$classlisthash, |
|
$cid,$c); |
|
return (\@students,\%cache); |
|
} |
|
|
|
# ========================================================= Menu Phase Two Drop |
# ========================================================= Menu Phase Two Drop |
sub print_drop_menu { |
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 ($student_array,$student_data)=&get_current_classlist($r); |
my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist(); |
if (! scalar(@$student_array)) { |
if (! defined($classlist)) { |
$r->print("There are no students currently enrolled.\n"); |
$r->print("There are no students currently enrolled.\n"); |
return; |
return; |
} |
} |
# Print out the available choices |
# Print out the available choices |
&show_drop_list($student_array,$student_data,$r); |
&show_drop_list($r,$classlist,$keylist); |
return; |
return; |
} |
} |
|
|
# ============================================== view classlist |
# ============================================== view classlist |
sub print_html_classlist { |
sub print_html_classlist { |
my $r=shift; |
my $r=shift; |
|
if (! exists($ENV{'form.sortby'})) { |
|
$ENV{'form.sortby'} = 'username'; |
|
} |
|
if ($ENV{'form.Status'} !~ /^(Any|Expired|Active)$/) { |
|
$ENV{'form.Status'} = 'Active'; |
|
} |
|
my $status_select = &Apache::lonhtmlcommon::StatusOptions |
|
($ENV{'form.Status'},'studentform'); |
$r->print(<<END); |
$r->print(<<END); |
|
<input type="hidden" name="action" value="$ENV{'form.action'}" /> |
|
<input type="hidden" name="state" value="" /> |
<p> |
<p> |
<font size="+1">Current Classlist</font> |
<font size="+1">Current Classlist</font> |
<font size="+1"><a href="/adm/dropadd?action=classlist&state=csv">CSV format</a></font> |
|
</p> |
|
END |
END |
|
if ($ENV{'form.action'} ne 'modifystudent') { |
|
$r->print(<<END); |
|
<font size="+1"> |
|
<a href="javascript:document.studentform.state.value='csv';document.studentform.submit();">CSV format</a> |
|
|
|
<a href="javascript:document.studentform.state.value='excel';document.studentform.submit();">Excel format</a> |
|
</font> |
|
|
|
Student Status: |
|
END |
|
} |
|
$r->print($status_select."</p>\n"); |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
my ($student_array,$student_data)=&get_current_classlist($r); |
my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist(); |
if (! scalar(@$student_array)) { |
if (! defined($classlist)) { |
$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',$student_array,$student_data); |
&show_class_list($r,'view','modify','modifystudent', |
|
$ENV{'form.Status'},$classlist,$keylist); |
} else { |
} else { |
&show_class_list($r,'view','aboutme',$student_array,$student_data); |
&show_class_list($r,'view','aboutme','classlist', |
|
$ENV{'form.Status'},$classlist,$keylist); |
} |
} |
} |
} |
} |
} |
|
|
# ============================================== view classlist |
# ============================================== view classlist |
sub print_csv_classlist { |
sub print_formatted_classlist { |
my $r=shift; |
my $r=shift; |
|
my $mode = shift; |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
my ($student_array,$student_data)=&get_current_classlist($r); |
my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist(); |
if (! scalar(@$student_array)) { |
if (! defined($classlist)) { |
$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,$mode,'nolink','csv', |
|
$ENV{'form.Status'},$classlist,$keylist); |
} |
} |
} |
} |
|
|
# =================================================== 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,$classlist,$keylist)=@_; |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
|
# |
|
# Variables for excel output |
|
my ($excel_workbook, $excel_sheet, $excel_filename,$row); |
|
# |
|
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') { |
$r->print('Select a user name to view the users page.'); |
$r->print('Select a user name to view the users personal page.'); |
} elsif ($linkto eq 'modify') { |
} elsif ($linkto eq 'modify') { |
$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" /> |
|
<input type="hidden" name="sname" value="" /> |
|
<input type="hidden" name="sdom" value="" /> |
<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="javascript:document.studentform.sortby.value='username';document.studentform.submit();">username</a> |
|
</th><th> |
|
<a href="javascript:document.studentform.sortby.value='domain';document.studentform.submit();">domain</a> |
|
</th><th> |
|
<a href="javascript:document.studentform.sortby.value='id';document.studentform.submit();">ID</a> |
|
</th><th> |
|
<a href="javascript:document.studentform.sortby.value='fullname';document.studentform.submit();">student name</a> |
|
</th><th> |
|
<a href="javascript:document.studentform.sortby.value='section';document.studentform.submit();">section</a> |
|
</th> |
|
</tr> |
END |
END |
} elsif ($mode eq 'csv') { |
} elsif ($mode eq 'csv') { |
$r->print('"'.join('","',("username","domain","ID","student name", |
if($statusmode eq 'Expired') { |
"section")).'"'."\n"); |
$r->print('"Students with expired roles"'); |
|
} |
|
if ($statusmode eq 'Any') { |
|
$r->print('"'.join('","',("username","domain","ID","student name", |
|
"section","status")).'"'."\n"); |
|
} else { |
|
$r->print('"'.join('","',("username","domain","ID","student name", |
|
"section")).'"'."\n"); |
|
} |
|
} elsif ($mode eq 'excel') { |
|
# Create the excel spreadsheet |
|
$excel_filename = '/prtspool/'. |
|
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'. |
|
time.'_'.rand(1000000000).'.xls'; |
|
$excel_workbook = Spreadsheet::WriteExcel->new('/home/httpd'. |
|
$excel_filename); |
|
$excel_workbook->set_tempdir('/home/httpd/perl/tmp'); |
|
$excel_sheet = $excel_workbook->addworksheet('classlist'); |
|
# |
|
my $description = 'Classlist for '. |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
|
$excel_sheet->write($row++,0,$description); |
|
# |
|
$excel_sheet->write($row++,0,["username","domain","ID", |
|
"student name","section","status"]); |
} |
} |
foreach my $student (@$students) { |
# |
my $username = $student_data->{$student.':username'}; |
# Sort the students |
my $domain = $student_data->{$student.':domain'}; |
my %index; |
my $section = $student_data->{$student.':section'}; |
my $i; |
my $name = $student_data->{$student.':fullname'}; |
foreach (@$keylist) { |
my $status = $student_data->{$student.':Status'}; |
$index{$_} = $i++; |
my $id = $student_data->{$student.':id'}; |
} |
next if ($status ne 'Active'); |
my $index = $index{$sortby}; |
|
my $second = $index{'username'}; |
|
my $third = $index{'domain'}; |
|
my @Sorted_Students = sort { |
|
lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index]) |
|
|| |
|
lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second]) |
|
|| |
|
lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third]) |
|
} (keys(%$classlist)); |
|
foreach my $student (@Sorted_Students) { |
|
my $username = $classlist->{$student}->[$index{'username'}]; |
|
my $domain = $classlist->{$student}->[$index{'domain'}]; |
|
my $section = $classlist->{$student}->[$index{'section'}]; |
|
my $name = $classlist->{$student}->[$index{'fullname'}]; |
|
my $id = $classlist->{$student}->[$index{'id'}]; |
|
my $status = $classlist->{$student}->[$index{'status'}]; |
|
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 830 END
|
Line 914 END
|
$username, |
$username, |
$domain)); |
$domain)); |
} elsif ($linkto eq 'modify') { |
} elsif ($linkto eq 'modify') { |
$r->print('<a href="/adm/dropadd?action=modifystudent'. |
$r->print('<a href="'. |
'&state=selected'.'&sname='.$username. |
"javascript:document.studentform.sname.value='". |
'&sdom='.$domain.'">'.$username."</a>\n"); |
$username. |
|
"';document.studentform.sdom.value='".$domain. |
|
"';document.studentform.state.value='selected". |
|
"';document.studentform.submit();".'">'. |
|
$username."</a>\n"); |
} |
} |
$r->print(<<"END"); |
$r->print(<<"END"); |
</td> |
</td> |
Line 848 END
|
Line 936 END
|
foreach ($username,$domain,$id,$name,$section) { |
foreach ($username,$domain,$id,$name,$section) { |
push @line,&Apache::loncommon::csv_translate($_); |
push @line,&Apache::loncommon::csv_translate($_); |
} |
} |
|
if ($statusmode eq 'Any') { |
|
push @line,&Apache::loncommon::csv_translate($status); |
|
} |
my $tmp = $"; |
my $tmp = $"; |
$" = '","'; |
$" = '","'; |
$r->print("\"@line\"\n"); |
$r->print("\"@line\"\n"); |
$" = $tmp; |
$" = $tmp; |
|
} elsif ($mode eq 'excel') { |
|
$excel_sheet->write($row++,0,[$username,$domain,$id, |
|
$name,$section,$status]); |
} |
} |
} |
} |
$r->print('</table><br>') if ($mode eq 'view'); |
if ($mode eq 'view') { |
|
$r->print('</table><br>'); |
|
} elsif ($mode eq 'excel') { |
|
$excel_workbook->close(); |
|
$r->print('<p><a href="'.$excel_filename.'">'. |
|
'Your Excel spreadsheet</a> is ready for download.</p>'."\n"); |
|
} |
} |
} |
|
|
|
|
Line 864 END
|
Line 964 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']); |
|
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 892 sub print_modify_student_form {
|
Line 992 sub print_modify_student_form {
|
my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform', |
my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform', |
'enddate', |
'enddate', |
$endtime); |
$endtime); |
|
# |
|
if (! exists($ENV{'form.Status'}) || |
|
$ENV{'form.Status'} !~ /^(Any|Expired|Active)$/) { |
|
$ENV{'form.Status'} = 'crap'; |
|
} |
# 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" /> |
|
<input type="hidden" name="Status" value="$ENV{'form.Status'}" /> |
|
|
<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 1024 $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 1048 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' and 'Status' variables so the user goes back to their |
|
# previous screen |
|
my $sortby = $ENV{'form.sortby'}; |
|
my $status = $ENV{'form.Status'}; |
|
# |
|
# 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); |
|
$old{'section'} = &Apache::lonnet::getsection($sdom,$slogin, |
|
$ENV{'request.course.id'}); |
|
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', |
my $endtime = &Apache::lonhtmlcommon::get_date_from_form('enddate'); |
time); |
|
my $endtime = &Apache::lonhtmlcommon::get_date_from_form('enddate', |
|
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 ((defined($old{'id'})) && ($old{'id'} ne '') && |
|
($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><tr> |
|
<td> <b>Section</b> </td> |
|
<td> $old{'section'} </td> |
|
<td> $section</td> |
|
</tr> |
</table> |
</table> |
<h3>Role Information</h3> |
<h3>Role Information</h3> |
<table> |
<table> |
<tr><td>Section </td><td> $section </td></tr> |
|
<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 (final undef is for 'desiredhost', |
#my $roleresults = &Apache::lonnet::assignrole($sdom,$sname, |
# which is a moot point because the student already has an account. |
# $courseid.'/'.$section, |
my $modify_section_results = &modifystudent($sdom,$slogin, |
# 'st', |
$ENV{'request.course.id'}, |
# $endtime,$starttime); |
$section,undef); |
if ($roleresults =~/refused/) { |
if ($modify_section_results !~ /^ok/) { |
|
$r->print("An error occured during the attempt to change the ". |
|
"section for this student.<br />"); |
|
} |
|
my $roleresults = &Apache::lonnet::modifystudent |
|
($sdom,$slogin,$sid,undef,undef,$firstname,$middlename,$lastname, |
|
$generation,$section,$endtime,$starttime,$ENV{'form.forceid'}); |
|
if ($roleresults eq '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> |
|
<input type="hidden" name="action" value="modifystudent" /> |
|
<input type="hidden" name="sortby" value="$sortby" /> |
|
<input type="hidden" name="Status" value="$status" /> |
|
<a href="javascript:document.studentform.submit();">Modify another students data</a> |
</body></html> |
</body></html> |
END |
END |
return; |
return; |
Line 1017 sub get_enrollment_data {
|
Line 1212 sub get_enrollment_data {
|
return ($start,$end,$section); |
return ($start,$end,$section); |
} |
} |
|
|
# =================================================== Show student list to drop |
################################################# |
|
################################################# |
|
|
|
=pod |
|
|
|
=item show_drop_list |
|
|
|
Display a list of students to drop |
|
Inputs: |
|
|
|
=over 4 |
|
|
|
=item $r, Apache request |
|
|
|
=item $classlist, hash pointer returned from loncoursedata::get_classlist(); |
|
|
|
=item $keylist, array pointer returned from loncoursedata::get_classlist() |
|
which describes the order elements are stored in the %$classlist values. |
|
|
|
=item $nosort, if true, sorting links are omitted. |
|
|
|
=back |
|
|
|
=cut |
|
|
|
################################################# |
|
################################################# |
sub show_drop_list { |
sub show_drop_list { |
my ($students,$student_data,$r)=@_; |
my ($r,$classlist,$keylist,$nosort)=@_; |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
$r->print(<<'END'); |
if (! exists($ENV{'form.sortby'})) { |
<input type="hidden" name="action" value="drop" /> |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['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 1037 function uncheckAll(field) {
|
Line 1269 function uncheckAll(field) {
|
</script> |
</script> |
<p> |
<p> |
<input type="hidden" name="phase" value="four"> |
<input type="hidden" name="phase" value="four"> |
|
END |
|
|
|
if ($nosort) { |
|
$r->print(<<END); |
<table border=2> |
<table border=2> |
<tr><th> </th><th>username</th><th>domain</th> |
<tr> |
<th>ID</th><th>student name</th><th>section</th></tr> |
<th> </th> |
|
<th>username</th> |
|
<th>domain</th> |
|
<th>ID</th> |
|
<th>student name</th> |
|
<th>section</th> |
|
</tr> |
|
END |
|
|
|
} else { |
|
$r->print(<<END); |
|
<table border=2> |
|
<tr><th> </th> |
|
<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 $username = $student_data->{$student.':username'}; |
# |
my $domain = $student_data->{$student.':domain'}; |
# Sort the students |
my $section = $student_data->{$student.':section'}; |
my %index; |
my $name = $student_data->{$student.':fullname'}; |
my $i; |
my $status = $student_data->{$student.':Status'}; |
foreach (@$keylist) { |
my $id = $student_data->{$student.':id'}; |
$index{$_} = $i++; |
|
} |
|
my $index = $index{$sortby}; |
|
my $second = $index{'username'}; |
|
my $third = $index{'domain'}; |
|
my @Sorted_Students = sort { |
|
lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index]) |
|
|| |
|
lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second]) |
|
|| |
|
lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third]) |
|
} (keys(%$classlist)); |
|
foreach my $student (@Sorted_Students) { |
|
my $error; |
|
my $username = $classlist->{$student}->[$index{'username'}]; |
|
my $domain = $classlist->{$student}->[$index{'domain'}]; |
|
my $section = $classlist->{$student}->[$index{'section'}]; |
|
my $name = $classlist->{$student}->[$index{'fullname'}]; |
|
my $id = $classlist->{$student}->[$index{'id'}]; |
|
my $status = $classlist->{$student}->[$index{'status'}]; |
next if ($status ne 'Active'); |
next if ($status ne 'Active'); |
# |
# |
$r->print(<<"END"); |
$r->print(<<"END"); |
Line 1216 sub upfile_drop_add {
|
Line 1495 sub upfile_drop_add {
|
} |
} |
} |
} |
} |
} |
|
# Clean up whitespace |
|
foreach (\$domain,\$username,\$id,\$fname,\$mname, |
|
\$lname,\$gen,\$sec) { |
|
$$_ =~ s/(\s+$|^\s+)//g; |
|
} |
if ($password) { |
if ($password) { |
&modifystudent($domain,$username,$cid,$sec, |
&modifystudent($domain,$username,$cid,$sec, |
$desiredhost); |
$desiredhost); |
Line 1242 sub upfile_drop_add {
|
Line 1526 sub upfile_drop_add {
|
} |
} |
} |
} |
} # end of foreach (@studentdata) |
} # end of foreach (@studentdata) |
$r->print('<p>Processed Students: '.$count); |
$r->print('<p>Processed Students: '.$count.'</p>'); |
|
$r->print("<p>If active, the new role will be available when the ". |
|
"students next log in to LON-CAPA.</p>"); |
##################################### |
##################################### |
# Drop students # |
# Drop students # |
##################################### |
##################################### |
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($r); |
my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist(); |
if (defined($error)) { |
if (! defined($classlist)) { |
$r->print('<pre>ERROR:$error</pre>'); |
$r->print("There are no students currently enrolled.\n"); |
} |
} else { |
if (defined(%currentlist)) { |
# Remove the students we just added from the list of students. |
# Drop the students |
|
foreach (@studentdata) { |
foreach (@studentdata) { |
my %entries=&Apache::loncommon::record_sep($_); |
my %entries=&Apache::loncommon::record_sep($_); |
unless (($entries{$fields{'username'}} eq '') || |
unless (($entries{$fields{'username'}} eq '') || |
(!defined($entries{$fields{'username'}}))) { |
(!defined($entries{$fields{'username'}}))) { |
delete($currentlist{$entries{$fields{'username'}}. |
delete($classlist->{$entries{$fields{'username'}}. |
':'.$domain}); |
':'.$domain}); |
} |
} |
} |
} |
# Print out list of dropped students |
# Print out list of dropped students. |
&show_drop_list($r,%currentlist); |
&show_drop_list($r,$classlist,$keylist,'nosort'); |
} else { |
|
$r->print("There are no students currently enrolled.\n"); |
|
} |
} |
} |
} |
} # end of unless |
} # end of unless |
} |
} |
|
|
################################################################### |
|
################################################################### |
|
|
|
=pod |
|
|
|
=item &drop_students |
|
|
|
Inputs: \@droplist, a pointer to an array of students to drop. |
|
Students should be in format of studentname:studentdomain |
|
|
|
Returns: $errors, a string describing any errors encountered. |
|
$successes, a string describing the successful dropping of students. |
|
|
|
=cut |
|
|
|
################################################################### |
|
################################################################### |
|
sub drop_students { |
|
my @droplist = @{shift()}; |
|
my $courseid = $ENV{'request.course.id'}; |
|
my $successes = ''; |
|
my $errors = ''; |
|
foreach (@droplist) { |
|
my ($sname,$sdom)=split(/:/,$_); |
|
my $result = &drop_student($sname,$sdom,$courseid); |
|
if ($result !~ /ok/) { |
|
$errors .= "Error dropping $sname\@$sdom: $result\n"; |
|
} else { |
|
$successes .= "Dropped $sname\@$sdom\n"; |
|
} |
|
} |
|
return ($errors,$successes); |
|
} |
|
################################################################### |
|
################################################################### |
|
|
|
|
|
# ================================================================== Phase four |
# ================================================================== Phase four |
sub drop_student_list { |
sub drop_student_list { |
my $r=shift; |
my $r=shift; |
Line 1321 sub drop_student_list {
|
Line 1567 sub drop_student_list {
|
} |
} |
foreach (@droplist) { |
foreach (@droplist) { |
my ($uname,$udom)=split(/\:/,$_); |
my ($uname,$udom)=split(/\:/,$_); |
|
# drop student |
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>'); |
|
$count++; |
} else { |
} else { |
$r->print('Error dropping '.$uname.' at '.$udom.': '.$result. |
$r->print('Error dropping '.$uname.' @ '.$udom.': '.$result. |
'<br />'); |
'<br />'); |
} |
} |
$count++; |
|
} |
} |
$r->print('<p><b>Dropped '.$count.' student(s).</b>'); |
$r->print('<p><b>Dropped '.$count.' student(s).</b>'); |
$r->print('<p>Re-enrollment will re-activate data.'); |
$r->print('<p>Re-enrollment will re-activate data.') if ($count); |
} |
} |
|
|
################################################################### |
################################################################### |
Line 1419 sub handler {
|
Line 1666 sub handler {
|
} elsif ($ENV{'form.state'} eq 'done') { |
} elsif ($ENV{'form.state'} eq 'done') { |
&drop_student_list($r); |
&drop_student_list($r); |
} else { |
} else { |
&menu_phase_two_drop($r); |
&print_drop_menu($r); |
} |
} |
} elsif ($ENV{'form.action'} eq 'enrollstudent') { |
} elsif ($ENV{'form.action'} eq 'enrollstudent') { |
if (! exists($ENV{'form.state'})) { |
if (! exists($ENV{'form.state'})) { |
Line 1433 sub handler {
|
Line 1680 sub handler {
|
if (! exists($ENV{'form.state'})) { |
if (! exists($ENV{'form.state'})) { |
&print_html_classlist($r); |
&print_html_classlist($r); |
} elsif ($ENV{'form.state'} eq 'csv') { |
} elsif ($ENV{'form.state'} eq 'csv') { |
&print_csv_classlist($r); |
&print_formatted_classlist($r,'csv'); |
|
} elsif ($ENV{'form.state'} eq 'excel') { |
|
&print_formatted_classlist($r,'excel'); |
} else { |
} else { |
&print_html_classlist($r); |
&print_html_classlist($r); |
} |
} |