version 1.86, 2003/09/29 16:09:20
|
version 1.87, 2003/11/05 20:55:59
|
Line 80 sub modifystudent {
|
Line 80 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 eq $csec) { |
if (defined($csec) && $section eq $csec) { |
$result .= 'ok:'; |
$result .= 'ok:'; |
} elsif ( ((!$section) && (!$csec)) || ($section ne $csec) ) { |
} elsif ( ((!$section) && (!$csec)) || ($section ne $csec) ) { |
my (undef,$end,$start)=split(/\_/,$roles{$course}); |
my (undef,$end,$start)=split(/\_/,$roles{$course}); |
Line 755 sub print_enroll_single_student_form {
|
Line 755 sub print_enroll_single_student_form {
|
if ($home ne 'no_host') { |
if ($home ne 'no_host') { |
$new_user = 0; |
$new_user = 0; |
} |
} |
&Apache::lonnet::logthis('home = '.$home); |
|
# |
# |
my $user_data_html = ''; |
my $user_data_html = ''; |
my $javascript_validations = ''; |
my $javascript_validations = ''; |
Line 1150 sub print_modify_student_form {
|
Line 1149 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); |
|
if ($starttime =~ /^error/) { |
|
$r->print('<h2>Error</h2>'); |
|
$r->print('<p>'.$starttime.'</p>'); |
|
return; |
|
} |
# Deal with date forms |
# Deal with date forms |
my $date_table = &date_setting_table($starttime,$endtime); |
my $date_table = &date_setting_table($starttime,$endtime); |
# |
# |
Line 1349 sub get_enrollment_data {
|
Line 1353 sub get_enrollment_data {
|
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 |
return "666" if ($tmp =~ /^(con_lost|error|no_such_host)/i); |
return ('error'.$tmp) if ($tmp =~ /^(con_lost|error|no_such_host)/i); |
# Go through the roles looking for enrollment in this course |
# Go through the roles looking for enrollment in this course |
my ($end,$start) = (undef,undef); |
my ($end,$start) = (undef,undef); |
my $section = ''; |
my $section = ''; |