version 1.143, 2006/05/18 01:08:51
|
version 1.177, 2008/12/05 19:19:28
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# |
# |
############################################################### |
|
############################################################## |
=head1 NAME |
|
|
|
Apache::londropadd.pm |
|
|
|
=head1 SYNOPSIS |
|
|
|
drop & add students |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 SUBROUTINES |
|
|
|
=over |
|
|
|
=cut |
|
|
package Apache::londropadd; |
package Apache::londropadd; |
|
|
Line 40 use Spreadsheet::WriteExcel;
|
Line 55 use Spreadsheet::WriteExcel;
|
use Apache::lonstathelpers(); |
use Apache::lonstathelpers(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::longroup; |
use Apache::longroup; |
|
use LONCAPA(); |
|
|
############################################################### |
|
############################################################### |
|
sub header { |
sub header { |
my $start_page=&Apache::loncommon::start_page('Enrollment Manager'); |
my ($jscript,$loaditems) = @_; |
|
my $start_page; |
|
if (ref($loaditems) eq 'HASH') { |
|
$start_page=&Apache::loncommon::start_page('Enrollment Manager',$jscript,{'add_entries' => $loaditems,}); |
|
} else { |
|
$start_page=&Apache::loncommon::start_page('Enrollment Manager',$jscript); |
|
} |
return(<<ENDHEAD); |
return(<<ENDHEAD); |
$start_page |
$start_page |
<form method="post" enctype="multipart/form-data" |
<form method="post" enctype="multipart/form-data" |
Line 52 $start_page
|
Line 72 $start_page
|
ENDHEAD |
ENDHEAD |
} |
} |
|
|
############################################################### |
=pod |
############################################################### |
|
# Drop student from all sections of a course, except optional $csec |
=item modifystudent() |
|
|
|
Drop student from all sections of a course, except optional $csec |
|
|
|
=cut |
|
|
sub modifystudent { |
sub modifystudent { |
my ($udom,$unam,$courseid,$csec,$desiredhost)=@_; |
my ($udom,$unam,$courseid,$csec,$desiredhost)=@_; |
# if $csec is undefined, drop the student from all the courses matching |
# if $csec is undefined, drop the student from all the courses matching |
# this one. If $csec is defined, drop them from all other sections of |
# this one. If $csec is defined, drop them from all other sections of |
# this course and add them to section $csec |
# this course and add them to section $csec |
$courseid=~s/\_/\//g; |
my $cdom = $env{'course.'.$courseid.'.domain'}; |
$courseid=~s/^(\w)/\/$1/; |
my $cnum = $env{'course.'.$courseid.'.num'}; |
my %roles = &Apache::lonnet::dump('roles',$udom,$unam); |
my %roles = &Apache::lonnet::dump('roles',$udom,$unam); |
my ($tmp) = keys(%roles); |
my ($tmp) = keys(%roles); |
# Bail out if we were unable to get the students roles |
# Bail out if we were unable to get the students roles |
Line 69 sub modifystudent {
|
Line 94 sub modifystudent {
|
# Go through the roles looking for enrollment in this course |
# Go through the roles looking for enrollment in this course |
my $result = ''; |
my $result = ''; |
foreach my $course (keys(%roles)) { |
foreach my $course (keys(%roles)) { |
if ($course=~/^$courseid(?:\/)*(?:\s+)*(\w+)*\_st$/) { |
if ($course=~m{^/\Q$cdom\E/\Q$cnum\E(?:\/)*(?:\s+)*(\w+)*\_st$}) { |
# 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 "/$cdom/$cnum".'_st'); |
if (defined($csec) && $section eq $csec) { |
if (defined($csec) && $section eq $csec) { |
$result .= 'ok:'; |
$result .= 'ok:'; |
} elsif ( ((!$section) && (!$csec)) || ($section ne $csec) ) { |
} elsif ( ((!$section) && (!$csec)) || ($section ne $csec) ) { |
Line 97 sub modifystudent {
|
Line 122 sub modifystudent {
|
return $result; |
return $result; |
} |
} |
|
|
############################################################### |
=pod |
############################################################### |
|
# build a domain and server selection form |
=item domain_form() |
|
|
|
build a domain and server selection form |
|
|
|
=cut |
|
|
sub domain_form { |
sub domain_form { |
my ($defdom) = @_; |
my ($defdom) = @_; |
# Set up domain and server selection forms |
# Set up domain and server selection forms |
# |
# |
# Get the domains |
# Get the domains |
my @domains = &Apache::loncommon::get_domains(); |
my @domains = &Apache::lonnet::all_domains(); |
# build up the menu information to be passed to |
# build up the menu information to be passed to |
# &Apache::loncommon::linked_select_forms |
# &Apache::loncommon::linked_select_forms |
my %select_menus; |
my %select_menus; |
Line 116 sub domain_form {
|
Line 146 sub domain_form {
|
$select_menus{$dom}->{'default'}= 'default'; |
$select_menus{$dom}->{'default'}= 'default'; |
$select_menus{$dom}->{'select2'}->{'default'} = 'default'; |
$select_menus{$dom}->{'select2'}->{'default'} = 'default'; |
# Now build up the other items in the second menu |
# Now build up the other items in the second menu |
my %servers = &Apache::loncommon::get_library_servers($dom); |
my %servers = &Apache::lonnet::get_servers($dom,'library'); |
foreach my $server (keys(%servers)) { |
foreach my $server (keys(%servers)) { |
$select_menus{$dom}->{'select2'}->{$server} |
$select_menus{$dom}->{'select2'}->{$server} |
= "$server $servers{$server}"; |
= "$server $servers{$server}"; |
Line 128 sub domain_form {
|
Line 158 sub domain_form {
|
return $result; |
return $result; |
} |
} |
|
|
############################################################### |
=pod |
############################################################### |
|
# Menu Phase One |
=item print_main_menu() |
|
|
|
Menu Phase One |
|
|
|
=cut |
|
|
sub print_main_menu { |
sub print_main_menu { |
my ($r,$enrl_permission,$view_permission,$grp_manage_permission, |
my ($r,$permission)=@_; |
$grp_view_permission)=@_; |
|
# |
# |
my ($cdom,$cnum) = split/_/,$env{'request.course.id'}; |
my $cid =$env{'request.course.id'}; |
|
my $cdom=$env{'course.'.$cid.'.domain'}; |
|
my $cnum=$env{'course.'.$cid.'.num'}; |
my @menu = |
my @menu = |
( |
( |
{ text => 'Upload a class list', |
{ text => 'Upload a class list', |
help => 'Course_Create_Class_List', |
help => 'Course_Create_Class_List', |
action => 'upload', |
action => 'upload', |
permission => $enrl_permission, |
permission => $permission->{'enrl'}, |
}, |
}, |
{ text => 'Enroll a single student', |
{ text => 'Enroll a single student', |
help => 'Course_Add_Student', |
help => 'Course_Add_Student', |
action => 'enrollstudent', |
action => 'enrollstudent', |
permission => $enrl_permission, |
permission => $permission->{'enrl'}, |
}, |
}, |
{ text => 'Modify student data', |
{ text => 'Modify student data', |
help => 'Course_Modify_Student_Data', |
help => 'Course_Modify_Student_Data', |
action => 'modifystudent', |
action => 'modifystudent', |
permission => $enrl_permission, |
permission => $permission->{'enrl'}, |
}, |
}, |
{ text => 'View Class List', |
{ text => 'View Class List', |
help => 'Course_View_Class_List', |
help => 'Course_View_Class_List', |
action => 'classlist', |
action => 'classlist', |
permission => $view_permission, |
permission => $permission->{'view'}, |
}, |
}, |
{ text => 'Drop Students', |
{ text => 'Drop Students', |
help => 'Course_Drop_Student', |
help => 'Course_Drop_Student', |
action => 'drop', |
action => 'drop', |
permission => $enrl_permission, |
permission => $permission->{'enrl'}, |
}, |
}, |
{ text => 'Automated Enrollment Manager', |
{ text => 'Automated Enrollment Manager', |
permission => &Apache::lonnet::auto_run($cnum,$cdom), |
permission => (&Apache::lonnet::auto_run($cnum,$cdom) |
|
&& $permission->{'enrl'}), |
url => '/adm/populate', |
url => '/adm/populate', |
}, |
}, |
{ text => 'Create a new group', |
{ text => 'Create a new group', |
help => 'Course_Create_Group', |
help => 'Course_Create_Group', |
permission => $grp_manage_permission, |
permission => $permission->{'grp_manage'}, |
url => '/adm/coursegroups?refpage=enrl&action=create', |
url => '/adm/coursegroups?refpage=enrl&action=create', |
}, |
}, |
{ text => 'Modify an existing group', |
{ text => 'Modify an existing group', |
help => 'Course_Modify_Group', |
help => 'Course_Modify_Group', |
permission => $grp_manage_permission, |
permission => $permission->{'grp_manage'}, |
url => '/adm/coursegroups?refpage=enrl&action=modify', |
url => '/adm/coursegroups?refpage=enrl&action=modify', |
}, |
}, |
{ text => 'Delete an existing group', |
{ text => 'Delete an existing group', |
help => 'Course_Delete_Group', |
help => 'Course_Delete_Group', |
permission => $grp_manage_permission, |
permission => $permission->{'grp_manage'}, |
url => '/adm/coursegroups?refpage=enrl&action=delete', |
url => '/adm/coursegroups?refpage=enrl&action=delete', |
|
}, |
|
{ text => 'Re-enable a deleted group', |
|
help => 'Course_Reenable_Group', |
|
permission => $permission->{'grp_manage'}, |
|
url => '/adm/coursegroups?refpage=enrl&action=reenable', |
}, |
}, |
{ text => 'Enter an existing group', |
{ text => 'Enter an existing group', |
help => 'Course_Display_Group', |
help => 'Course_Display_Group', |
permission => $grp_view_permission, |
permission => $permission->{'grp_view'}, |
url => '/adm/coursegroups?refpage=enrl&action=view', |
url => '/adm/coursegroups?refpage=enrl&action=view', |
}, |
}, |
); |
); |
my $menu_html = ''; |
my $menu_html = ''; |
Line 210 sub print_main_menu {
|
Line 252 sub print_main_menu {
|
return; |
return; |
} |
} |
|
|
############################################################### |
|
############################################################### |
|
sub hidden_input { |
sub hidden_input { |
my ($name,$value) = @_; |
my ($name,$value) = @_; |
return '<input type="hidden" name="'.$name.'" value="'.$value.'" />'."\n"; |
return '<input type="hidden" name="'.$name.'" value="'.$value.'" />'."\n"; |
} |
} |
|
|
|
|
|
|
sub print_upload_manager_header { |
sub print_upload_manager_header { |
my ($r,$datatoken,$distotal,$krbdefdom)=@_; |
my ($r,$datatoken,$distotal,$krbdefdom)=@_; |
my $javascript; |
my $javascript; |
Line 248 sub print_upload_manager_header {
|
Line 292 sub print_upload_manager_header {
|
$password_choice = 'int'; |
$password_choice = 'int'; |
} |
} |
# |
# |
my $javascript_validations=&javascript_validations('auth',$krbdefdom, |
my $javascript_validations = |
$password_choice); |
&javascript_validations('auth',$krbdefdom,$password_choice,undef, |
my $checked=(($env{'form.noFirstLine'})?' checked="1"':''); |
$env{'request.role.domain'}); |
|
my $checked=(($env{'form.noFirstLine'})?' checked="checked" ':''); |
$r->print('<h3>'.&mt('Uploading Class List')."</h3>\n". |
$r->print('<h3>'.&mt('Uploading Class List')."</h3>\n". |
"<hr>\n". |
"<hr>\n". |
'<h3>'.&mt('Identify fields')."</h3>\n"); |
'<h3>'.&mt('Identify fields')."</h3>\n"); |
Line 269 sub print_upload_manager_header {
|
Line 314 sub print_upload_manager_header {
|
$r->print('<input type="button" value="Reverse Association" '. |
$r->print('<input type="button" value="Reverse Association" '. |
'name="'.&mt('Reverse Association').'" '. |
'name="'.&mt('Reverse Association').'" '. |
'onClick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />'); |
'onClick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />'); |
$r->print('<label><input type="checkbox" name="noFirstLine" $checked />'. |
$r->print('<label><input type="checkbox" name="noFirstLine"'.$checked.'/>'. |
&mt('Ignore First Line').'</label>'); |
&mt('Ignore First Line').'</label>'); |
$r->print("<hr />\n". |
$r->print("<hr />\n". |
'<script type="text/javascript" language="Javascript">'."\n". |
'<script type="text/javascript" language="Javascript">'."\n". |
$javascript."\n".$javascript_validations.'</script>'); |
$javascript."\n".$javascript_validations.'</script>'); |
} |
} |
|
|
############################################################### |
|
############################################################### |
|
|
|
|
|
sub javascript_validations { |
sub javascript_validations { |
my ($mode,$krbdefdom,$curr_authtype,$curr_authfield)=@_; |
my ($mode,$krbdefdom,$curr_authtype,$curr_authfield,$domain)=@_; |
my $authheader; |
my $authheader; |
if ($mode eq 'auth') { |
if ($mode eq 'auth') { |
my %param = ( formname => 'studentform', |
my %param = ( formname => 'studentform', |
Line 288 sub javascript_validations {
|
Line 335 sub javascript_validations {
|
$authheader = &Apache::loncommon::authform_header(%param); |
$authheader = &Apache::loncommon::authform_header(%param); |
} elsif ($mode eq 'createcourse') { |
} elsif ($mode eq 'createcourse') { |
my %param = ( formname => 'ccrs', |
my %param = ( formname => 'ccrs', |
kerb_def_dom => $krbdefdom, |
kerb_def_dom => $krbdefdom, |
curr_authtype => $curr_authtype ); |
curr_authtype => $curr_authtype ); |
$authheader = &Apache::loncommon::authform_header(%param); |
$authheader = &Apache::loncommon::authform_header(%param); |
} elsif ($mode eq 'modifycourse') { |
} elsif ($mode eq 'modifycourse') { |
Line 309 sub javascript_validations {
|
Line 356 sub javascript_validations {
|
name => 'The optional name field was not specified.', |
name => 'The optional name field was not specified.', |
snum => 'The optional student number field was not specified.', |
snum => 'The optional student number field was not specified.', |
section => 'The optional section field was not specified.', |
section => 'The optional section field was not specified.', |
email => 'The optional email address field was not specified.', |
email => 'The optional e-mail address field was not specified.', |
continue => 'Continue enrollment?', |
continue => 'Continue enrollment?', |
); |
); |
|
|
Line 317 sub javascript_validations {
|
Line 364 sub javascript_validations {
|
my $function_name =(<<END); |
my $function_name =(<<END); |
function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) { |
function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) { |
END |
END |
|
my ($authnum,%can_assign) = &Apache::loncommon::get_assignable_auth($domain); |
my $auth_checks; |
my $auth_checks; |
if ($mode eq 'createcourse') { |
if ($mode eq 'createcourse') { |
$auth_checks .= (<<END); |
$auth_checks .= (<<END); |
Line 331 END
|
Line 379 END
|
$auth_checks .= (<<END); |
$auth_checks .= (<<END); |
var foundatype=0; |
var foundatype=0; |
if (founduname==0) { |
if (founduname==0) { |
alert('$alert{'username'}'); |
alert('$alert{'username'}'); |
return; |
return; |
} |
} |
|
|
|
END |
|
if ($authnum > 1) { |
|
$auth_checks .= (<<END); |
// alert('current.radiovalue = '+current.radiovalue); |
// alert('current.radiovalue = '+current.radiovalue); |
if (current.radiovalue == null || current.radiovalue == '' || current.radiovalue == 'nochange') { |
if (current.radiovalue == null || current.radiovalue == '' || current.radiovalue == 'nochange') { |
// They did not check any of the login radiobuttons. |
// They did not check any of the login radiobuttons. |
Line 341 END
|
Line 393 END
|
return; |
return; |
} |
} |
END |
END |
|
} |
} |
} |
if ($mode eq 'createcourse') { |
if ($mode eq 'createcourse') { |
$auth_checks .= " |
$auth_checks .= " |
Line 402 END
|
Line 455 END
|
} |
} |
END |
END |
} else { |
} else { |
$section_checks = §ion_check_js(); |
$section_checks = &Apache::lonuserutils::section_check_js(); |
$optional_checks = (<<END); |
$optional_checks = (<<END); |
var message=''; |
var message=''; |
if (foundname==0) { |
if (foundname==0) { |
Line 450 END
|
Line 503 END
|
return $result; |
return $result; |
} |
} |
|
|
############################################################### |
|
############################################################### |
|
|
|
sub upload_manager_javascript_forward_associate { |
sub upload_manager_javascript_forward_associate { |
return(<<ENDPICK); |
return(<<ENDPICK); |
function verify(vf,sec_caller) { |
function verify(vf,sec_caller) { |
Line 543 function clearpwd(vf) {
|
Line 597 function clearpwd(vf) {
|
ENDPICK |
ENDPICK |
} |
} |
|
|
############################################################### |
|
############################################################### |
|
|
|
sub upload_manager_javascript_reverse_associate { |
sub upload_manager_javascript_reverse_associate { |
return(<<ENDPICK); |
return(<<ENDPICK); |
function verify(vf,sec_caller) { |
function verify(vf,sec_caller) { |
Line 598 function clearpwd(vf) {
|
Line 653 function clearpwd(vf) {
|
ENDPICK |
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)=@_; |
|
|
Line 652 sub print_upload_manager_footer {
|
Line 708 sub print_upload_manager_footer {
|
return; |
return; |
} |
} |
|
|
############################################################### |
|
############################################################### |
|
|
|
sub print_upload_manager_form { |
sub print_upload_manager_form { |
my $r=shift; |
my $r=shift; |
|
|
Line 707 sub print_upload_manager_form {
|
Line 764 sub print_upload_manager_form {
|
['id', &mt('ID/Student Number'),$env{'form.id_choice'}], |
['id', &mt('ID/Student Number'),$env{'form.id_choice'}], |
['sec', &mt('Section'), $env{'form.sec_choice'}], |
['sec', &mt('Section'), $env{'form.sec_choice'}], |
['ipwd', &mt('Initial Password'),$env{'form.ipwd_choice'}], |
['ipwd', &mt('Initial Password'),$env{'form.ipwd_choice'}], |
['email',&mt('EMail Address'), $env{'form.email_choice'}]); |
['email',&mt('E-mail Address'), $env{'form.email_choice'}]); |
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, |
$i=&Apache::loncommon::csv_print_select_table($r,\@records, |
Line 727 sub print_upload_manager_form {
|
Line 784 sub print_upload_manager_form {
|
&print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear); |
&print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear); |
} |
} |
|
|
############################################################### |
|
############################################################### |
|
|
|
|
|
sub enroll_single_student { |
sub enroll_single_student { |
my $r=shift; |
my ($r,$srcharray) = @_; |
# Remove non alphanumeric values from section |
# Remove non alphanumeric values from section |
$env{'form.csec'}=~s/\W//g; |
$env{'form.csec'}=~s/\W//g; |
# |
# |
Line 738 sub enroll_single_student {
|
Line 797 sub enroll_single_student {
|
# in the course is entirely separate from the action of enrolling the |
# in the course is entirely separate from the action of enrolling the |
# student. Also, a failure in setting the dates as default is not fatal |
# student. Also, a failure in setting the dates as default is not fatal |
# to the process of enrolling / modifying a student. |
# to the process of enrolling / modifying a student. |
my ($startdate,$enddate) = &get_dates_from_form(); |
my ($startdate,$enddate) = &Apache::lonuserutils::get_dates_from_form(); |
if ($env{'form.makedatesdefault'}) { |
if ($env{'form.makedatesdefault'}) { |
$r->print(&make_dates_default($startdate,$enddate)); |
$r->print(&Apache::lonuserutils::make_dates_default($startdate, |
|
$enddate)); |
} |
} |
|
|
$r->print('<h3>'.&mt('Enrolling Student').'</h3>'); |
$r->print('<h3>'.&mt('Enrolling Student').'</h3>'); |
$r->print('<p>'.&mt('Enrolling').' '.$env{'form.cuname'}." \@ ". |
$r->print('<p>'.&mt('Enrolling [_1] : [_2]',$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.lcdomain'})&&($env{'form.lcdomain'}!~/\W/)) { |
&& ($env{'form.cuname'} |
|
eq &LONCAPA::clean_username($env{'form.cuname'})) |
|
&& ($env{'form.lcdomain'}) |
|
&& ($env{'form.lcdomain'} |
|
eq &LONCAPA::clean_domain($env{'form.lcdomain'}))) { |
# Deal with home server selection |
# Deal with home server selection |
my $domain=$env{'form.lcdomain'}; |
my $domain=$env{'form.lcdomain'}; |
my $desiredhost = $env{'form.lcserver'}; |
my $desiredhost = $env{'form.lcserver'}; |
if (lc($desiredhost) eq 'default') { |
if (lc($desiredhost) eq 'default') { |
$desiredhost = undef; |
$desiredhost = undef; |
} else { |
} else { |
my %home_servers =&Apache::loncommon::get_library_servers($domain); |
my %home_servers =&Apache::lonnet::get_servers($domain,'library'); |
if (! exists($home_servers{$desiredhost})) { |
if (! exists($home_servers{$desiredhost})) { |
$r->print('<font color="#ff0000">'.&mt('Error').':</font>'. |
$r->print('<font color="#ff0000">'.&mt('Error').':</font>'. |
&mt('Invalid home server specified')); |
&mt('Invalid home server specified')); |
Line 781 sub enroll_single_student {
|
Line 845 sub enroll_single_student {
|
$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. |
# Clean out any old roles the student has in this class. |
&modifystudent($env{'form.lcdomain'},$env{'form.cuname'}, |
&Apache::lonuserutils::modifystudent($env{'form.lcdomain'},$env{'form.cuname'}, |
$env{'request.course.id'},$env{'form.csec'}, |
$env{'request.course.id'},$env{'form.csec'}, |
$desiredhost); |
$desiredhost); |
my $login_result = &Apache::lonnet::modifystudent |
my $login_result = &Apache::lonnet::modifystudent |
Line 810 sub enroll_single_student {
|
Line 874 sub enroll_single_student {
|
} else { |
} else { |
$r->print(&mt('Invalid username or domain')); |
$r->print(&mt('Invalid username or domain')); |
} |
} |
|
$r->print("<p><a href='/adm/dropadd?action=enrollstudent'>".&mt("Enroll another student")."</a></p>"); |
|
if (ref($srcharray) eq 'ARRAY') { |
|
foreach my $item (@{$srcharray},'ccuname','ccdomain') { |
|
$r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n"); |
|
} |
|
} |
|
foreach my $item ('sortby','seluname','seludom') { |
|
if (exists($env{'form.'.$item})) { |
|
$r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n"); |
|
} |
|
} |
|
$r->print('<input type="hidden" name="phase" value="get_user_info" />'."\n". |
|
'<input type="hidden" name="currstate" value="" />'."\n". |
|
'<input type="hidden" name="prevphase" value="" />'."\n". |
|
'<input type="hidden" name="action" value="enrollstudent" />'."\n". |
|
'<input type="hidden" name="state" value="gotusername" />'); |
} |
} |
|
|
sub setup_date_selectors { |
sub setup_date_selectors { |
Line 873 sub date_setting_table {
|
Line 953 sub date_setting_table {
|
my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode); |
my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode); |
my $dateDefault = '<nobr>'. |
my $dateDefault = '<nobr>'. |
'<label><input type="checkbox" name="makedatesdefault" /> '. |
'<label><input type="checkbox" name="makedatesdefault" /> '. |
&mt('make these dates the default for future enrollment').'</label>'; |
&mt('make these dates the default for future enrollment'). |
|
'</label></nobr>'; |
if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') { |
if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') { |
$dateDefault = ' '; |
$dateDefault = ' '; |
} |
} |
Line 918 sub make_dates_default {
|
Line 999 sub make_dates_default {
|
return $result; |
return $result; |
} |
} |
|
|
## |
=pod |
## Single student enrollment routines (some of them) |
|
## |
=item get_student_username_domain_form() |
|
|
|
Single student enrollment routines (some of them) |
|
|
|
=cut |
|
|
sub get_student_username_domain_form { |
sub get_student_username_domain_form { |
my $r = shift; |
my ($r,$elements,$response,$srch,$forcenewuser) = @_; |
my $domform = &Apache::loncommon::select_dom_form |
my $loaditems = { |
($env{'course.'.$env{'request.course.id'}.'.domain'},'cudomain',0); |
'onload' => "javascript:setFormElements(document.studentform)", |
|
}; |
|
$r->print(&header(undef,$loaditems)); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.studentform,'','')", |
|
text=>"Single user search"}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enroll Student', |
|
'Course_Add_Student')); |
|
my $defdom=$env{'request.role.domain'}; |
|
|
|
my $jscript = &Apache::loncommon::studentbrowser_javascript()."\n". |
|
'<script type="text/javascript">'."\n". |
|
&Apache::lonhtmlcommon::set_form_elements($elements->{'studentform'}). |
|
'</script>'."\n"; |
|
|
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'eos' => "Enroll One Student", |
'eos' => "Enroll One Student", |
'usr' => "Username", |
'usr' => "Username", |
Line 932 sub get_student_username_domain_form {
|
Line 1032 sub get_student_username_domain_form {
|
'been' => "Begin Enrollment", |
'been' => "Begin Enrollment", |
); |
); |
$r->print(<<END); |
$r->print(<<END); |
<input type="hidden" name="action" value="enrollstudent" /> |
$jscript |
<input type="hidden" name="state" value="gotusername" /> |
|
<h3>$lt{'eos'}</h3> |
<h3>$lt{'eos'}</h3> |
<table> |
|
<tr><th>$lt{'usr'}:</th> |
|
<td><input type="text" name="cuname" size="15" /></td></tr> |
|
<tr><th>$lt{'dom'}:</th> |
|
<td>$domform</td></tr> |
|
<tr><th> </th> |
|
<td> |
|
<input type="submit" name="Begin Enrollment" value="$lt{'been'}" /> |
|
</td></tr> |
|
</table> |
|
<script type="text/javascript"> |
|
// the if prevents the script error if the browser can not handle this |
|
if ( document.studentform.cuname ) { document.studentform.cuname.focus(); } |
|
</script> |
|
END |
END |
|
$r->print($response); |
|
$r->print(&single_user_entry_form($defdom,$srch,$forcenewuser)); |
return; |
return; |
} |
} |
|
|
|
sub single_user_entry_form { |
|
my ($dom,$srch,$forcenewuser) = @_; |
|
my $userpicker = |
|
&Apache::loncommon::user_picker($dom,$srch,$forcenewuser, |
|
'document.studentform'); |
|
my $srchbutton = &mt('Search'); |
|
my $output = <<"ENDDOCUMENT"; |
|
<input type="hidden" name="action" value="enrollstudent" /> |
|
<input type="hidden" name="state" value="gotusername" /> |
|
<input type="hidden" name="phase" value="get_user_info" /> |
|
$userpicker |
|
<input name="userrole" type="button" value="$srchbutton" onclick="javascript:validateEntry(document.studentform)" /> |
|
ENDDOCUMENT |
|
return $output; |
|
} |
|
|
sub print_enroll_single_student_form { |
sub print_enroll_single_student_form { |
my $r=shift; |
my ($r,$jscript,$ccuname,$ccdomain,$srch) = @_; |
|
$r->print(&header($jscript)); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.studentform,'','')", |
|
text=>"Single user search"}); |
|
if ($env{'form.phase'} eq 'userpicked') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.studentform,'get_user_info','select')", |
|
text=>"Select user",}); |
|
} |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.studentform,'$env{'form.phase'}','modify')", |
|
text=>"Set enrollment",}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enroll Student', |
|
'Course_Add_Student')); |
$r->print("<h3>".&mt('Enroll One Student')."</h3>"); |
$r->print("<h3>".&mt('Enroll One Student')."</h3>"); |
# |
# |
my $username = $env{'form.cuname'}; |
my $home = &Apache::lonnet::homeserver($ccuname,$ccdomain); |
my $domain = $env{'form.cudomain'}; |
|
$username=~s/\W//gs; |
|
$domain=~s/\W//gs; |
|
my $home = &Apache::lonnet::homeserver($username,$domain); |
|
# $new_user flags whether we are creating a new user or using an old one |
# $new_user flags whether we are creating a new user or using an old one |
my $new_user = 1; |
my $new_user = 1; |
if ($home ne 'no_host') { |
if ($home ne 'no_host') { |
Line 971 sub print_enroll_single_student_form {
|
Line 1084 sub print_enroll_single_student_form {
|
my $user_data_html = ''; |
my $user_data_html = ''; |
my $javascript_validations = ''; |
my $javascript_validations = ''; |
if ($new_user) { |
if ($new_user) { |
|
my $usertoadd; |
|
my $instsrch = { |
|
srchin => 'instd', |
|
srchby => 'uname', |
|
srchtype => 'exact', |
|
srchterm => $ccuname, |
|
srchdomain => $ccdomain, |
|
}; |
|
if (($instsrch->{'srchterm'} ne '') && ($instsrch->{'srchdomain'} ne '')) { |
|
$usertoadd = $instsrch->{'srchterm'}.':'.$instsrch->{'srchdomain'}; |
|
} |
|
my (%dirsrch_results,%inst_results); |
|
if ($usertoadd) { |
|
if (&Apache::loncreateuser::directorysrch_check($instsrch) eq 'ok') { |
|
%dirsrch_results = &Apache::lonnet::inst_directory_query($instsrch); |
|
if (ref($dirsrch_results{$usertoadd}) eq 'HASH') { |
|
%inst_results = %{$dirsrch_results{$usertoadd}}; |
|
} |
|
} |
|
} |
|
|
my $defdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $defdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
# Set up authentication forms |
# Set up authentication forms |
my ($krbdef,$krbdefdom) = |
my ($krbdef,$krbdefdom) = |
&Apache::loncommon::get_kerberos_defaults($domain); |
&Apache::loncommon::get_kerberos_defaults($ccdomain); |
$javascript_validations=&javascript_validations('auth',$krbdefdom); |
$javascript_validations = |
|
&Apache::lonuserutils::javascript_validations('auth',$krbdefdom, |
|
undef,undef,$ccdomain); |
my %param = ( formname => 'document.studentform', |
my %param = ( formname => 'document.studentform', |
kerb_def_dom => $krbdefdom, |
kerb_def_dom => $krbdefdom, |
kerb_def_auth => $krbdef |
kerb_def_auth => $krbdef |
Line 986 sub print_enroll_single_student_form {
|
Line 1122 sub print_enroll_single_student_form {
|
# |
# |
# Set up domain selection form |
# Set up domain selection form |
my $homeserver_form = ''; |
my $homeserver_form = ''; |
my %servers = &Apache::loncommon::get_library_servers($domain); |
my %servers = &Apache::lonnet::get_servers($ccdomain,'library'); |
$homeserver_form = '<select name="lcserver" size="1">'."\n". |
$homeserver_form = '<select name="lcserver" size="1">'."\n". |
'<option value="default" selected>default</option>'."\n"; |
'<option value="default" selected>default</option>'."\n"; |
while (my ($servername,$serverdescription) = each (%servers)) { |
while (my ($servername,$serverdescription) = each (%servers)) { |
Line 997 sub print_enroll_single_student_form {
|
Line 1133 sub print_enroll_single_student_form {
|
# |
# |
# |
# |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'udf' => "User Data for", |
'udf' => "Personal Data", |
'fn' => "First Name", |
'fn' => "First Name", |
'mn' => "Middle Name", |
'mn' => "Middle Name", |
'ln' => "Last Name", |
'ln' => "Last Name", |
'gen' => "Generation", |
'gen' => "Generation", |
'hs' => "Home Server", |
'hs' => "Home Server", |
'pswd' => "Password", |
'pswd' => "Login Data", |
'psam' => "Please select an authentication mechanism", |
'psam' => "Please select an authentication mechanism", |
'mail' => "Email Address" |
'mail' => "E-mail Address" |
); |
); |
my $authhelp=&Apache::loncommon::help_open_topic('Auth_Options'); |
my $authhelp=&Apache::loncommon::help_open_topic('Auth_Options'); |
$user_data_html = <<END; |
$user_data_html = <<END; |
<h3>$lt{'udf'} $username\@$domain</h3> |
<h3>$lt{'udf'} $ccuname:$ccdomain</h3> |
<table> |
<table> |
<tr><th>$lt{'fn'}:</th> |
<tr><td class="LC_dropadd_labeltext"><label for="cfirst">$lt{'fn'}</label>:</td> |
<td><input type="text" name="cfirst" size="15"></td></tr> |
<td><input type="text" name="cfirst" size="15" value="$inst_results{'firstname'}" /></td></tr> |
<tr><th>$lt{'mn'}:</th> |
<tr><td class="LC_dropadd_labeltext"><label for="cmiddle">$lt{'mn'}</label>:</td> |
<td><input type="text" name="cmiddle" size="15"></td></tr> |
<td><input type="text" name="cmiddle" size="15" value="$inst_results{'middlename'}" /></td></tr> |
<tr><th>$lt{'ln'}:</th> |
<tr><td class="LC_dropadd_labeltext"><label for="clast">$lt{'ln'}</label>:</td> |
<td><input type="text" name="clast" size="15"></td></tr> |
<td><input type="text" name="clast" size="15" value="$inst_results{'lastname'}" /></td></tr> |
<tr><th>$lt{'gen'}:</th> |
<tr><td class="LC_dropadd_labeltext"><label for="cgen">$lt{'gen'}</label>:</td> |
<td><input type="text" name="cgen" size="5"> </td></tr> |
<td><input type="text" name="cgen" size="5" value="$inst_results{'generation'}" /> </td></tr> |
<tr><th>$lt{'hs'}:</th> |
<tr><td class="LC_dropadd_labeltext"><label for="lcserver">$lt{'hs'}</label>:</td> |
<td>$homeserver_form</td></tr> |
<td>$homeserver_form</td></tr> |
<tr><th>$lt{'mail'}:</th> |
<tr><td class="LC_dropadd_labeltext"><label for="emailaddress">$lt{'mail'}</label>:</td> |
<td><input type="text" name="emailaddress" size="20" /></td></tr> |
<td><input type="text" name="emailaddress" size="20" value="$inst_results{'permanentemail'}" /></td></tr> |
</table> |
</table> |
<h3>$lt{'pswd'}</h3> |
<h3>$lt{'pswd'}</h3> |
$lt{'psam'}$authhelp |
$lt{'psam'}$authhelp |
<table> |
|
<p> |
<p> |
$krbform |
|
<br /> |
|
$intform |
|
<br /> |
|
$locform |
|
</p> |
|
END |
END |
|
if ($krbform ne '') { |
|
$user_data_html .= $krbform.'<br />'; |
|
} |
|
if ($intform ne '') { |
|
$user_data_html .= $intform.'<br />'; |
|
} |
|
if ($locform ne '') { |
|
$user_data_html .= $locform.'<br />'; |
|
} |
|
$user_data_html .= "\n</p>\n" |
} else { |
} else { |
# User already exists. Do not worry about authentication |
# User already exists. Do not worry about authentication |
my %uenv = &Apache::lonnet::dump('environment',$domain,$username); |
my %uenv = &Apache::lonnet::dump('environment',$ccdomain,$ccuname); |
$javascript_validations = &javascript_validations('noauth'); |
$javascript_validations = &Apache::lonuserutils::javascript_validations('noauth'); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'udf' => "User Data for", |
'udf' => "User Data for", |
'fn' => "First Name", |
'fn' => "First Name", |
'mn' => "Middle Name", |
'mn' => "Middle Name", |
'ln' => "Last Name", |
'ln' => "Last Name", |
'gen' => "Generation", |
'gen' => "Generation", |
'mail' => "Email Address", |
'mail' => "E-mail Address", |
); |
); |
$user_data_html = <<END; |
$user_data_html = <<END; |
<h3>$lt{'udf'} $username\@$domain</h3> |
<h3>$lt{'udf'} $ccuname:$ccdomain</h3> |
<input type="hidden" name="lcserver" value="default" /> |
<input type="hidden" name="lcserver" value="default" /> |
<table> |
<table> |
<tr><th>$lt{'fn'}:</th> |
<tr><td class="LC_dropadd_labeltext"><label for="cfirst">$lt{'fn'}</label>:</td> |
<td> |
<td><input type="text" name="cfirst" value="$uenv{'firstname'}" size="15" /></td></tr> |
<input type="text" name="cfirst" value="$uenv{'firstname'}" size="15" /> |
<tr><td class="LC_dropadd_labeltext"><label for="cmiddle">$lt{'mn'}</label>:</td> |
</td></tr> |
<td><input type="text" name="cmiddle" value="$uenv{'middlename'}" size="15" /></td></tr> |
<tr><th>$lt{'mn'}:</th> |
<tr><td class="LC_dropadd_labeltext"><label for="clast">$lt{'ln'}</label>:</td> |
<td> |
<td><input type="text" name="clast" value="$uenv{'lastname'}" size="15" /></td></tr> |
<input type="text" name="cmiddle" value="$uenv{'middlename'}" size="15" /> |
<tr><td class="LC_dropadd_labeltext"><label for="cgen">$lt{'gen'}</label>:</td> |
</td></tr> |
<td><input type="text" name="cgen" value="$uenv{'generation'}" size="5" /> </td></tr> |
<tr><th>$lt{'ln'}:</th> |
<tr><td class="LC_dropadd_labeltext"><label for="emailaddress">$lt{'mail'}</label>:</td> |
<td> |
<td><input type="text" name="emailaddress" value="$uenv{'permanentemail'}" size="20" /></td></tr> |
<input type="text" name="clast"value="$uenv{'lastname'}" size="15" /> |
|
</td></tr> |
|
<tr><th>$lt{'gen'}:</th> |
|
<td> |
|
<input type="text" name="cgen" value="$uenv{'generation'}" size="5" /> |
|
</td></tr> |
|
<tr><th>$lt{'mail'}:</th> |
|
<td> |
|
<input type="text" name="emailaddress" value="$uenv{'permanentemail'}" size="20" /> |
|
</td></tr> |
|
</table> |
</table> |
END |
END |
} |
} |
my $date_table = &date_setting_table(); |
my $date_table = &Apache::lonuserutils::date_setting_table(); |
# Print it all out |
# Print it all out |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'cd' => "Course Data", |
'cd' => "Course Data", |
Line 1085 END
|
Line 1214 END
|
); |
); |
$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="gotusername" /> |
<input type="hidden" name="cuname" value="$username" /> |
<input type="hidden" name="cuname" value="$ccuname" /> |
<input type="hidden" name="lcdomain" value="$domain" /> |
<input type="hidden" name="lcdomain" value="$ccdomain" /> |
<script type="text/javascript" language="Javascript"> |
<script type="text/javascript" language="Javascript"> |
function verify(vf,sec_caller) { |
function verify(vf,sec_caller) { |
var founduname=0; |
var founduname=0; |
Line 1132 $user_data_html
|
Line 1261 $user_data_html
|
|
|
<h3>$lt{'cd'}</h3> |
<h3>$lt{'cd'}</h3> |
|
|
<p>$lt{'gs'}: <input type="text" name="csec" size="5" /> |
<p><label for="csec">$lt{'gs'}</label>: <input type="text" name="csec" size="5" /> |
<p> |
|
$date_table |
|
</p> |
</p> |
|
$date_table |
<h3>$lt{'idsn'}</h3> |
<h3>$lt{'idsn'}</h3> |
<p> |
<p> |
$lt{'idsn'}: <input type="text" name="cstid" size="10"> |
<label for="cstid">$lt{'idsn'}</label>: <input type="text" name="cstid" size="10" /> |
</p><p> |
</p><p> |
<label> |
<label> |
<input type="checkbox" name="forceid" value="yes"> |
<input type="checkbox" name="forceid" value="yes" /> |
$lt{'disn'} |
$lt{'disn'} |
</label> |
</label> |
</p><p> |
</p><p> |
<input type="button" onClick="verify(this.form,this.form.csec)" value="$lt{'eas'}"> |
<input type="button" onClick="verify(this.form,this.form.csec)" value="$lt{'eas'}" /> |
</p> |
</p> |
END |
END |
|
$r->print('<input type="hidden" name="currstate" value="" />'."\n". |
|
'<input type="hidden" name="phase" value="" />'."\n". |
|
'<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />'."\n"); |
|
if (ref($srch) eq 'HASH') { |
|
foreach my $item (sort(keys(%{$srch}))) { |
|
$r->print('<input type="hidden" name="'.$item.'" value="'.$srch->{$item}.'" />'."\n"); |
|
} |
|
} |
|
foreach my $item ('sortby','seluname','seludom') { |
|
if (exists($env{'form.'.$item})) { |
|
$r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n"); |
|
} |
|
} |
return; |
return; |
} |
} |
|
|
# ========================================================= Menu Phase Two Drop |
=pod |
|
|
|
=item print_drop_menu() |
|
|
|
Menu Phase Two Drop |
|
|
|
=cut |
|
|
sub print_drop_menu { |
sub print_drop_menu { |
my $r=shift; |
my $r=shift; |
$r->print("<h3>".&mt('Drop Students')."</h3>"); |
$r->print("<h3>".&mt('Drop Students')."</h3>"); |
Line 1166 sub print_drop_menu {
|
Line 1314 sub print_drop_menu {
|
return; |
return; |
} |
} |
|
|
# ============================================== view classlist |
|
|
=pod |
|
|
|
=item print_html_classlist() |
|
|
|
view classlist |
|
|
|
=cut |
|
|
sub print_html_classlist { |
sub print_html_classlist { |
my ($r,$mode) = @_; |
my ($r,$mode,$permission) = @_; |
if (! exists($env{'form.sortby'})) { |
if (! exists($env{'form.sortby'})) { |
$env{'form.sortby'} = 'username'; |
$env{'form.sortby'} = 'username'; |
} |
} |
if ($env{'form.Status'} !~ /^(Any|Expired|Active)$/) { |
if ($env{'form.Status'} !~ /^(Any|Expired|Active|Future)$/) { |
$env{'form.Status'} = 'Active'; |
$env{'form.Status'} = 'Active'; |
} |
} |
my $status_select = &Apache::lonhtmlcommon::StatusOptions |
my $status_select = &Apache::lonhtmlcommon::StatusOptions |
($env{'form.Status'}); |
($env{'form.Status'}); |
my $cid=$env{'request.course.id'}; |
my $cid =$env{'request.course.id'}; |
my $cdom=$env{'course.'.$cid.'.domain'}; |
my $cdom=$env{'course.'.$cid.'.domain'}; |
my $cnum=$env{'course.'.$cid.'.num'}; |
my $cnum=$env{'course.'.$cid.'.num'}; |
# |
# |
Line 1223 sub print_html_classlist {
|
Line 1379 sub print_html_classlist {
|
$output_selector .= "\n".$option; |
$output_selector .= "\n".$option; |
} |
} |
$output_selector .= '</select>'; |
$output_selector .= '</select>'; |
$r->print(&mt('Output Format: [_1]',$output_selector).(' 'x3)); |
$r->print('<label>'.&mt('Output Format: [_1]',$output_selector).'</label>'.(' 'x3)); |
} |
} |
$r->print(&mt('Student Status: [_1]',$status_select)."\n"); |
$r->print('<label>'.&mt('Student Status: [_1]',$status_select)."</label>\n"); |
$r->print('<input type="submit" value="'.&mt('Update Display').'" />'. |
$r->print('<input type="submit" value="'.&mt('Update Display').'" />'. |
"\n</p>\n"); |
"\n</p>\n"); |
# |
# |
# Print the classlist |
# Print the classlist |
$r->print('<h2>'.&mt('Current Class List').'</h2>'); |
$r->print('<h2>'.&mt('Current Class List').'</h2>'); |
my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist(); |
my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist(); |
|
|
|
if (exists($permission->{'view_section'})) { |
|
my $sec = &Apache::loncoursedata::CL_SECTION(); |
|
foreach my $student (keys(%{$classlist})) { |
|
if ($classlist->{$student}[$sec] ne $permission->{'view_section'}) { |
|
delete($classlist->{$student}); |
|
} |
|
} |
|
} |
|
|
if (! defined($classlist)) { |
if (! defined($classlist)) { |
$r->print(&mt('There are no students currently enrolled.')."\n"); |
$r->print(&mt('There are no students currently enrolled.')."\n"); |
} else { |
} else { |
Line 1246 sub print_html_classlist {
|
Line 1412 sub print_html_classlist {
|
} |
} |
} |
} |
|
|
# =================================================== Show student list to drop |
|
|
=pod |
|
|
|
=item show_class_list() |
|
|
|
Show student list to drop |
|
|
|
=cut |
|
|
sub show_class_list { |
sub show_class_list { |
my ($r,$mode,$linkto,$statusmode,$classlist,$keylist)=@_; |
my ($r,$mode,$linkto,$statusmode,$classlist,$keylist)=@_; |
my $cid=$env{'request.course.id'}; |
my $cid=$env{'request.course.id'}; |
Line 1270 sub show_class_list {
|
Line 1444 sub show_class_list {
|
} |
} |
my $displayphotos = $env{'form.displayphotos'}; |
my $displayphotos = $env{'form.displayphotos'}; |
|
|
|
if (! exists($env{'form.displayclickers'})) { |
|
$env{'form.displayclickers'} = 'off'; |
|
} |
|
my $displayclickers = $env{'form.displayclickers'}; |
|
|
# Print out header |
# Print out header |
unless ($mode eq 'autoenroll') { |
unless ($mode eq 'autoenroll') { |
$r->print(<<END); |
$r->print(<<END); |
Line 1279 END
|
Line 1458 END
|
$r->print(<<END); |
$r->print(<<END); |
<input type="hidden" name="sortby" value="$sortby" /> |
<input type="hidden" name="sortby" value="$sortby" /> |
<input type="hidden" name="displayphotos" value="$displayphotos" /> |
<input type="hidden" name="displayphotos" value="$displayphotos" /> |
|
<input type="hidden" name="displayclickers" value="$displayclickers" /> |
END |
END |
if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll') { |
if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll') { |
if ($linkto eq 'aboutme') { |
if ($linkto eq 'aboutme') { |
Line 1295 END
|
Line 1475 END
|
'start' => "start date", |
'start' => "start date", |
'end' => "end date", |
'end' => "end date", |
'type' => "enroll type/action", |
'type' => "enroll type/action", |
|
'email' => "e-mail address", |
|
'clicker'=> "clicker id", |
'photo' => "photo", |
'photo' => "photo", |
); |
); |
unless ($mode eq 'autoenroll') { |
unless ($mode eq 'autoenroll') { |
Line 1347 function photowindow(photolink) {
|
Line 1529 function photowindow(photolink) {
|
<a href="javascript:document.studentform.sortby.value='end';document.studentform.submit();">$lt{'end'}</a> |
<a href="javascript:document.studentform.sortby.value='end';document.studentform.submit();">$lt{'end'}</a> |
</th><th> |
</th><th> |
<a href="javascript:document.studentform.sortby.value='groups';document.studentform.submit();">$lt{'grp'}</a> |
<a href="javascript:document.studentform.sortby.value='groups';document.studentform.submit();">$lt{'grp'}</a> |
|
</th><th> |
|
<a href="javascript:document.studentform.sortby.value='email';document.studentform.submit();">$lt{'email'}</a> |
</th> |
</th> |
END |
END |
|
|
|
# Clicker display on or off? |
|
|
|
my %clicker_options = &Apache::lonlocal::texthash( |
|
'on' => 'Show', |
|
'off' => 'Hide', |
|
); |
|
my $clickerchg = 'on'; |
|
if ($displayclickers eq 'on') { |
|
$clickerchg = 'off'; |
|
} |
|
$r->print(' <th>'."\n".' '. |
|
'<a href="javascript:document.studentform.displayclickers.value='. |
|
"'".$clickerchg."'".';document.studentform.submit();">'. |
|
$clicker_options{$clickerchg}.'</a> '.$lt{'clicker'}."\n". |
|
' </th>'."\n"); |
|
|
|
# Photo display on or off? |
if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) { |
if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) { |
my %photo_options = &Apache::lonlocal::texthash( |
my %photo_options = &Apache::lonlocal::texthash( |
'on' => 'Show', |
'on' => 'Show', |
Line 1365 END
|
Line 1567 END
|
' </th>'."\n"); |
' </th>'."\n"); |
} |
} |
$r->print(" </tr>\n"); |
$r->print(" </tr>\n"); |
|
|
|
# Done with the HTML header line |
|
|
} elsif ($mode eq 'csv') { |
} elsif ($mode eq 'csv') { |
# |
# |
# Open a file |
# Open a file |
Line 1373 END
|
Line 1578 END
|
time.'_'.rand(1000000000).'.csv'; |
time.'_'.rand(1000000000).'.csv'; |
unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) { |
unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) { |
$r->log_error("Couldn't open $CSVfilename for output $!"); |
$r->log_error("Couldn't open $CSVfilename for output $!"); |
$r->print("Problems occured in writing the csv file. ". |
$r->print(&mt('Problems occurred in writing the csv file. ' |
"This error has been logged. ". |
.'This error has been logged. ' |
"Please alert your LON-CAPA administrator."); |
.'Please alert your LON-CAPA administrator.')); |
$CSVfile = undef; |
$CSVfile = undef; |
} |
} |
# |
# |
Line 1383 END
|
Line 1588 END
|
if($statusmode eq 'Expired') { |
if($statusmode eq 'Expired') { |
print $CSVfile '"'.&mt('Students with expired roles').'"'."\n"; |
print $CSVfile '"'.&mt('Students with expired roles').'"'."\n"; |
} |
} |
|
if($statusmode eq 'Future') { |
|
print $CSVfile '"'.&mt('Students with future roles').'"'."\n"; |
|
} |
if ($statusmode eq 'Any') { |
if ($statusmode eq 'Any') { |
print $CSVfile '"'.join('","',map { |
print $CSVfile '"'.join('","',map { |
&Apache::loncommon::csv_translate(&mt($_)) |
&Apache::loncommon::csv_translate(&mt($_)) |
} ("username","domain","ID","student name", |
} ("username","domain","ID","student name", |
"section","start date","end date","status","active groups")) |
"section","start date","end date","status", |
|
"active groups","email address")) |
.'"'."\n"; |
.'"'."\n"; |
} else { |
} else { |
print $CSVfile '"'.join('","',map { |
print $CSVfile '"'.join('","',map { |
&Apache::loncommon::csv_translate(&mt($_)) |
&Apache::loncommon::csv_translate(&mt($_)) |
} ("username","domain","ID","student name", |
} ("username","domain","ID","student name", |
"section","start date","end date","active groups")).'"'."\n"; |
"section","start date","end date", |
|
"active groups","email address")).'"'."\n"; |
} |
} |
} elsif ($mode eq 'excel') { |
} elsif ($mode eq 'excel') { |
# Create the excel spreadsheet |
# Create the excel spreadsheet |
Line 1409 END
|
Line 1619 END
|
$excel_sheet->write($row++,0,["username","domain","ID", |
$excel_sheet->write($row++,0,["username","domain","ID", |
"student name","section", |
"student name","section", |
"start date","end date","status", |
"start date","end date","status", |
"active groups"], |
"active groups","email address"], |
$format->{'bold'}); |
$format->{'bold'}); |
} |
} |
|
|
|
# Done with header lines in all formats |
|
|
# |
# |
# Sort the students |
# Sort the students |
my %index; |
my %index; |
Line 1448 END
|
Line 1661 END
|
my $name = $sdata->[$index{'fullname'}]; |
my $name = $sdata->[$index{'fullname'}]; |
my $id = $sdata->[$index{'id'}]; |
my $id = $sdata->[$index{'id'}]; |
my $status = $sdata->[$index{'status'}]; |
my $status = $sdata->[$index{'status'}]; |
|
next if (($statusmode ne 'Any') && ($status ne $statusmode)); |
my $start = $sdata->[$index{'start'}]; |
my $start = $sdata->[$index{'start'}]; |
my $end = $sdata->[$index{'end'}]; |
my $end = $sdata->[$index{'end'}]; |
my $type = $sdata->[$index{'type'}]; |
my $type = $sdata->[$index{'type'}]; |
next if (($statusmode ne 'Any') && ($status ne $statusmode)); |
|
|
my %emails = &Apache::loncommon::getemails($username,$domain); |
|
my $email; |
|
if ($emails{'permanentemail'} =~ /\S/) { |
|
$email = $emails{'permanentemail'}; |
|
} |
|
|
if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') { |
if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') { |
if (! defined($start) || $start == 0) { |
if (! defined($start) || $start == 0) { |
$start = &mt('none'); |
$start = &mt('none'); |
Line 1511 END
|
Line 1731 END
|
<td>$start</td> |
<td>$start</td> |
<td>$end</td> |
<td>$end</td> |
<td>$active_groups</td> |
<td>$active_groups</td> |
|
<td>$email</td> |
END |
END |
|
|
|
# Clickers |
|
if ($displayclickers eq 'on') { |
|
my $clickers = |
|
(&Apache::lonnet::userenvironment($domain,$username,'clickers'))[1]; |
|
if ($clickers!~/\w/) { $clickers='-'; } |
|
$r->print('<td>'.$clickers.'</td>'); |
|
} else { |
|
$r->print(' <td> </td> '); |
|
} |
|
|
|
# Photos |
|
|
if ($env{'course.'.$env{'request.course.id'}. |
if ($env{'course.'.$env{'request.course.id'}. |
'.internal.showphoto'}) { |
'.internal.showphoto'}) { |
if ($displayphotos eq 'on') { |
if ($displayphotos eq 'on') { |
Line 1547 END
|
Line 1781 END
|
push @line,&Apache::loncommon::csv_translate($status); |
push @line,&Apache::loncommon::csv_translate($status); |
} |
} |
push @line,&Apache::loncommon::csv_translate($active_groups); |
push @line,&Apache::loncommon::csv_translate($active_groups); |
|
push @line,&Apache::loncommon::csv_translate($email); |
print $CSVfile '"'.join('","',@line).'"'."\n"; |
print $CSVfile '"'.join('","',@line).'"'."\n"; |
} elsif ($mode eq 'excel') { |
} elsif ($mode eq 'excel') { |
$excel_sheet->write($row,0,[$username,$domain,$id, |
$excel_sheet->write($row,0,[$username,$domain,$id, |
Line 1563 END
|
Line 1798 END
|
} |
} |
$excel_sheet->write($row,$col++,$status); |
$excel_sheet->write($row,$col++,$status); |
$excel_sheet->write($row,$col++,$active_groups); |
$excel_sheet->write($row,$col++,$active_groups); |
|
$excel_sheet->write($row,$col++,$email); |
$row++; |
$row++; |
} |
} |
} |
} |
Line 1586 END
|
Line 1822 END
|
} |
} |
|
|
|
|
# |
=pod |
# print out form for modification of a single students data |
|
# |
=item print_modify_student_form() |
|
|
|
print out form for modification of a single students data |
|
|
|
=cut |
|
|
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'}, |
Line 1599 sub print_modify_student_form {
|
Line 1840 sub print_modify_student_form {
|
# 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','id'], |
'lastname','generation','id', |
$sdom, $sname); |
'permanentemail'], $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) { |
$r->print('<font color="#ff0000" size="+2">'.&mt('Error').'</font>'. |
$r->print('<font color="#ff0000" size="+2">'.&mt('Error').'</font>'. |
Line 1639 sub print_modify_student_form {
|
Line 1880 sub print_modify_student_form {
|
&Apache::lonlocal::locallocaltime($endtime)).'<br />'; |
&Apache::lonlocal::locallocaltime($endtime)).'<br />'; |
|
|
} |
} |
my $date_table = &date_setting_table($starttime,$endtime); |
my $date_table = |
|
&Apache::lonuserutils::date_setting_table($starttime,$endtime); |
# |
# |
if (! exists($env{'form.Status'}) || |
if (! exists($env{'form.Status'}) || |
$env{'form.Status'} !~ /^(Any|Expired|Active)$/) { |
$env{'form.Status'} !~ /^(Any|Expired|Active|Future)$/) { |
$env{'form.Status'} = 'crap'; |
$env{'form.Status'} = 'crap'; |
} |
} |
# Make sure student is enrolled in course |
# Make sure student is enrolled in course |
Line 1654 sub print_modify_student_form {
|
Line 1896 sub print_modify_student_form {
|
'mn' => "Middle", |
'mn' => "Middle", |
'ln' => "Last", |
'ln' => "Last", |
'gen' => "Generation", |
'gen' => "Generation", |
|
'email' => "E-mail address", |
'sid' => "Student ID", |
'sid' => "Student ID", |
'disn' => "Disable ID/Student Number Safeguard and Force Change of Conflicting IDs (only do if you know what you are doing)", |
'disn' => "Disable ID/Student Number Safeguard and Force Change of Conflicting IDs (only do if you know what you are doing)", |
'sec' => "Section", |
'sec' => "Section", |
'sm' => "Submit Modifications", |
'sm' => "Submit Modifications", |
); |
); |
# Check if section name is valid |
# Check if section name is valid |
my $section_check = §ion_check_js(); |
my $section_check = &Apache::lonuserutils::section_check_js(); |
$r->print(<<"END"); |
$r->print(<<"END"); |
<script type="text/javascript"> |
<script type="text/javascript"> |
$section_check |
$section_check |
Line 1683 $lt{'odcc'}
|
Line 1926 $lt{'odcc'}
|
<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'}" /> |
<input type="hidden" name="Status" value="$env{'form.Status'}" /> |
<h2>$lt{'mef'} $info{'firstname'} $info{'middlename'} |
<h3>$lt{'mef'} $info{'firstname'} $info{'middlename'} |
$info{'lastname'} $info{'generation'}, $sname\@$sdom</h2> |
$info{'lastname'} $info{'generation'}, $sname:$sdom</h3> |
<p> |
<p> |
<b>$lt{'sn'}</b> |
<b>$lt{'sn'}</b> |
<table> |
<table> |
Line 1696 $info{'lastname'} $info{'generation'}, $
|
Line 1939 $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>$lt{'sid'}</b>: <input type="text" name="id" value="$info{'id'}" size="12"/> |
<b>$lt{'email'}</b>: <input type="text" name="permanentemail" value="$info{'permanentemail'}" size="30" /> |
|
</p><p> |
|
<b>$lt{'sid'}</b>: <input type="text" name="id" value="$info{'id'}" size="12" /> |
</p><p> |
</p><p> |
<label> |
<label> |
<input type="checkbox" name="forceid" > |
<input type="checkbox" name="forceid" /> |
$lt{'disn'} |
$lt{'disn'} |
</label> |
</label> |
</p><p> |
</p><p> |
<b>$lt{'sec'}</b>: <input type="text" name="section" value="$section" size="14"/> |
<b>$lt{'sec'}</b>: <input type="text" name="section" value="$section" size="14" /> |
</p> |
</p> |
<p>$current_date_description</p> |
<p>$current_date_description</p> |
<p>$date_table</p> |
<p>$date_table</p> |
Line 1713 END
|
Line 1958 END
|
return; |
return; |
} |
} |
|
|
# |
|
# modify a single students section |
=pod |
# |
|
|
=item modify_single_student() |
|
|
|
modify a single students section |
|
|
|
=cut |
|
|
sub modify_single_student { |
sub modify_single_student { |
my ($r) = @_; |
my ($r) = @_; |
# |
# |
Line 1723 sub modify_single_student {
|
Line 1974 sub modify_single_student {
|
$env{'form.section'} =~ s/\W//g; |
$env{'form.section'} =~ s/\W//g; |
# |
# |
# Do the date defaults first |
# Do the date defaults first |
my ($starttime,$endtime) = &get_dates_from_form(); |
my ($starttime,$endtime) = &Apache::lonuserutils::get_dates_from_form(); |
if ($env{'form.makedatesdefault'}) { |
if ($env{'form.makedatesdefault'}) { |
$r->print(&make_dates_default($starttime,$endtime)); |
$r->print(&Apache::lonuserutils::make_dates_default($starttime, |
|
$endtime)); |
} |
} |
# Get the 'sortby' and 'Status' variables so the user goes back to their |
# Get the 'sortby' and 'Status' variables so the user goes back to their |
# previous screen |
# previous screen |
Line 1739 sub modify_single_student {
|
Line 1991 sub modify_single_student {
|
# Get the old data |
# Get the old data |
my %old=&Apache::lonnet::get('environment', |
my %old=&Apache::lonnet::get('environment', |
['firstname','middlename', |
['firstname','middlename', |
'lastname','generation','id'], |
'lastname','generation','id', |
$sdom, $slogin); |
'permanentemail'],$sdom, $slogin); |
$old{'section'} = &Apache::lonnet::getsection($sdom,$slogin, |
$old{'section'} = &Apache::lonnet::getsection($sdom,$slogin, |
$env{'request.course.id'}); |
$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(&mt('There was an error determining the environment values for')." $slogin \@ $sdom."); |
$r->print(&mt('There was an error determining the environment values for')." $slogin : $sdom."); |
return; |
return; |
} |
} |
undef $tmp; |
undef $tmp; |
Line 1755 sub modify_single_student {
|
Line 2007 sub modify_single_student {
|
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 $permanentemail = $env{'form.permanentemail'}; |
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'}; |
Line 1779 sub modify_single_student {
|
Line 2032 sub modify_single_student {
|
'mn' => "Middle name", |
'mn' => "Middle name", |
'ln' => "Last name", |
'ln' => "Last name", |
'gen' => "Generation", |
'gen' => "Generation", |
|
'em' => "E-mail address", |
'sec' => "Section", |
'sec' => "Section", |
'ri' => "Role Information", |
'ri' => "Role Information", |
'st' => "Start Time", |
'st' => "Start Time", |
'et' => "End Time", |
'et' => "End Time", |
); |
); |
$r->print(<<END); |
$r->print(<<END); |
<h2>$lt{'mdu'} $slogin \@ $sdom </h2> |
<h3>$lt{'mdu'} $slogin:$sdom </h3> |
<h3>$lt{'si'}</h3> |
END |
<table rules="rows" border="1" cellpadding="3" > |
$r->print(<<END); |
<tr> |
|
<th> $lt{'fd'} </th> |
|
<th> $lt{'ov'} </th> |
|
<th> $lt{'nv'} </th> |
|
</tr> |
|
<tr> |
|
<td> <b>$lt{'fn'}</b> </td> |
|
<td> $old{'firstname'} </td> |
|
<td> $firstname </td> |
|
</tr><tr> |
|
<td> <b>$lt{'mn'}</b> </td> |
|
<td> $old{'middlename'} </td> |
|
<td> $middlename </td> |
|
</tr><tr> |
|
<td> <b>$lt{'ln'}</b> </td> |
|
<td> $old{'lastname'} </td> |
|
<td> $lastname </td> |
|
</tr><tr> |
|
<td> <b>$lt{'gen'}</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>$lt{'sec'}</b> </td> |
|
<td> $old{'section'} </td> |
|
<td> $section</td> |
|
</tr> |
|
</table> |
|
<h3>$lt{'ri'}</h3> |
|
<table> |
<table> |
<tr><td align="right"><b>$lt{'st'}:</b></td><td> $displayable_starttime </td></tr> |
<tr> |
<tr><td align="right"><b>$lt{'et'}:</b></td><td> $displayable_endtime </td></tr> |
<td> |
|
<table class="LC_nested_outer"> |
|
<tr> |
|
<th>$lt{si}</th> |
|
</tr> |
|
<tr> |
|
<td> |
|
<table class="LC_nested"> |
|
<tr class="LC_info_row"> |
|
<td class="LC_left_item"> $lt{'fd'} </td> |
|
<td class="LC_left_item"> $lt{'ov'} </td> |
|
<td class="LC_left_item"> $lt{'nv'} </td> |
|
</tr> |
|
<tr class="LC_odd_row"> |
|
<td class="LC_left_item"> <b>$lt{'fn'}</b> </td> |
|
<td class="LC_left_item"> $old{'firstname'} </td> |
|
<td class="LC_left_item"> $firstname </td> |
|
</tr> |
|
<tr> |
|
<td class="LC_left_item"> <b>$lt{'mn'}</b> </td> |
|
<td class="LC_left_item"> $old{'middlename'} </td> |
|
<td class="LC_left_item"> $middlename </td> |
|
</tr> |
|
<tr class="LC_odd_row"> |
|
<td class="LC_left_item"> <b>$lt{'ln'}</b> </td> |
|
<td class="LC_left_item"> $old{'lastname'} </td> |
|
<td class="LC_left_item"> $lastname </td> |
|
</tr> |
|
<tr> |
|
<td class="LC_left_item"> <b>$lt{'gen'}</b> </td> |
|
<td class="LC_left_item"> $old{'generation'} </td> |
|
<td class="LC_left_item"> $generation </td> |
|
</tr> |
|
<tr class="LC_odd_row"> |
|
<td class="LC_left_item"> <b>ID</b> </td> |
|
<td class="LC_left_item"> $old{'id'} </td> |
|
<td class="LC_left_item"> $sid </td> |
|
</tr> |
|
<tr> |
|
<td class="LC_left_item"> <b>$lt{'em'}</b> </td> |
|
<td class="LC_left_item"> $old{'permanentemail'} </td> |
|
<td class="LC_left_item"> $permanentemail </td> |
|
<tr class="LC_odd_row"> |
|
<td> <b>$lt{'sec'}</b> </td> |
|
<td> $old{'section'} </td> |
|
<td> $section</td> |
|
</tr> |
|
</table> |
|
</td> |
|
</tr> |
|
</table> |
|
<br /> |
|
<table class="LC_nested_outer"> |
|
<tr> |
|
<th>$lt{'ri'}</th> |
|
</tr> |
|
<tr> |
|
<td> |
|
<table class="LC_nested"> |
|
<tr class="LC_odd_row"> |
|
<td class="LC_left_item"><b>$lt{'st'}:</b></td> |
|
<td class="LC_right_item"> $displayable_starttime </td> |
|
</tr> |
|
<tr> |
|
<td class="LC_left_item"><b>$lt{'et'}:</b></td> |
|
<td class="LC_right_item"> $displayable_endtime </td> |
|
</tr> |
|
</table> |
|
</td> |
|
</tr> |
|
</table> |
|
</td> |
|
</tr> |
</table> |
</table> |
<p> |
<p> |
END |
END |
# |
# |
# Send request(s) to modify data (final undef is for 'desiredhost', |
# Send request(s) to modify data (final undef is for 'desiredhost', |
# which is a moot point because the student already has an account. |
# which is a moot point because the student already has an account. |
my $modify_section_results = &modifystudent($sdom,$slogin, |
my $modify_section_results = |
$env{'request.course.id'}, |
&Apache::lonuserutils::modifystudent($sdom,$slogin, |
$section,undef); |
$env{'request.course.id'}, |
|
$section,undef); |
if ($modify_section_results !~ /^ok/) { |
if ($modify_section_results !~ /^ok/) { |
$r->print(&mt('An error occured during the attempt to change the section for this student.')."<br />"); |
$r->print(&mt('An error occurred 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'}, |
|
undef,$permanentemail); |
|
if ($old{'permanentemail'} ne $permanentemail) { |
|
&Apache::loncommon::flush_email_cache($slogin,$sdom); |
|
} |
if ($roleresults eq 'refused' ) { |
if ($roleresults eq 'refused' ) { |
$r->print(&mt('Your request to change the role information for this student was refused. You do not appear to have sufficient authority to change student information.')); |
$r->print(&mt('Your request to change the role information for this student was refused. You do not appear to have sufficient authority to change student information.')); |
} elsif ($roleresults !~ /ok/) { |
} elsif ($roleresults !~ /ok/) { |
Line 1845 END
|
Line 2144 END
|
&mt('The error reported was')." ". |
&mt('The error reported was')." ". |
$roleresults); |
$roleresults); |
&Apache::lonnet::logthis("londropadd:failed attempt to modify student". |
&Apache::lonnet::logthis("londropadd:failed attempt to modify student". |
" data for ".$slogin." \@ ".$sdom." by ". |
" data for ".$slogin." : ".$sdom." by ". |
$env{'user.name'}." \@ ".$env{'user.domain'}. |
$env{'user.name'}." : ".$env{'user.domain'}. |
":".$roleresults); |
":".$roleresults); |
} else { # everything is okay! |
} else { # everything is okay! |
$r->print(&mt('Student information updated successfully.')." <br />". |
$r->print(&mt('Student information updated successfully.')." <br />". |
Line 1867 END
|
Line 2166 END
|
sub get_enrollment_data { |
sub get_enrollment_data { |
my ($sname,$sdomain) = @_; |
my ($sname,$sdomain) = @_; |
my $courseid = $env{'request.course.id'}; |
my $courseid = $env{'request.course.id'}; |
$courseid =~ s:_:/:g; |
my $cdom = $env{'course.'.$courseid.'.domain'}; |
|
my $cnum = $env{'course.'.$courseid.'.num'}; |
my %roles = &Apache::lonnet::dump('roles',$sdomain,$sname); |
my %roles = &Apache::lonnet::dump('roles',$sdomain,$sname); |
my ($tmp) = keys(%roles); |
my ($tmp) = keys(%roles); |
# Bail out if we were unable to get the students roles |
# Bail out if we were unable to get the students roles |
Line 1877 sub get_enrollment_data {
|
Line 2177 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)) { |
if ($course=~ /^\/$courseid\/*\s*(\w+)*_st$/ ) { |
if ($course=~m{^/\Q$cdom\E/\Q$cnum\E/*\s*(\w+)*_st$} ) { |
# |
# |
# Get active role |
# Get active role |
$section=$1; |
$section=$1; |
Line 1896 sub get_enrollment_data {
|
Line 2196 sub get_enrollment_data {
|
return ($start,$end,$section); |
return ($start,$end,$section); |
} |
} |
|
|
################################################# |
|
################################################# |
|
|
|
=pod |
=pod |
|
|
=item show_drop_list |
=item show_drop_list() |
|
|
Display a list of students to drop |
Display a list of students to drop |
Inputs: |
Inputs: |
Line 1921 which describes the order elements are s
|
Line 2219 which describes the order elements are s
|
|
|
=cut |
=cut |
|
|
################################################# |
|
################################################# |
|
sub show_drop_list { |
sub show_drop_list { |
my ($r,$classlist,$keylist,$nosort)=@_; |
my ($r,$classlist,$keylist,$nosort)=@_; |
my $cid=$env{'request.course.id'}; |
my $cid=$env{'request.course.id'}; |
Line 2082 END
|
Line 2378 END
|
return; |
return; |
} |
} |
|
|
# |
|
# Print out the initial form to get the courselist file |
=pod |
# |
|
|
=item print_first_courselist_upload_form() |
|
|
|
Print out the initial form to get the courselist file |
|
|
|
=cut |
|
|
sub print_first_courselist_upload_form { |
sub print_first_courselist_upload_form { |
my $r=shift; |
my $r=shift; |
my $str; |
my $str; |
Line 2109 sub print_first_courselist_upload_form {
|
Line 2411 sub print_first_courselist_upload_form {
|
return; |
return; |
} |
} |
|
|
# ================================================= Drop/Add from uploaded file |
|
|
=pod |
|
|
|
=item upfile_drop_add() |
|
|
|
Drop/Add from uploaded file |
|
|
|
=cut |
|
|
sub upfile_drop_add { |
sub upfile_drop_add { |
my $r=shift; |
my $r=shift; |
&Apache::loncommon::load_tmp_file($r); |
&Apache::loncommon::load_tmp_file($r); |
Line 2156 sub upfile_drop_add {
|
Line 2466 sub upfile_drop_add {
|
if (lc($desiredhost) eq 'default') { |
if (lc($desiredhost) eq 'default') { |
$desiredhost = undef; |
$desiredhost = undef; |
} else { |
} else { |
my %home_servers = &Apache::loncommon::get_library_servers($domain); |
my %home_servers = &Apache::lonnet::get_servers($domain,'library'); |
if (! exists($home_servers{$desiredhost})) { |
if (! exists($home_servers{$desiredhost})) { |
$r->print('<font color="#ff0000">'.&mt('Error').'</font>'. |
$r->print('<font color="#ff0000">'.&mt('Error').'</font>'. |
&mt('Invalid home server specified')); |
&mt('Invalid home server specified')); |
Line 2190 sub upfile_drop_add {
|
Line 2500 sub upfile_drop_add {
|
$amode = ''; # This causes the loop below to be skipped |
$amode = ''; # This causes the loop below to be skipped |
} |
} |
} |
} |
unless (($domain=~/\W/) || ($amode eq '')) { |
if ( $domain eq &LONCAPA::clean_domain($domain) |
|
&& ($amode ne '')) { |
####################################### |
####################################### |
## Enroll Students ## |
## Enroll Students ## |
####################################### |
####################################### |
Line 2224 sub upfile_drop_add {
|
Line 2535 sub upfile_drop_add {
|
$gen=$entries{$fields{'gen'}}; |
$gen=$entries{$fields{'gen'}}; |
} |
} |
} |
} |
if ($entries{$fields{'username'}}=~/\W/) { |
if ($entries{$fields{'username'}} |
|
ne &LONCAPA::clean_username($entries{$fields{'username'}})) { |
$r->print('<br />'. |
$r->print('<br />'. |
&mt('<b>[_1]</b>: Unacceptable username for user [_2] [_3] [_4] [_5]', |
&mt('<b>[_1]</b>: Unacceptable username for user [_2] [_3] [_4] [_5]', |
$entries{$fields{'username'}},$fname,$mname,$lname,$gen). |
$entries{$fields{'username'}},$fname,$mname,$lname,$gen). |
Line 2284 sub upfile_drop_add {
|
Line 2596 sub upfile_drop_add {
|
$$_ =~ s/(\s+$|^\s+)//g; |
$$_ =~ s/(\s+$|^\s+)//g; |
} |
} |
if ($password || $env{'form.login'} eq 'loc') { |
if ($password || $env{'form.login'} eq 'loc') { |
&modifystudent($domain,$username,$cid,$sec, |
&Apache::lonuserutils::modifystudent($domain, |
$desiredhost); |
$username,$cid, |
|
$sec,$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, |
Line 2352 sub drop_student_list {
|
Line 2665 sub drop_student_list {
|
foreach (@droplist) { |
foreach (@droplist) { |
my ($uname,$udom)=split(/\:/,$_); |
my ($uname,$udom)=split(/\:/,$_); |
# drop student |
# drop student |
my $result = &modifystudent($udom,$uname,$env{'request.course.id'}); |
my $result = &Apache::lonuserutils::modifystudent($udom,$uname, |
|
$env{'request.course.id'}); |
if ($result eq 'ok' || $result eq 'ok:') { |
if ($result eq 'ok' || $result eq 'ok:') { |
$r->print(&mt('Dropped [_1]',$uname.'@'.$udom).'<br>'); |
$r->print(&mt('Dropped [_1]',$uname.'@'.$udom).'<br>'); |
$count++; |
$count++; |
Line 2393 function validate(caller) {
|
Line 2707 function validate(caller) {
|
END |
END |
} |
} |
|
|
################################################################### |
sub get_permission { |
################################################################### |
my %permission; |
|
$permission{'view'} = |
|
&Apache::lonnet::allowed('vcl',$env{'request.course.id'}); |
|
if (!$permission{'view'}) { |
|
my $scope = $env{'request.course.id'}.'/'.$env{'request.course.sec'}; |
|
$permission{'view'} = &Apache::lonnet::allowed('vcl',$scope); |
|
if ($permission{'view'}) { |
|
$permission{'view_section'} = $env{'request.course.sec'}; |
|
} |
|
} |
|
|
|
$permission{'enrl'} = |
|
&Apache::lonnet::allowed('cst',$env{'request.course.id'}); |
|
|
|
$permission{'grp_view'} = |
|
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}); |
|
$permission{'grp_manage'} = |
|
&Apache::lonnet::allowed('mdg',$env{'request.course.id'}); |
|
my $allowed = 0; |
|
foreach my $perm (values(%permission)) { |
|
if ($perm) { $allowed=1; last; } |
|
} |
|
return (\%permission,$allowed); |
|
} |
|
|
=pod |
=pod |
|
|
=item &handler |
=item &handler() |
|
|
The typical handler you see in all these modules. Takes $r, the |
The typical handler you see in all these modules. Takes $r, the |
http request, as an argument. |
http request, as an argument. |
Line 2425 The response to the request is governed
|
Line 2762 The response to the request is governed
|
|
|
=cut |
=cut |
|
|
################################################################### |
|
################################################################### |
|
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
if ($r->header_only) { |
if ($r->header_only) { |
Line 2451 sub handler {
|
Line 2786 sub handler {
|
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
# |
# |
my $view_permission = |
|
&Apache::lonnet::allowed('vcl',$env{'request.course.id'}); |
|
my $enrl_permission = |
|
&Apache::lonnet::allowed('cst',$env{'request.course.id'}); |
|
|
|
my $grp_view_permission = |
|
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}); |
|
my $grp_manage_permission = |
|
&Apache::lonnet::allowed('mdg',$env{'request.course.id'}); |
|
|
|
|
my ($permission,$allowed) = &get_permission(); |
|
|
if (! $grp_view_permission && ! $grp_manage_permission && |
if (!$allowed) { |
! $view_permission && ! $enrl_permission) { |
|
$env{'user.error.msg'}= |
$env{'user.error.msg'}= |
"/adm/coursegroups:cst:0:0:Cannot manage or view course groups, ". |
"/adm/dropadd:cst:0:0:Cannot manage or view course groups, ". |
"or drop or add students"; |
"or drop or add students"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
|
|
Line 2476 sub handler {
|
Line 2802 sub handler {
|
# Start page |
# Start page |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print(&header()); |
|
# |
# |
# Main switch on form.action and form.state, as appropriate |
# Main switch on form.action and form.state, as appropriate |
if (! exists($env{'form.action'})) { |
if (! exists($env{'form.action'})) { |
|
$r->print(&header()); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment Manager')); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment Manager')); |
&print_main_menu($r,$enrl_permission,$view_permission,$grp_manage_permission, |
my $action = &print_main_menu($r,$permission); |
$grp_view_permission); |
} elsif ($env{'form.action'} eq 'upload' && $permission->{'enrl'}) { |
} elsif ($env{'form.action'} eq 'upload' && $enrl_permission) { |
$r->print(&header()); |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/dropadd?action=upload&state=', |
({href=>'/adm/dropadd?action=upload&state=', |
text=>"Upload Classlist"}); |
text=>"Upload Classlist"}); |
Line 2502 sub handler {
|
Line 2828 sub handler {
|
} else { |
} else { |
&print_first_courselist_upload_form($r); |
&print_first_courselist_upload_form($r); |
} |
} |
} elsif ($env{'form.action'} eq 'drop' && $enrl_permission) { |
} elsif ($env{'form.action'} eq 'drop' && $permission->{'enrl'}) { |
|
$r->print(&header()); |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/dropadd?action=drop', |
({href=>'/adm/dropadd?action=drop', |
text=>"Drop Students"}); |
text=>"Drop Students"}); |
Line 2515 sub handler {
|
Line 2842 sub handler {
|
} else { |
} else { |
&print_drop_menu($r); |
&print_drop_menu($r); |
} |
} |
} elsif ($env{'form.action'} eq 'enrollstudent' && $enrl_permission) { |
} elsif ($env{'form.action'} eq 'enrollstudent' && $permission->{'enrl'}) { |
&Apache::lonhtmlcommon::add_breadcrumb |
my @search = ('srchterm','srchby','srchin','srchtype','srchdomain'); |
({href=>'/adm/dropadd?action=enrollstudent', |
my ($jsback,$elements) = &Apache::loncreateuser::crumb_utilities(); |
text=>"Enroll Student"}); |
my $jscript = '<script type="text/javascript">'.$jsback.'</script>'; |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enroll Student', |
&Apache::loncreateuser::restore_prev_selections(); |
'Course_Add_Student')); |
my $srch; |
if (! exists($env{'form.state'})) { |
foreach my $item (@search) { |
&get_student_username_domain_form($r); |
$srch->{$item} = $env{'form.'.$item}; |
} elsif ($env{'form.state'} eq 'gotusername') { |
} |
&print_enroll_single_student_form($r); |
|
|
if ($env{'form.state'} eq 'gotusername') { |
|
if ($env{'form.phase'} eq 'get_user_info') { |
|
my ($currstate,$response,$forcenewuser,$results) = |
|
&Apache::loncreateuser::user_search_result($srch); |
|
if ($env{'form.currstate'} eq 'modify') { |
|
$currstate = $env{'form.currstate'}; |
|
} |
|
if ($currstate eq 'select') { |
|
$r->print(&header()); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.usersrchform,'','')", |
|
text=>"Single user search"}, |
|
{href=>"javascript:backPage(document.usersrchform,'get_user_info','select')", |
|
text=>"Select User",}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enroll Student', |
|
'Course_Add_Student')); |
|
&Apache::loncreateuser::print_user_selection_page($r, |
|
$response,$srch,$results,'enrollstudent',\@search); |
|
} elsif ($currstate eq 'modify') { |
|
my ($ccuname,$ccdomain); |
|
if (($srch->{'srchby'} eq 'uname') && |
|
($srch->{'srchtype'} eq 'exact')) { |
|
$ccuname = $srch->{'srchterm'}; |
|
$ccdomain= $srch->{'srchdomain'}; |
|
} else { |
|
my @matchedunames = keys(%{$results}); |
|
($ccuname,$ccdomain) = split(/:/,$matchedunames[0]); |
|
} |
|
$ccuname =&LONCAPA::clean_username($ccuname); |
|
$ccdomain=&LONCAPA::clean_domain($ccdomain); |
|
&print_enroll_single_student_form($r,$jscript,$ccuname, |
|
$ccdomain,$srch,$response); |
|
} elsif ($currstate eq 'query') { |
|
$r->print(&header($jscript)); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.studentform,'','')", |
|
text=>"Single user search"}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enroll Student', |
|
'Course_Add_Student')); |
|
&Apache::loncreateuser::print_user_query_page($r,'enrollstudent'); |
|
} else { |
|
&get_student_username_domain_form($r,$elements,$response, |
|
$srch,$forcenewuser); |
|
} |
|
} elsif ($env{'form.phase'} eq 'userpicked') { |
|
my $ccuname = &LONCAPA::clean_username($env{'form.seluname'}); |
|
my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'}); |
|
&print_enroll_single_student_form($r,$jscript,$ccuname, |
|
$ccdomain,$srch); |
|
} else { |
|
&get_student_username_domain_form($r,$elements,undef,$srch); |
|
} |
} elsif ($env{'form.state'} eq 'enrolling') { |
} elsif ($env{'form.state'} eq 'enrolling') { |
&enroll_single_student($r); |
$r->print(&header($jscript)); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.studentform,'','')", |
|
text=>"Single user search"}); |
|
if ($env{'form.prevphase'} eq 'userpicked') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.studentform,'get_user_info','select')", |
|
text=>"Select user",}); |
|
} |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.studentform,'$env{'form.prevphase'}','modify')", |
|
text=>"Set enrollment",}, |
|
{href=>"javascript:backPage(document.studentform,$env{'form.phase'},'')", |
|
text=>"Result",}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enroll Student', |
|
'Course_Add_Student')); |
|
&enroll_single_student($r,\@search); |
} else { |
} else { |
&get_student_username_domain_form($r); |
&get_student_username_domain_form($r,$elements,undef,$srch); |
} |
} |
} elsif ($env{'form.action'} eq 'classlist' && $view_permission) { |
} elsif ($env{'form.action'} eq 'classlist' && $permission->{'view'}) { |
|
$r->print(&header()); |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/dropadd?action=classlist', |
({href=>'/adm/dropadd?action=classlist', |
text=>"View Classlist"}); |
text=>"View Classlist"}); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('View Classlist', |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('View Classlist', |
'Course_View_Class_List')); |
'Course_View_Class_List')); |
if (! exists($env{'form.state'})) { |
if (! exists($env{'form.state'})) { |
&print_html_classlist($r,undef); |
&print_html_classlist($r,undef,$permission); |
} elsif ($env{'form.state'} eq 'csv') { |
} elsif ($env{'form.state'} eq 'csv') { |
&print_html_classlist($r,'csv'); |
&print_html_classlist($r,'csv',$permission); |
} elsif ($env{'form.state'} eq 'excel') { |
} elsif ($env{'form.state'} eq 'excel') { |
&print_html_classlist($r,'excel'); |
&print_html_classlist($r,'excel',$permission); |
} else { |
} else { |
&print_html_classlist($r,undef); |
&print_html_classlist($r,undef,$permission); |
} |
} |
} elsif ($env{'form.action'} eq 'modifystudent' && $enrl_permission) { |
} elsif ($env{'form.action'} eq 'modifystudent' && $permission->{'enrl'}) { |
|
$r->print(&header()); |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/dropadd?action=modifystudent', |
({href=>'/adm/dropadd?action=modifystudent', |
text=>"Modify Student Data"}); |
text=>"Modify Student Data"}); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Modify Student Data', |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Modify Student Data', |
'Course_Modify_Student_Data')); |
'Course_Modify_Student_Data')); |
if (! exists($env{'form.state'})) { |
if (! exists($env{'form.state'})) { |
&print_html_classlist($r); |
&print_html_classlist($r,undef,$permission); |
} elsif ($env{'form.state'} eq 'selected') { |
} elsif ($env{'form.state'} eq 'selected') { |
&print_modify_student_form($r); |
&print_modify_student_form($r); |
} elsif ($env{'form.state'} eq 'done') { |
} elsif ($env{'form.state'} eq 'done') { |
&modify_single_student($r); |
&modify_single_student($r); |
} else { |
} else { |
&print_html_classlist($r); |
&print_html_classlist($r,undef,$permission); |
} |
} |
} else { |
} else { |
# We should not end up here, but I guess it is possible |
# We should not end up here, but I guess it is possible |
&Apache::lonnet::logthis("Undetermined state in londropadd.pm. ". |
&Apache::lonnet::logthis("Undetermined state in londropadd.pm. ". |
"form.action = ".$env{'form.action'}. |
"form.action = ".$env{'form.action'}. |
"Someone should fix this."); |
"Someone should fix this."); |
|
$r->print(&header()); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment Manager')); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment Manager')); |
&print_main_menu($r,$enrl_permission,$view_permission); |
&print_main_menu($r,$permission); |
} |
} |
# |
# |
# Finish up |
# Finish up |
Line 2574 sub handler {
|
Line 2972 sub handler {
|
return OK; |
return OK; |
} |
} |
|
|
################################################################### |
|
################################################################### |
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
=pod |
|
|
|
=back |
|
|
|
=cut |