version 1.64, 2003/02/13 21:35:50
|
version 1.67, 2003/06/20 18:34:52
|
Line 213 sub javascript_validations {
|
Line 213 sub javascript_validations {
|
my %param = ( formname => 'studentform', |
my %param = ( formname => 'studentform', |
kerb_def_dom => $krbdefdom ); |
kerb_def_dom => $krbdefdom ); |
my $authheader = &Apache::loncommon::authform_header(%param); |
my $authheader = &Apache::loncommon::authform_header(%param); |
|
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
return (<<ENDPICK); |
return (<<ENDPICK); |
function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec) { |
function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec) { |
var foundatype=0; |
var foundatype=0; |
Line 286 function verify_message (vf,founduname,f
|
Line 287 function verify_message (vf,founduname,f
|
parmwin.close(); |
parmwin.close(); |
} |
} |
|
|
function pjump(type,dis,value,marker,ret,call) { |
$pjump_def |
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type) |
|
+"&value="+escape(value)+"&marker="+escape(marker) |
|
+"&return="+escape(ret) |
|
+"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms", |
|
"height=350,width=350,scrollbars=no,menubar=no"); |
|
|
|
} |
|
|
|
function dateset() { |
function dateset() { |
if (document.studentform.pres_marker.value=='end') { |
if (document.studentform.pres_marker.value=='end') { |
Line 605 sub enroll_single_student {
|
Line 599 sub enroll_single_student {
|
&modifystudent($ENV{'form.lcdomain'},$ENV{'form.cuname'}, |
&modifystudent($ENV{'form.lcdomain'},$ENV{'form.cuname'}, |
$ENV{'request.course.id'},$ENV{'form.csec'}, |
$ENV{'request.course.id'},$ENV{'form.csec'}, |
$desiredhost); |
$desiredhost); |
|
my $startdate = |
|
&Apache::lonhtmlcommon::get_date_from_form('startdate'); |
|
my $enddate = |
|
&Apache::lonhtmlcommon::get_date_from_form('enddate'); |
|
&Apache::lonnet::logthis('startdate = '.$startdate); |
|
&Apache::lonnet::logthis('enddate = '.$enddate); |
my $login_result = &Apache::lonnet::modifystudent |
my $login_result = &Apache::lonnet::modifystudent |
($ENV{'form.lcdomain'},$ENV{'form.cuname'}, |
($ENV{'form.lcdomain'},$ENV{'form.cuname'}, |
$ENV{'form.cstid'},$amode,$genpwd, |
$ENV{'form.cstid'},$amode,$genpwd, |
$ENV{'form.cfirst'},$ENV{'form.cmiddle'}, |
$ENV{'form.cfirst'},$ENV{'form.cmiddle'}, |
$ENV{'form.clast'},$ENV{'form.cgen'}, |
$ENV{'form.clast'},$ENV{'form.cgen'}, |
$ENV{'form.csec'},$ENV{'form.enddate'}, |
$ENV{'form.csec'},$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 650 sub print_enroll_single_student_form {
|
Line 650 sub print_enroll_single_student_form {
|
my $locform = &Apache::loncommon::authform_local(%param); |
my $locform = &Apache::loncommon::authform_local(%param); |
# Set up domain selection form |
# Set up domain selection form |
my $domform = &domain_form($defdom); |
my $domform = &domain_form($defdom); |
|
my $starttime = 'now'; |
|
if (exists($ENV{'course.'.$ENV{'request.course.id'}. |
|
'.default_enrollment_start_date'})) { |
|
$starttime = $ENV{'course.'.$ENV{'request.course.id'}. |
|
'.default_enrollment_start_date'}; |
|
} |
|
my $endtime = time+(6*30*24*60*60); # 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); |
# Print it all out |
# Print it all out |
$r->print(<<END); |
$r->print(<<END); |
<input type="hidden" name="action" value="enrollstudent"> |
<input type="hidden" name="action" value="enrollstudent"> |
Line 722 $locform
|
Line 740 $locform
|
<input type="hidden" name="startdate" value='$today' /> |
<input type="hidden" name="startdate" value='$today' /> |
<input type="hidden" name="enddate" value='$halfyear' /> |
<input type="hidden" name="enddate" value='$halfyear' /> |
</p><p> |
</p><p> |
<a |
<table> |
href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');" |
<tr><td align="right" ><b>Starting Date</b></td><td>$startdateform</td></tr> |
>Set Starting Date</a> |
<tr><td align="right" ><b>Ending Date</b></td><td>$enddateform</td></tr> |
</p><p> |
</table> |
<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 1086 sub modify_single_student {
|
Line 1101 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', |
my $starttime = &Apache::lonhtmlcommon::get_date_from_form('startdate'); |
time); |
my $endtime = &Apache::lonhtmlcommon::get_date_from_form('enddate'); |
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); |
# |
# |