version 1.90, 2003/11/07 21:04:37
|
version 1.91, 2003/12/05 21:27:59
|
Line 146 sub print_main_menu {
|
Line 146 sub print_main_menu {
|
'enrollone' => 'Enroll a single student', |
'enrollone' => 'Enroll a single student', |
'modify' => 'Modify student data', |
'modify' => 'Modify student data', |
'view' => 'View Class List', |
'view' => 'View Class List', |
'drop' => 'Drop Students'); |
'drop' => 'Drop Students', |
|
'populate' => 'Automated Enrollment Manager'); |
|
|
$r->print(<<END); |
$r->print(<<END); |
<p> |
<p> |
Line 169 sub print_main_menu {
|
Line 170 sub print_main_menu {
|
<font size="+1"> |
<font size="+1"> |
<a href="/adm/dropadd?action=drop">$Text{'drop'}</a> |
<a href="/adm/dropadd?action=drop">$Text{'drop'}</a> |
</font> |
</font> |
</p> |
</p><p> |
|
<font size="+1"> |
|
<a href="/adm/populate">$Text{'populate'}</a> |
|
</font> |
END |
END |
} |
} |
|
|
Line 237 sub javascript_validations {
|
Line 241 sub javascript_validations {
|
my %param = ( formname => 'studentform', |
my %param = ( formname => 'studentform', |
kerb_def_dom => $krbdefdom ); |
kerb_def_dom => $krbdefdom ); |
$authheader = &Apache::loncommon::authform_header(%param); |
$authheader = &Apache::loncommon::authform_header(%param); |
|
} elsif ($mode eq 'createcourse') { |
|
my %param = ( formname => 'ccrs', |
|
kerb_def_dom => $krbdefdom ); |
|
$authheader = &Apache::loncommon::authform_header(%param); |
} |
} |
|
|
my %alert = &Apache::lonlocal::texthash |
my %alert = &Apache::lonlocal::texthash |
(username => 'You need to specify the username field.', |
(username => 'You need to specify the username field.', |
authen => 'You must choose an authentication type.', |
authen => 'You must choose an authentication type.', |
Line 256 function verify_message (vf,founduname,f
|
Line 265 function verify_message (vf,founduname,f
|
END |
END |
my $auth_checks = (<<END); |
my $auth_checks = (<<END); |
var foundatype=0; |
var foundatype=0; |
|
END |
|
unless ($mode eq 'createcourse') { |
|
$auth_checks .= (<<END); |
if (founduname==0) { |
if (founduname==0) { |
alert('$alert{'username'}'); |
alert('$alert{'username'}'); |
return; |
return; |
} |
} |
|
END |
|
} |
|
$auth_checks .= (<<END); |
// alert('current.radiovalue = '+current.radiovalue); |
// 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. |
Line 289 END
|
Line 304 END
|
} |
} |
} |
} |
END |
END |
my $optional_checks = (<<END); |
my $optional_checks = ''; |
|
if ($mode eq 'createcourse') { |
|
$optional_checks = (<<END); |
|
vf.submit(); |
|
} |
|
END |
|
} else { |
|
$optional_checks = (<<END); |
var message=''; |
var message=''; |
if (foundname==0) { |
if (foundname==0) { |
message='$alert{'name'}'; |
message='$alert{'name'}'; |
Line 323 END
|
Line 345 END
|
vf.submit(); |
vf.submit(); |
} |
} |
} |
} |
|
|
END |
END |
|
} |
my $result = $function_name; |
my $result = $function_name; |
if ($mode eq 'auth') { |
if ( ($mode eq 'auth') || ($mode eq 'createcourse') ) { |
$result .= $auth_checks; |
$result .= $auth_checks; |
} |
} |
$result .= $optional_checks; |
$result .= $optional_checks; |
if ($mode eq 'auth') { |
if ( ($mode eq 'auth') || ($mode eq 'createcourse') ) { |
$result .= $authheader; |
$result .= $authheader; |
} |
} |
return $result; |
return $result; |
Line 674 sub enroll_single_student {
|
Line 696 sub enroll_single_student {
|
} |
} |
|
|
sub setup_date_selectors { |
sub setup_date_selectors { |
my ($starttime,$endtime) = @_; |
my ($starttime,$endtime,$mode) = @_; |
if (! defined($starttime)) { |
if (! defined($starttime)) { |
$starttime = time; |
$starttime = time; |
if (exists($ENV{'course.'.$ENV{'request.course.id'}. |
unless ($mode eq 'createcourse') { |
|
if (exists($ENV{'course.'.$ENV{'request.course.id'}. |
'.default_enrollment_start_date'})) { |
'.default_enrollment_start_date'})) { |
$starttime = $ENV{'course.'.$ENV{'request.course.id'}. |
$starttime = $ENV{'course.'.$ENV{'request.course.id'}. |
'.default_enrollment_start_date'}; |
'.default_enrollment_start_date'}; |
|
} |
} |
} |
} |
} |
if (! defined($endtime)) { |
if (! defined($endtime)) { |
$endtime = time+(6*30*24*60*60); # 6 months from now, approx |
$endtime = time+(6*30*24*60*60); # 6 months from now, approx |
if (exists($ENV{'course.'.$ENV{'request.course.id'}. |
unless ($mode eq 'createcourse') { |
|
if (exists($ENV{'course.'.$ENV{'request.course.id'}. |
'.default_enrollment_end_date'})) { |
'.default_enrollment_end_date'})) { |
$endtime = $ENV{'course.'.$ENV{'request.course.id'}. |
$endtime = $ENV{'course.'.$ENV{'request.course.id'}. |
'.default_enrollment_end_date'}; |
'.default_enrollment_end_date'}; |
|
} |
} |
} |
} |
} |
my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform', |
my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform', |
Line 697 sub setup_date_selectors {
|
Line 723 sub setup_date_selectors {
|
my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform', |
my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform', |
'enddate', |
'enddate', |
$endtime); |
$endtime); |
|
if ($mode eq 'createcourse') { |
|
$startdateform = &Apache::lonhtmlcommon::date_setter('ccrs', |
|
'startdate', |
|
$starttime); |
|
$enddateform = &Apache::lonhtmlcommon::date_setter('ccrs', |
|
'enddate', |
|
$endtime); |
|
} |
return ($startdateform,$enddateform); |
return ($startdateform,$enddateform); |
} |
} |
|
|
Line 710 sub get_dates_from_form {
|
Line 744 sub get_dates_from_form {
|
} |
} |
|
|
sub date_setting_table { |
sub date_setting_table { |
my ($starttime,$endtime) = @_; |
my ($starttime,$endtime,$mode) = @_; |
my ($startform,$endform)=&setup_date_selectors($starttime,$endtime); |
my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode); |
my $dateDefault = '<nobr>'. |
my $dateDefault = '<nobr>'. |
'<input type="checkbox" name="makedatesdefault" />'. |
'<input type="checkbox" name="makedatesdefault" />'. |
' make these dates the default for future enrollment'; |
' make these dates the default for future enrollment'; |
|
if ($mode eq 'createcourse') { |
|
$dateDefault = ' '; |
|
} |
my $perpetual = '<nobr><input type="checkbox" name="no_end_date"'; |
my $perpetual = '<nobr><input type="checkbox" name="no_end_date"'; |
if (defined($endtime) && $endtime == 0) { |
if (defined($endtime) && $endtime == 0) { |
$perpetual .= ' checked'; |
$perpetual .= ' checked'; |