loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.55 and 1.78

version 1.55, 2002/09/26 14:04:34	version 1.78, 2003/07/25 18:51:18
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 78 sub modifystudent {	Line 79 sub modifystudent {
# We are in this course	# We are in this course
my $section=$1;	my $section=$1;
$section='' if ($course eq $courseid.'_st');	$section='' if ($course eq $courseid.'_st');
if ( ((!$section) && (!$csec)) \|\| ($section ne $csec) ) {	if ($section eq $csec) {
	$result .= 'ok:';
	} elsif ( ((!$section) && (!$csec)) \|\| ($section ne $csec) ) {
my (undef,$end,$start)=split(/\_/,$roles{$course});	my (undef,$end,$start)=split(/\_/,$roles{$course});
my $now=time;	my $now=time;
# if this is an active role	# if this is an active role
if (!($start && ($now<$start)) \|\| !($end && ($now>$end))) {	if (!($start && ($now<$start)) \|\| !($end && ($now>$end))) {
my $reply=&Apache::lonnet::modifystudent	my $reply=&Apache::lonnet::modifystudent
($udom,$unam,'','','','','','','',	# dom name id mode pass f m l g
	($udom,$unam,'', '', '',undef,undef,undef,undef,
$section,time,undef,undef,$desiredhost);	$section,time,undef,undef,$desiredhost);
$result .= $reply.':';	$result .= $reply.':';
}	}
Line 92 sub modifystudent {	Line 96 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 150 sub print_main_menu {	Line 154 sub print_main_menu {
</font>	</font>
</p><p>	</p><p>
<font size="+1">	<font size="+1">
<a href="/adm/dropadd?action=classlist">View Classlist</a>	<a href="/adm/dropadd?action=classlist">View Class List</a>
</font>	</font>
</p><p>	</p><p>
<font size="+1">	<font size="+1">
Line 212 sub javascript_validations {	Line 216 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,foundemail) {
var foundatype=0;	var foundatype=0;
var message='';	var message='';
if (founduname==0) {	if (founduname==0) {
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 248 function verify_message (vf,founduname,f	Line 254 function verify_message (vf,founduname,f
}	}
}	}

if (foundname==0) { message='No name fields specified. '; }	if (foundname==0) { message='name fields'; }
if (foundid==0) { message+='No ID or student number field specified. '; }	if (foundid==0) { if (message!='') { message+=', '; } message+='student number field'; }
if (foundsec==0) { message+='No section or group field specified. '; }	if (foundsec==0) { if (message!='') { message+=', '; } message+='section or group field'; }
if (vf.startdate.value=='') {	if (foundemail==0) { if (message!='') { message+=', '; } message+='email address field'; }
message+='No starting date set. ';
}
if (vf.enddate.value=='') {
message+='No ending date set. ';
}
if ((vf.enddate.value!='') && (vf.startdate.value!='')) {
if (Math.round(vf.enddate.value)<Math.round(vf.startdate.value)) {
alert('Ending date is before starting date');
return;
}
}
if (message!='') {	if (message!='') {
message+='Continue enrollment?';	message='Not specified (optional): '+message+'. Continue enrollment?';
if (confirm(message)) {	if (confirm(message)) {
pclose();
vf.state.value='enrolling';	vf.state.value='enrolling';
vf.submit();	vf.submit();
}	}
} else {	} else {
pclose();
vf.state.value='enrolling';	vf.state.value='enrolling';
vf.submit();	vf.submit();
}	}
}	}

	$authheader
	ENDPICK

function pclose() {	}
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
"height=350,width=350,scrollbars=no,menubar=no");
parmwin.close();
}

function pjump(type,dis,value,marker,ret,call) {
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");

	sub javascript_validations_without_auth {
	my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
	return (<<ENDPICK);
	function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) {
	var foundatype=0;
	var message='';
	if (founduname==0) {
	alert('You need to specify the username field');
	return;
}	}
	if (foundname==0) { message='name fields'; }
function dateset() {	if (foundid==0) { if (message!='') { message+=', '; } message+='student number field'; }
if (document.studentform.pres_marker.value=='end') {	if (foundsec==0) { if (message!='') { message+=', '; } message+='section or group field'; }
document.studentform.enddate.value=	if (foundemail==0) { if (message!='') { message+=', '; } message+='email address field'; }
document.studentform.pres_value.value;	if (message!='') {
}	message='Not specified (optional): '+message+'. Continue enrollment?';
if (document.studentform.pres_marker.value=='start') {	if (confirm(message)) {
document.studentform.startdate.value=	vf.state.value='enrolling';
document.studentform.pres_value.value;	vf.submit();
}	}
pclose();	} else {
	vf.state.value='enrolling';
	vf.submit();
}	}
	}

$authheader
ENDPICK	ENDPICK

}	}
Line 320 function verify(vf) {	Line 315 function verify(vf) {
var foundname=0;	var foundname=0;
var foundid=0;	var foundid=0;
var foundsec=0;	var foundsec=0;
	var foundemail=0;
var tw;	var tw;
for (i=0;i<=vf.nfields.value;i++) {	for (i=0;i<=vf.nfields.value;i++) {
tw=eval('vf.f'+i+'.selectedIndex');	tw=eval('vf.f'+i+'.selectedIndex');
Line 328 function verify(vf) {	Line 324 function verify(vf) {
if (tw==7) { foundid=1; }	if (tw==7) { foundid=1; }
if (tw==8) { foundsec=1; }	if (tw==8) { foundsec=1; }
if (tw==9) { foundpwd=1; }	if (tw==9) { foundpwd=1; }
	if (tw==10) { foundemail=1; }
}	}
verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);	verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail);
}	}

//	//
Line 348 function verify(vf) {	Line 345 function verify(vf) {
// 7 = id	// 7 = id
// 8 = section	// 8 = section
// 9 = ipwd (password)	// 9 = ipwd (password)
//	// 10 = email address

function flip(vf,tf) {	function flip(vf,tf) {
var nw=eval('vf.f'+tf+'.selectedIndex');	var nw=eval('vf.f'+tf+'.selectedIndex');
var i;	var i;
Line 459 ENDPICK	Line 457 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);
my $domform = &domain_form($defdom);	my $domform = &domain_form($defdom);
	my $date_table = &date_setting_table();
$r->print(<<ENDPICK);	$r->print(<<ENDPICK);
</table>	</table>
<input type=hidden name=nfields value=$i>	<input type=hidden name=nfields value=$i>
Line 482 $locform	Line 487 $locform
<h3>LON-CAPA Domain for Students</h3>	<h3>LON-CAPA Domain for Students</h3>
LON-CAPA domain: $domform <p>	LON-CAPA domain: $domform <p>
<h3>Starting and Ending Dates</h3>	<h3>Starting and Ending Dates</h3>
<input type="hidden" value='' name="pres_value" >	<p>
<input type="hidden" value='' name="pres_type" >	$date_table
<input type="hidden" value='' name="pres_marker" >	</p>
<input type="hidden" value='$today' name="startdate" >
<input type="hidden" value='$halfyear' name="enddate" >
<a
href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"
>Set Starting Date</a><p>

<a
href="javascript:pjump('date_end','Enrollment Ending Date',document.studentform.enddate.value,'end','studentform.pres','dateset');"
>Set Ending Date</a><p>
<h3>Full Update</h3>	<h3>Full Update</h3>
<input type=checkbox name=fullup value=yes> Full update	<input type=checkbox name=fullup value=yes> Full update
(also print list of users not enrolled anymore)<p>	(also print list of users not enrolled anymore)<p>
Line 520 sub print_upload_manager_form {	Line 516 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 538 sub print_upload_manager_form {	Line 533 sub print_upload_manager_form {
['gen','Generation'],	['gen','Generation'],
['id','ID/Student Number'],	['id','ID/Student Number'],
['sec','Group/Section'],	['sec','Group/Section'],
['ipwd','Initial Password']);	['ipwd','Initial Password'],
	['email','EMail Address']);
if ($ENV{'form.upfile_associate'} eq 'reverse') {	if ($ENV{'form.upfile_associate'} eq 'reverse') {
&Apache::loncommon::csv_print_samples($r,\@records);	&Apache::loncommon::csv_print_samples($r,\@records);
$i=&Apache::loncommon::csv_print_select_table($r,\@records,\@d);	$i=&Apache::loncommon::csv_print_select_table($r,\@records,\@d);
Line 557 sub print_upload_manager_form {	Line 553 sub print_upload_manager_form {
# ======================================================= Enroll single student	# ======================================================= Enroll single student
sub enroll_single_student {	sub enroll_single_student {
my $r=shift;	my $r=shift;
	# Remove whitespace from section
	$ENV{'form.csec'}=~s/(\s\|:)//g;
	#
	# We do the dates first because the action of making them the defaul
	# in the course is entirely seperate from the action of enrolling the
	# student. Also, a failure in setting the dates as default is not fatal
	# to the process of enrolling / modifying a student.
	my ($startdate,$enddate) = &get_dates_from_form();
	if ($ENV{'form.makedatesdefault'}) {
	$r->print(&make_dates_default($startdate,$enddate));
	}

$r->print('<h3>Enrolling Student</h3>');	$r->print('<h3>Enrolling Student</h3>');
$r->print('<p>Enrolling '.$ENV{'form.cuname'}." \@ ".	$r->print('<p>Enrolling '.$ENV{'form.cuname'}." \@ ".
$ENV{'form.lcdomain'}.'</p>');	$ENV{'form.lcdomain'}.'</p>');
Line 603 sub enroll_single_student {	Line 611 sub enroll_single_student {
$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'},$enddate,
$ENV{'form.startdate'},$ENV{'form.forceid'},	$startdate,$ENV{'form.forceid'},
$desiredhost);	$desiredhost);
if ($login_result =~ /^ok/) {	if ($login_result =~ /^ok/) {
$r->print($login_result);	$r->print($login_result);
Line 623 sub enroll_single_student {	Line 631 sub enroll_single_student {
}	}
}	}

# ======================================================= Menu Phase Two Enroll	sub setup_date_selectors {
	my ($starttime,$endtime) = @_;
	if (! defined($starttime)) {
	$starttime = time;
	if (exists($ENV{'course.'.$ENV{'request.course.id'}.
	'.default_enrollment_start_date'})) {
	$starttime = $ENV{'course.'.$ENV{'request.course.id'}.
	'.default_enrollment_start_date'};
	}
	}
	if (! defined($endtime)) {
	$endtime = time+(630246060); # 6 months from now, approx
	if (exists($ENV{'course.'.$ENV{'request.course.id'}.
	'.default_enrollment_end_date'})) {
	$endtime = $ENV{'course.'.$ENV{'request.course.id'}.
	'.default_enrollment_end_date'};
	}
	}
	my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform',
	'startdate',
	$starttime);
	my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',
	'enddate',
	$endtime);
	return ($startdateform,$enddateform);
	}

	sub get_dates_from_form {
	my $startdate = &Apache::lonhtmlcommon::get_date_from_form('startdate');
	my $enddate = &Apache::lonhtmlcommon::get_date_from_form('enddate');
	if ($ENV{'form.no_end_date'}) {
	$enddate = 0;
	}
	return ($startdate,$enddate);
	}

	sub date_setting_table {
	my ($starttime,$endtime) = @_;
	my ($startform,$endform)=&setup_date_selectors($starttime,$endtime);
	my $dateDefault = '<nobr>'.
	'<input type="checkbox" name="makedatesdefault" />'.
	' make these dates the default for future enrollment';
	my $perpetual = '<nobr><input type="checkbox" name="no_end_date"';
	if (defined($endtime) && $endtime == 0) {
	$perpetual .= ' checked';
	}
	$perpetual.= ' />'.' no ending date</nobr>';
	my $result = '';
	$result .= "<table>\n";
	$result .= '<tr><td align="right">Starting Date</td>'.
	'<td>'.$startform.'</td>'.
	'<td>'.$dateDefault.'</td>'."</tr>\n";
	$result .= '<tr><td align="right">Ending Date</td>'.
	'<td>'.$endform.'</td>'.
	'<td>'.$perpetual.'</td>'."</tr>\n";
	$result .= "</table>\n";
	return $result;
	}

	sub make_dates_default {
	my ($startdate,$enddate) = @_;
	my $result = '';
	my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
	my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
	my $put_result = &Apache::lonnet::put('environment',
	{'default_enrollment_start_date'=>$startdate,
	'default_enrollment_end_date' =>$enddate},$dom,$crs);
	if ($put_result eq 'ok') {
	$result .= "Set default start and end dates for course<br />";
	#
	# Refresh the course environment
	&Apache::lonnet::coursedescription($ENV{'request.course.id'});
	} else {
	$result .= "Unable to set default dates for course:".$put_result.
	'<br />';
	}
	return $result;
	}

	##
	## Single student enrollment routines (some of them)
	##
	sub get_student_username_domain_form {
	my $r = shift;
	my $domform = &Apache::loncommon::select_dom_form
	($r->dir_config('lonDefDomain'),'cudomain',0);
	$r->print(<<END);
	<input type="hidden" name="action" value="enrollstudent" />
	<input type="hidden" name="state" value="gotusername" />
	<h3>Enroll One Student</h3>
	<table>
	<tr><th>Username:</th>
	<td><input type="text" name="cuname" size="15" /></td></tr>
	<tr><th>Domain:</th>
	<td>$domform</td></tr>
	<tr><th> </th>
	<td>
	<input type="submit" name="Begin Enrollment" value="Begin Enrollment" />
	</td></tr>
	</table>
	END
	return;
	}

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 $username = $ENV{'form.cuname'};
my $today = time;	my $domain = $ENV{'form.cudomain'};
my $halfyear = $today+15552000;	my $home = &Apache::lonnet::homeserver($username,$domain);
my $defdom=$r->dir_config('lonDefDomain');	# $new_user flags whether we are creating a new user or using an old one
my $javascript_validations=&javascript_validations($krbdefdom);	my $new_user = 1;
# Set up authentication forms	if ($home ne 'no_host') {
my %param = ( formname => 'document.studentform');	$new_user = 0;
my $krbform = &Apache::loncommon::authform_kerberos(%param);	}
my $intform = &Apache::loncommon::authform_internal(%param);	&Apache::lonnet::logthis('home = '.$home);
my $locform = &Apache::loncommon::authform_local(%param);	#
# Set up domain selection form	my $user_data_html = '';
my $domform = &domain_form($defdom);	my $javascript_validations = '';
# Print it all out	if ($new_user) {
	my $defdom=$r->dir_config('lonDefDomain');
	# Set up authentication forms
	my ($krbdef,$krbdefdom) =
	&Apache::loncommon::get_kerberos_defaults($domain);
	$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 $intform = &Apache::loncommon::authform_internal(%param);
	my $locform = &Apache::loncommon::authform_local(%param);
	#
	# Set up domain selection form
	my $homeserver_form = '';
	my %servers = &Apache::loncommon::get_library_servers($domain);
	$homeserver_form = '<select name="lcserver" size="1">'."\n".
	'<option value="default" selected>default</option>'."\n";
	while (my ($servername,$serverdescription) = each (%servers)) {
	$homeserver_form .= '<option value="'.$servername.'">'.
	$serverdescription."</option>\n";
	}
	$homeserver_form .= "</select>\n";
	#
	#
	$user_data_html = <<END;
	<h3>User Data for $username\@$domain</h3>
	<table>
	<tr><th>First Name:</th>
	<td><input type="text" name="cfirst" size="15"></td></tr>
	<tr><th>Middle Name:</th>
	<td><input type="text" name="cmiddle" size="15"></td></tr>
	<tr><th>Last Name:</th>
	<td><input type="text" name="clast" size="15"></td></tr>
	<tr><th>Generation:</th>
	<td><input type="text" name="cgen" size="5"> </td></tr>
	<tr><th>Home Server:</th>
	<td>$homeserver_form</td></tr>
	</table>
	<h3>Password</h3>
	Please select an authentication mechanism
	<table>
	<p>
	$krbform
	<br />
	$intform
	<br />
	$locform
	</p>
	END
	} else {
	# User already exists. Do not worry about authentication
	my %uenv = &Apache::lonnet::dump('environment',$domain,$username);
	$javascript_validations = &javascript_validations_without_auth();
	$user_data_html = <<END;
	<h3>User Data for $username\@$domain</h3>
	<input type="hidden" name="lcserver" value="default" />
	<table>
	<tr><th>First Name:</th>
	<td>
	<input type="text" name="cfirst" value="$uenv{'firstname'}" size="15" />
	</td></tr>
	<tr><th>Middle Name:</th>
	<td>
	<input type="text" name="cmiddle" value="$uenv{'middlename'}" size="15" />
	</td></tr>
	<tr><th>Last Name:</th>
	<td>
	<input type="text" name="clast"value="$uenv{'lastname'}" size="15" />
	</td></tr>
	<tr><th>Generation:</th>
	<td>
	<input type="text" name="cgen" value="$uenv{'generation'}" size="5" />
	</td></tr>
	</table>
	END
	}
	my $date_table = &date_setting_table();
	# Print it all out
$r->print(<<END);	$r->print(<<END);
<input type="hidden" name="action" value="enrollstudent">	<input type="hidden" name="action" value="enrollstudent" />
<input type="hidden" name="state" value="done">	<input type="hidden" name="state" value="done" />
	<input type="hidden" name="cuname" value="$username" />
	<input type="hidden" name="lcdomain" value="$domain" />
<script type="text/javascript" language="Javascript">	<script type="text/javascript" language="Javascript">
function verify(vf) {	function verify(vf) {
var founduname=0;	var founduname=0;
Line 681 function clearpwd(vf) {	Line 872 function clearpwd(vf) {
}	}

</script>	</script>
<h3>Personal Data</h3>
<table>
<tr><td>First Name:</td><td> <input type="text" name="cfirst" size="15"></td></tr>
<tr><td>Middle Name:</td><td> <input type="text" name="cmiddle" size="15"></td></tr>
<tr><td>Last Name: </td><td><input type="text" name="clast" size="15"></td></tr>
<tr><td>Generation: </td><td><input type="text" name="cgen" size="5"> </td></tr>
</table>

<h3>Login Data</h3>	$user_data_html
<p>Username: <input type="text" name="cuname" size="15"></p>
<p>Domain: $domform</p>
<p>Note: login settings below will not take effect if the user already exists
</p><p>
$krbform
</p><p>
$intform
</p><p>
$locform
</p><p>

<h3>Course Data</h3>	<h3>Course Data</h3>

<p>Group/Section: <input type="text" name="csec" size="5" />	<p>Group/Section: <input type="text" name="csec" size="5" />
<p>	<p>
<!-- Date setting form elements -->	$date_table
<input type="hidden" name="pres_value" value='' />
<input type="hidden" name="pres_type" value='' />
<input type="hidden" name="pres_marker" value='' />
<input type="hidden" name="startdate" value='$today' />
<input type="hidden" name="enddate" value='$halfyear' />
</p><p>
<a
href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"
>Set Starting Date</a>
</p><p>
<a
href="javascript:pjump('date_end','Enrollment Ending Date',document.studentform.enddate.value,'end','studentform.pres','dateset');"
>Set Ending Date</a>
</p>	</p>
<h3>ID/Student Number</h3>	<h3>ID/Student Number</h3>
<p>	<p>
Line 734 END	Line 895 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 Class List</font>
<font size="+1"><a href="/adm/dropadd?action=classlist&state=csv">CSV format</a></font>
</p>	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	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','modifystudent',	&show_class_list($r,'view','modify','modifystudent',
'any',$student_array,$student_data);	$ENV{'form.Status'},$classlist,$keylist);
} else {	} else {
&show_class_list($r,'view','aboutme','classlist',	&show_class_list($r,'view','aboutme','classlist',
'any',$student_array,$student_data);	$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','csv',	&show_class_list($r,$mode,'nolink','csv',
'any',$student_array,$student_data);	$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,$action,$statusmode,$students,$s_data)=@_;	my ($r,$mode,$linkto,$action,$statusmode,$classlist,$keylist)=@_;
my $cid=$ENV{'request.course.id'};	my $cid=$ENV{'request.course.id'};
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	#
['sortby']);	# Variables for excel output
	my ($excel_workbook, $excel_sheet, $excel_filename,$row);
	#
my $sortby = $ENV{'form.sortby'};	my $sortby = $ENV{'form.sortby'};
if ($sortby !~ /^(username\|domain\|section\|fullname\|id)$/) {	if ($sortby !~ /^(username\|domain\|section\|fullname\|id)$/) {
$sortby = 'username';	$sortby = 'username';
Line 816 sub show_class_list {	Line 985 sub show_class_list {
# 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="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>	<tr><th>
<a href="/adm/dropadd?action=$action&sortby=username">username</a>	<a href="javascript:document.studentform.sortby.value='username';document.studentform.submit();">username</a>
</th><th>	</th><th>
<a href="/adm/dropadd?action=$action&sortby=domain">domain</a>	<a href="javascript:document.studentform.sortby.value='domain';document.studentform.submit();">domain</a>
</th><th>	</th><th>
<a href="/adm/dropadd?action=$action&sortby=id">ID</a>	<a href="javascript:document.studentform.sortby.value='id';document.studentform.submit();">ID</a>
</th><th>	</th><th>
<a href="/adm/dropadd?action=$action&sortby=fullname">student name</a>	<a href="javascript:document.studentform.sortby.value='fullname';document.studentform.submit();">student name</a>
</th><th>	</th><th>
<a href="/adm/dropadd?action=$action&sortby=section">section</a>	<a href="javascript:document.studentform.sortby.value='section';document.studentform.submit();">section</a>
</th>	</th>
</tr>	</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 = 'Class List 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"]);
}	}
	#
	# Sort the students
	my %index;
	my $i;
	foreach (@$keylist) {
	$index{$_} = $i++;
	}
	my $index = $index{$sortby};
	my $second = $index{'username'};
	my $third = $index{'domain'};
my @Sorted_Students = sort {	my @Sorted_Students = sort {
lc($s_data->{$a.':'.$sortby}) cmp lc($s_data->{$b.':'.$sortby})	lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index])
\|\|	\|\|
lc($s_data->{$a.':username'}) cmp lc($s_data->{$b.':username'})	lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])
\|\|	\|\|
lc($s_data->{$a.':domain'}) cmp lc($s_data->{$b.':domain'})	lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])
} @$students;	} (keys(%$classlist));
foreach my $student (@Sorted_Students) {	foreach my $student (@Sorted_Students) {
my $error;	my $username = $classlist->{$student}->[$index{'username'}];
if (exists($s_data->{$student.':error'})) {	my $domain = $classlist->{$student}->[$index{'domain'}];
$error = $s_data->{$student.':error'};	my $section = $classlist->{$student}->[$index{'section'}];
}	my $name = $classlist->{$student}->[$index{'fullname'}];
if ($error) {	my $id = $classlist->{$student}->[$index{'id'}];
$r->print('<tr><td colspan="6">'.	my $status = $classlist->{$student}->[$index{'status'}];
'<font color="#FF8888">Error</font>'.	next if (($statusmode ne 'Any') && ($status ne $statusmode));
'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 877 END	Line 1071 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.'&sortby='.$sortby.'">'.	$username.
	"';document.studentform.sdom.value='".$domain.
	"';document.studentform.state.value='selected".
	"';document.studentform.submit();".'">'.
$username."</a>\n");	$username."</a>\n");
}	}
$r->print(<<"END");	$r->print(<<"END");
Line 896 END	Line 1093 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 912 END	Line 1121 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','sortby']);	['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'};	my $sortby = $ENV{'form.sortby'};
Line 934 sub print_modify_student_form {	Line 1143 sub print_modify_student_form {
# determine the students starting and ending times and section	# determine the students starting and ending times and section
my ($starttime,$endtime,$section) = &get_enrollment_data($sname,$sdom);	my ($starttime,$endtime,$section) = &get_enrollment_data($sname,$sdom);
# Deal with date forms	# Deal with date forms
my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform',	my $date_table = &date_setting_table($starttime,$endtime);
'startdate',	#
$starttime);	if (! exists($ENV{'form.Status'}) \|\|
my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',	$ENV{'form.Status'} !~ /^(Any\|Expired\|Active)$/) {
'enddate',	$ENV{'form.Status'} = 'crap';
$endtime);	}
# Make sure student is enrolled in course	# Make sure student is enrolled in course
$r->print(<<END);	$r->print(<<END);
<p>	<p>
Line 952 Only domain coordinators can change a us	Line 1161 Only domain coordinators can change a us
<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="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 972 Disable ID/Student Number Safeguard and	Line 1183 Disable ID/Student Number Safeguard and
(only do if you know what you are doing)	(only do if you know what you are doing)
</p><p>	</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>
<table>
<tr><td align="right"><b>Starting Date:</b></td><td>$startdateform</td></tr>
<tr><td align="right"><b>Ending Date:</b></td><td>$enddateform</td></tr>
</table>
</p>	</p>
	<p>$date_table</p>
<input type="submit" value="Submit Modifications" />	<input type="submit" value="Submit Modifications" />
</body></html>	</body></html>
END	END
Line 989 END	Line 1196 END
#	#
sub modify_single_student {	sub modify_single_student {
my $r = shift;	my $r = shift;
# Get the 'sortby' variable so the user does not need to re-sort	#
	# Remove whitespace from the section
	$ENV{'form.section'} =~ s/(\s\|:)//g;
	#
	# Do the date defaults first
	my ($starttime,$endtime) = &get_dates_from_form();
	if ($ENV{'form.makedatesdefault'}) {
	$r->print(&make_dates_default($starttime,$endtime));
	}
	# Get the 'sortby' and 'Status' variables so the user goes back to their
	# previous screen
my $sortby = $ENV{'form.sortby'};	my $sortby = $ENV{'form.sortby'};
	my $status = $ENV{'form.Status'};
#	#
# We always need this information	# We always need this information
my $slogin = $ENV{'form.slogin'};	my $slogin = $ENV{'form.slogin'};
Line 1001 sub modify_single_student {	Line 1219 sub modify_single_student {
['firstname','middlename',	['firstname','middlename',
'lastname','generation','id'],	'lastname','generation','id'],
$sdom, $slogin);	$sdom, $slogin);
	$old{'section'} = &Apache::lonnet::getsection($sdom,$slogin,
	$ENV{'request.course.id'});
my ($tmp) = keys(%old);	my ($tmp) = keys(%old);
if ($tmp =~ /^(con_lost\|error\|no_such_host)/i) {	if ($tmp =~ /^(con_lost\|error\|no_such_host)/i) {
$r->print("There was an error determining the environment values ".	$r->print("There was an error determining the environment values ".
Line 1017 sub modify_single_student {	Line 1237 sub modify_single_student {
my $section = $ENV{'form.section'};	my $section = $ENV{'form.section'};
my $courseid = $ENV{'request.course.id'};	my $courseid = $ENV{'request.course.id'};
my $sid = $ENV{'form.id'};	my $sid = $ENV{'form.id'};
my $starttime = &Apache::lonhtmlcommon::get_date_from_form('startdate',
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	# check for forceid override
if (($sid ne $old{'id'}) && (! exists($ENV{'form.forceid'}))) {	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 ".	$r->print("<font color=\"ff0000\">You changed the students id ".
" but did not disable the ID change safeguard.".	" but did not disable the ID change safeguard.".
" The students id will not be changed.</font>");	" The students id will not be changed.</font>");
Line 1062 sub modify_single_student {	Line 1279 sub modify_single_student {
<td> <b>ID</b> </td>	<td> <b>ID</b> </td>
<td> $old{'id'} </td>	<td> $old{'id'} </td>
<td> $sid </td>	<td> $sid </td>
	</tr><tr>
	<td> <b>Section</b> </td>
	<td> $old{'section'} </td>
	<td> $section</td>
</tr>	</tr>
</table>	</table>
<h3>Role Information</h3>	<h3>Role Information</h3>
<table>	<table>
<tr><td>Section </td><td> $section </td></tr>	<tr><td align="right"><b>Start Time:</b></td><td> $displayable_starttime </td></tr>
<tr><td>Start Time </td><td> $displayable_starttime </td></tr>	<tr><td align="right"><b>End Time:</b></td><td> $displayable_endtime </td></tr>
<tr><td>End Time </td><td> $displayable_endtime </td></tr>
</table>	</table>
<p>	<p>
END	END
#	#
# Send request(s) to modify data	# Send request(s) to modify data (final undef is for 'desiredhost',
	# which is a moot point because the student already has an account.
	my $modify_section_results = &modifystudent($sdom,$slogin,
	$ENV{'request.course.id'},
	$section,undef);
	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	my $roleresults = &Apache::lonnet::modifystudent
($sdom,$slogin,$sid,undef,undef,$firstname,$middlename,$lastname,	($sdom,$slogin,$sid,undef,undef,$firstname,$middlename,$lastname,
$generation,$section,$endtime,$starttime,$ENV{'form.forceid'});	$generation,$section,$endtime,$starttime,$ENV{'form.forceid'});
Line 1097 END	Line 1325 END
}	}
$r->print(<<END);	$r->print(<<END);
</p><p>	</p><p>
<a href="/adm/dropadd?action=modifystudent&sortby=$sortby">Modify another students data</a>	<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 1116 sub get_enrollment_data {	Line 1347 sub get_enrollment_data {
my $section = '';	my $section = '';
my $count = scalar(keys(%roles));	my $count = scalar(keys(%roles));
while (my ($course,$role) = each(%roles)) {	while (my ($course,$role) = each(%roles)) {
&Apache::lonnet::logthis('course = '.$course.' role = '.$role);
if ($course=~ /^\/$courseid\/\s(\w+)*_st$/ ) {	if ($course=~ /^\/$courseid\/\s(\w+)*_st$/ ) {
#	#
# Get active role	# Get active role
Line 1136 sub get_enrollment_data {	Line 1366 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,$s_data,$r)=@_;	my ($r,$classlist,$keylist,$nosort)=@_;
my $cid=$ENV{'request.course.id'};	my $cid=$ENV{'request.course.id'};
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	if (! exists($ENV{'form.sortby'})) {
['sortby']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['sortby']);
	}
my $sortby = $ENV{'form.sortby'};	my $sortby = $ENV{'form.sortby'};
if ($sortby !~ /^(username\|domain\|section\|fullname\|id)$/) {	if ($sortby !~ /^(username\|domain\|section\|fullname\|id)$/) {
$sortby = 'username';	$sortby = 'username';
}	}
	#
my $action = "drop";	my $action = "drop";
$r->print(<<END);	$r->print(<<END);
<input type="hidden" name="sortby" value="$sortby" />	<input type="hidden" name="sortby" value="$sortby" />
Line 1164 function uncheckAll(field) {	Line 1423 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>
	<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>	<table border=2>
<tr><th> </th>	<tr><th> </th>
<th>	<th>
Line 1179 function uncheckAll(field) {	Line 1455 function uncheckAll(field) {
</th>	</th>
</tr>	</tr>
END	END
	}
	#
	# Sort the students
	my %index;
	my $i;
	foreach (@$keylist) {
	$index{$_} = $i++;
	}
	my $index = $index{$sortby};
	my $second = $index{'username'};
	my $third = $index{'domain'};
my @Sorted_Students = sort {	my @Sorted_Students = sort {
lc($s_data->{$a.':'.$sortby}) cmp lc($s_data->{$b.':'.$sortby})	lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index])
\|\|	\|\|
lc($s_data->{$a.':username'}) cmp lc($s_data->{$b.':username'})	lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])
\|\|	\|\|
lc($s_data->{$a.':domain'}) cmp lc($s_data->{$b.':domain'})	lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])
} @$students;	} (keys(%$classlist));
foreach my $student (@Sorted_Students) {	foreach my $student (@Sorted_Students) {
my $error;	my $error;
if (exists($s_data->{$student.':error'})) {	my $username = $classlist->{$student}->[$index{'username'}];
$error = $s_data->{$student.':error'};	my $domain = $classlist->{$student}->[$index{'domain'}];
}	my $section = $classlist->{$student}->[$index{'section'}];
if ($error) {	my $name = $classlist->{$student}->[$index{'fullname'}];
$r->print('<tr><td colspan="6">'.	my $id = $classlist->{$student}->[$index{'id'}];
'<font color="#FF8888">Error</font>'.	my $status = $classlist->{$student}->[$index{'status'}];
'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 1274 sub upfile_drop_add {	Line 1550 sub upfile_drop_add {
}	}
}	}
#	#
my $startdate = $ENV{'form.startdate'};	my ($startdate,$enddate) = &get_dates_from_form();
my $enddate = $ENV{'form.enddate'};	if ($ENV{'form.makedatesdefault'}) {
if ($startdate=~/\D/) { $startdate=''; }	$r->print(&make_dates_default($startdate,$enddate));
if ($enddate=~/\D/) { $enddate=''; }	}
# Determine domain and desired host (home server)	# Determine domain and desired host (home server)
my $domain=$ENV{'form.lcdomain'};	my $domain=$ENV{'form.lcdomain'};
my $desiredhost = $ENV{'form.lcserver'};	my $desiredhost = $ENV{'form.lcserver'};
Line 1313 sub upfile_drop_add {	Line 1589 sub upfile_drop_add {
#######################################	#######################################
## Enroll Students ##	## Enroll Students ##
#######################################	#######################################
$r->print('<h3>Enrolling Students</h3>');	$r->print('<h3>Enrolling Students</h3>'."\n".'<p>');
my $count=0;	my $count=0;
my $flushc=0;	my $flushc=0;
my %student=();	my %student=();
Line 1342 sub upfile_drop_add {	Line 1618 sub upfile_drop_add {
}	}
}	}
if ($entries{$fields{'username'}}=~/\W/) {	if ($entries{$fields{'username'}}=~/\W/) {
$r->print('<p><b>Unacceptable username: '.	$r->print('<br /><b>Unacceptable username: '.
$entries{$fields{'username'}}.' for user '.	$entries{$fields{'username'}}.' for user '.
$fname.' '.$mname.' '.$lname.' '.$gen.'</b><p>');	$fname.' '.$mname.' '.$lname.' '.$gen.'</b>');
} else {	} else {
# determine section number	# determine section number
my $sec='';	my $sec='';
Line 1354 sub upfile_drop_add {	Line 1630 sub upfile_drop_add {
$sec=$entries{$fields{'sec'}};	$sec=$entries{$fields{'sec'}};
}	}
}	}
	# remove whitespace from section
	$sec =~ s/(\s\|:)//g;
# determine student id number	# determine student id number
my $id='';	my $id='';
if (defined($fields{'id'})) {	if (defined($fields{'id'})) {
Line 1362 sub upfile_drop_add {	Line 1640 sub upfile_drop_add {
}	}
$id=~tr/A-Z/a-z/;	$id=~tr/A-Z/a-z/;
}	}
	# determine email address
	my $email='';
	if (defined($fields{'email'})) {
	if (defined($entries{$fields{'email'}})) {
	$email=$entries{$fields{'email'}};
	unless ($email=~/^[^\@]+\@[^\@]+$/) { $email=''; }
	}
	}
# determine student password	# determine student password
my $password='';	my $password='';
if ($genpwd) {	if ($genpwd) {
Line 1373 sub upfile_drop_add {	Line 1659 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);
my $reply=&Apache::lonnet::modifystudent	my $reply=&Apache::lonnet::modifystudent
($domain,$username,$id,$amode,$password,	($domain,$username,$id,$amode,$password,
$fname,$mname,$lname,$gen,$sec,$enddate,	$fname,$mname,$lname,$gen,$sec,$enddate,
$startdate,$ENV{'form.forceid'},$desiredhost);	$startdate,$ENV{'form.forceid'},$desiredhost,
	$email);
if ($reply ne 'ok') {	if ($reply ne 'ok') {
$r->print('<p><b>'.	$reply =~ s/^error://;
'Error enrolling '.$username.': '.	$r->print('<br /><b>'.$username.'</b>:'.
$reply.'</b></p>');	' Unable to enroll: '.$reply);
} else {	} else {
$count++; $flushc++;	$count++; $flushc++;
$student{$username}=1;	$student{$username}=1;
Line 1394 sub upfile_drop_add {	Line 1686 sub upfile_drop_add {
}	}
}	}
} else {	} else {
$r->print("<p><b>No password for $username</b><p>");	$r->print('<br /><b>'.$username.'</b>:'.
	' Unable to enroll: No password specified.');
}	}
}	}
}	}
} # end of foreach (@studentdata)	} # end of foreach (@studentdata)
$r->print('<p>Processed Students: '.$count.'</p>');	$r->print('</p><p>Processed Students: '.$count.'</p>');
$r->print("<p>If active, the new role will be available when the ".	$r->print("<p>If active, the new role will be available when the ".
"students next log in to LON-CAPA.</p>");	"students next log in to LON-CAPA.</p>");
#####################################	#####################################
Line 1408 sub upfile_drop_add {	Line 1701 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($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 1480 sub drop_student_list {	Line 1733 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.' @ '.$udom.'<br>');	$r->print('Dropped '.$uname.' @ '.$udom.'<br>');
	$count++;
} else {	} else {
$r->print('Error dropping '.$uname.' @ '.$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 1514 The response to the request is governed	Line 1768 The response to the request is governed
upload enrolling enroll students based on upload	upload enrolling enroll students based on upload
drop undefined print the classlist ready to drop	drop undefined print the classlist ready to drop
drop done drop the selected students	drop done drop the selected students
enrollstudent undefined print single student enroll menu	enrollstudent undefined print student username domain form
	enrollstudent gotusername print single student enroll menu
enrollstudent enrolling enroll student	enrollstudent enrolling enroll student
classlist undefined print html classlist	classlist undefined print html classlist
classlist csv print csv classlist	classlist csv print csv classlist
Line 1582 sub handler {	Line 1837 sub handler {
}	}
} elsif ($ENV{'form.action'} eq 'enrollstudent') {	} elsif ($ENV{'form.action'} eq 'enrollstudent') {
if (! exists($ENV{'form.state'})) {	if (! exists($ENV{'form.state'})) {
	&get_student_username_domain_form($r);
	} elsif ($ENV{'form.state'} eq 'gotusername') {
&print_enroll_single_student_form($r);	&print_enroll_single_student_form($r);
} elsif ($ENV{'form.state'} eq 'enrolling') {	} elsif ($ENV{'form.state'} eq 'enrolling') {
&enroll_single_student($r);	&enroll_single_student($r);
} else {	} else {
&print_enroll_single_student_form($r);	&get_student_username_domain_form($r);
}	}
} elsif ($ENV{'form.action'} eq 'classlist') {	} elsif ($ENV{'form.action'} eq 'classlist') {
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);
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.55
changed lines
	Added in v.1.78