version 1.28, 2002/04/22 15:26:46
|
version 1.31, 2002/04/26 18:59:00
|
Line 104 sub modifystudent {
|
Line 104 sub modifystudent {
|
} |
} |
} |
} |
|
|
|
# ============ build a domain and server selection form |
|
sub domain_form { |
|
my ($defdom) = @_; |
|
# Set up domain and server selection forms |
|
# |
|
# Get the domains |
|
my @domains = &Apache::loncommon::get_domains(); |
|
# build up the menu information to be passed to |
|
# &Apache::loncommon::linked_select_forms |
|
my %select_menus; |
|
foreach my $dom (@domains) { |
|
# set up the text for this domain |
|
$select_menus{$dom}->{'text'}= $dom; |
|
# we want a choice of 'default' as the default in the second menu |
|
$select_menus{$dom}->{'default'}= 'default'; |
|
$select_menus{$dom}->{'select2'}->{'default'} = 'default'; |
|
# Now build up the other items in the second menu |
|
my %servers = &Apache::loncommon::get_home_servers($dom); |
|
foreach my $server (keys(%servers)) { |
|
$select_menus{$dom}->{'select2'}->{$server} |
|
= "$server $servers{$server}"; |
|
} |
|
} |
|
my $result = &Apache::loncommon::linked_select_forms |
|
('studentform',' with home server ',$defdom, |
|
'lcdomain','lcserver',\%select_menus); |
|
return $result; |
|
} |
|
|
# ============================================================== Menu Phase One |
# ============================================================== Menu Phase One |
sub menu_phase_one { |
sub menu_phase_one { |
my $r=shift; |
my $r=shift; |
Line 166 function verify_message (vf,founduname,f
|
Line 195 function verify_message (vf,founduname,f
|
alert('You need to specify the username field'); |
alert('You need to specify the username field'); |
return; |
return; |
} |
} |
if (vf.login.value == null) { |
if (current.radiovalue == null || current.radiovalue == 'nochange') { |
// They did not check any of the login radiobuttons. |
// They did not check any of the login radiobuttons. |
alert('You must choose an authentication type'); |
alert('You must choose an authentication type'); |
return; |
return; |
} |
} |
foundatype=1; |
foundatype=1; |
if (vf.login.argfield.value == '') { |
if (current.argfield == null || current.argfield == '') { |
var alertmsg = ''; |
var alertmsg = ''; |
switch (vf.login.value) { |
switch (current.value) { |
case 'krb': |
case 'krb': |
alertmsg = 'You need to specify the Kerberos domain'; |
alertmsg = 'You need to specify the Kerberos domain'; |
break; |
break; |
Line 382 sub phase_two_end {
|
Line 411 sub phase_two_end {
|
my $krbform = &Apache::loncommon::authform_kerberos(%param); |
my $krbform = &Apache::loncommon::authform_kerberos(%param); |
my $intform = &Apache::loncommon::authform_internal(%param); |
my $intform = &Apache::loncommon::authform_internal(%param); |
my $locform = &Apache::loncommon::authform_local(%param); |
my $locform = &Apache::loncommon::authform_local(%param); |
|
my $domform = &domain_form($defdom); |
$r->print(<<ENDPICK); |
$r->print(<<ENDPICK); |
</table> |
</table> |
<input type=hidden name=nfields value=$i> |
<input type=hidden name=nfields value=$i> |
Line 398 $intform
|
Line 428 $intform
|
$locform |
$locform |
</p> |
</p> |
<h3>LON-CAPA Domain for Students</h3> |
<h3>LON-CAPA Domain for Students</h3> |
LON-CAPA domain: <input type=text size=10 value=$defdom name=lcdomain><p> |
LON-CAPA domain: $domform <p> |
<h3>Starting and Ending Dates</h3> |
<h3>Starting and Ending Dates</h3> |
<input type="hidden" value='' name="pres_value" > |
<input type="hidden" value='' name="pres_value" > |
<input type="hidden" value='' name="pres_type" > |
<input type="hidden" value='' name="pres_type" > |
Line 472 sub menu_phase_two_upload {
|
Line 502 sub menu_phase_two_upload {
|
sub enroll_single_student { |
sub enroll_single_student { |
my $r=shift; |
my $r=shift; |
$r->print('<h3>Enrolling Student</h3>'); |
$r->print('<h3>Enrolling Student</h3>'); |
|
$r->print($ENV{'form.cuname'}." in domain ".$ENV{'form.lcdomain'}); |
if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&& |
if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&& |
($ENV{'form.cdomain'})&&($ENV{'form.cdomain'}!~/\W/)) { |
($ENV{'form.lcdomain'})&&($ENV{'form.lcdomain'}!~/\W/)) { |
|
# Deal with home server selection |
|
my $domain=$ENV{'form.lcdomain'}; |
|
my $desiredhost = $ENV{'form.lcserver'}; |
|
if (lc($desiredhost) eq 'default') { |
|
$desiredhost = undef; |
|
} else { |
|
my %home_servers = &Apache::loncommon::get_home_servers($domain); |
|
if (! exists($home_servers{$desiredhost})) { |
|
$r->print('<font color="#ff0000">Error:</font>'. |
|
'Invalid home server specified'); |
|
return; |
|
} |
|
} |
|
$r->print(" with server $desiredhost :"); |
|
# End of home server selection logic |
my $amode=''; |
my $amode=''; |
my $genpwd=''; |
my $genpwd=''; |
if ($ENV{'form.login'} eq 'krb') { |
if ($ENV{'form.login'} eq 'krb') { |
Line 488 sub enroll_single_student {
|
Line 534 sub enroll_single_student {
|
if (!$genpwd) { $genpwd=" "; } |
if (!$genpwd) { $genpwd=" "; } |
} |
} |
if (($amode) && ($genpwd)) { |
if (($amode) && ($genpwd)) { |
&modifystudent($ENV{'form.cdomain'},$ENV{'form.cuname'}, |
|
$ENV{'request.course.id'},$ENV{'form.csec'}); |
|
$r->print(&Apache::lonnet::modifystudent( |
$r->print(&Apache::lonnet::modifystudent( |
$ENV{'form.cdomain'},$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'},$ENV{'form.enddate'}, |
$ENV{'form.startdate'},$ENV{'form.forceid'})); |
$ENV{'form.startdate'},$ENV{'form.forceid'}, |
|
$desiredhost)); |
|
&modifystudent($ENV{'form.lcdomain'},$ENV{'form.cuname'}, |
|
$ENV{'request.course.id'},$ENV{'form.csec'}); |
} else { |
} else { |
$r->print('Invalid login mode or password'); |
$r->print('Invalid login mode or password'); |
} |
} |
Line 519 sub menu_phase_two_enroll {
|
Line 566 sub menu_phase_two_enroll {
|
my $krbform = &Apache::loncommon::authform_kerberos(%param); |
my $krbform = &Apache::loncommon::authform_kerberos(%param); |
my $intform = &Apache::loncommon::authform_internal(%param); |
my $intform = &Apache::loncommon::authform_internal(%param); |
my $locform = &Apache::loncommon::authform_local(%param); |
my $locform = &Apache::loncommon::authform_local(%param); |
|
# Set up domain selection form |
|
my $domform = &domain_form($defdom); |
# Print it all out |
# Print it all out |
$r->print(<<ENDSENROLL); |
$r->print(<<ENDSENROLL); |
<script type="text/javascript" language="Javascript"> |
<script type="text/javascript" language="Javascript"> |
Line 530 function verify(vf) {
|
Line 579 function verify(vf) {
|
var foundsec=0; |
var foundsec=0; |
var tw; |
var tw; |
if ((typeof(vf.cuname.value) !="undefined") && (vf.cuname.value!='') && |
if ((typeof(vf.cuname.value) !="undefined") && (vf.cuname.value!='') && |
(typeof(vf.cdomain.value)!="undefined") && (vf.cdomain.value!='')) { |
(typeof(vf.lcdomain.value)!="undefined") && (vf.lcdomain.value!='')) { |
founduname=1; |
founduname=1; |
} |
} |
if ((typeof(vf.cfirst.value)!="undefined") && (vf.cfirst.value!='') && |
if ((typeof(vf.cfirst.value)!="undefined") && (vf.cfirst.value!='') && |
Line 569 Generation: <input type="text" name="cg
|
Line 618 Generation: <input type="text" name="cg
|
|
|
<h3>Login Data</h3> |
<h3>Login Data</h3> |
<p>Username: <input type="text" name="cuname" size="15"></p> |
<p>Username: <input type="text" name="cuname" size="15"></p> |
<p>Domain: <input type="text" name="cdomain" size="10" value="$defdom"></p> |
<p>Domain: $domform</p> |
<p>Note: login settings below will not take effect if the user already exists |
<p>Note: login settings below will not take effect if the user already exists |
</p><p> |
</p><p> |
$krbform |
$krbform |
Line 708 sub upfile_drop_add {
|
Line 757 sub upfile_drop_add {
|
my $enddate = $ENV{'form.enddate'}; |
my $enddate = $ENV{'form.enddate'}; |
if ($startdate=~/\D/) { $startdate=''; } |
if ($startdate=~/\D/) { $startdate=''; } |
if ($enddate=~/\D/) { $enddate=''; } |
if ($enddate=~/\D/) { $enddate=''; } |
# |
# Determine domain and desired host (home server) |
my $domain=$ENV{'form.lcdomain'}; |
my $domain=$ENV{'form.lcdomain'}; |
|
my $desiredhost = $ENV{'form.lcserver'}; |
|
if (lc($desiredhost) eq 'default') { |
|
$desiredhost = undef; |
|
} else { |
|
my %home_servers = &Apache::loncommon::get_home_servers($domain); |
|
if (! exists($home_servers{$desiredhost})) { |
|
$r->print('<font color="#ff0000">Error:</font>'. |
|
'Invalid home server specified'); |
|
return; |
|
} |
|
} |
# Determine authentication mechanism |
# Determine authentication mechanism |
my $amode = ''; |
my $amode = ''; |
my $genpwd = ''; |
my $genpwd = ''; |
Line 792 sub upfile_drop_add {
|
Line 852 sub upfile_drop_add {
|
} |
} |
} |
} |
if ($password) { |
if ($password) { |
&modifystudent($domain,$username,$cid,$sec); |
|
my $reply=&Apache::lonnet::modifystudent |
my $reply=&Apache::lonnet::modifystudent |
($domain,$username,$id,$amode,$password, |
($domain,$username,$id,$amode,$password, |
$fname,$mname,$lname,$gen,$sec,$enddate, |
$fname,$mname,$lname,$gen,$sec,$enddate, |
$startdate,$ENV{'form.forceid'}); |
$startdate,$ENV{'form.forceid'},$desiredhost); |
|
&modifystudent($domain,$username,$cid,$sec); |
if ($reply ne 'ok') { |
if ($reply ne 'ok') { |
$r->print('<p><b>'. |
$r->print('<p><b>'. |
'Error enrolling '.$username.': '. |
'Error enrolling '.$username.': '. |
Line 865 sub drop_student_list {
|
Line 925 sub drop_student_list {
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
$Apache::lonxml::debug=1; |
|
if ($r->header_only) { |
if ($r->header_only) { |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |