version 1.12, 2001/02/14 22:51:48
|
version 1.15, 2001/08/24 21:09:53
|
Line 7
|
Line 7
|
# |
# |
# (TeX Content Handler |
# (TeX Content Handler |
# |
# |
|
# YEAR=2000 |
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# |
# |
# 10/11,10/12,10/16 Gerd Kortemeyer) |
# 10/11,10/12,10/16 Gerd Kortemeyer) |
Line 15
|
Line 16
|
# 12/08,12/12 Gerd Kortemeyer) |
# 12/08,12/12 Gerd Kortemeyer) |
# |
# |
# 12/26,12/27,12/28, |
# 12/26,12/27,12/28, |
# 01/01/01,01/15,02/10,02/13,02/14 Gerd Kortemeyer |
# YEAR=2001 |
|
# 01/01/01,01/15,02/10,02/13,02/14,02/22 Gerd Kortemeyer |
|
# 8/6 Scott Harrison |
|
|
package Apache::londropadd; |
package Apache::londropadd; |
|
|
Line 257 function verify(vf) {
|
Line 260 function verify(vf) {
|
return; |
return; |
} |
} |
} |
} |
|
if (vf.login[2].checked) { |
|
foundatype=1; |
|
//An argument is not required |
|
} |
if (foundatype==0) { |
if (foundatype==0) { |
alert('You need to set the login type'); |
alert('You need to set the login type'); |
return; |
return; |
Line 315 function flip(vf,tf) {
|
Line 322 function flip(vf,tf) {
|
vf.login[1].checked=true; |
vf.login[1].checked=true; |
vf.intpwd.value=''; |
vf.intpwd.value=''; |
vf.krbdom.value=''; |
vf.krbdom.value=''; |
|
vf.locarg.value=''; |
} |
} |
|
|
} |
} |
Line 411 ENDPICK
|
Line 419 ENDPICK
|
'id:ID/Student Number','sec:Group/Section', |
'id:ID/Student Number','sec:Group/Section', |
'ipwd:Initial Password'); |
'ipwd:Initial Password'); |
$r->print('</select></td><td>'); |
$r->print('</select></td><td>'); |
if (defined($sone{$i})) { |
if (defined($sone{$_})) { |
$r->print($sone{$i}."</br>\n"); |
$r->print($sone{$_}."</br>\n"); |
} |
} |
if (defined($stwo{$i})) { |
if (defined($stwo{$_})) { |
$r->print($stwo{$i}."</br>\n"); |
$r->print($stwo{$_}."</br>\n"); |
} |
} |
if (defined($sthree{$i})) { |
if (defined($sthree{$_})) { |
$r->print($sthree{$i}."</br>\n"); |
$r->print($sthree{$_}."</br>\n"); |
} |
} |
$r->print('</td></tr>'); |
$r->print('</td></tr>'); |
$i++; |
$i++; |
Line 431 ENDPICK
|
Line 439 ENDPICK
|
<input type=hidden name=nfields value=$i> |
<input type=hidden name=nfields value=$i> |
<input type=hidden name=keyfields value="$keyfields"> |
<input type=hidden name=keyfields value="$keyfields"> |
<h3>Login Type</h3> |
<h3>Login Type</h3> |
Note: this will not take effect if the user already exists<p> |
<p>Note: this will not take effect if the user already exists</p> |
<input type=radio name=login value=krb onClick="clickkrb(this.form);"> |
<p> |
|
<input type=radio name=login value=krb onClick="clickkrb(this.form);" /> |
Kerberos authenticated with domain |
Kerberos authenticated with domain |
<input type=text size=10 name=krbdom onChange="setkrb(this.form);"><p> |
<input type=text size=10 name=krbdom onChange="setkrb(this.form);" /> |
<input type=radio name=login value=int onClick="clickint(this.form);"> |
</p> |
|
<p> |
|
<input type=radio name=login value=int onClick="clickint(this.form);" /> |
Internally authenticated (with initial password |
Internally authenticated (with initial password |
<input type=text size=10 name=intpwd onChange="setint(this.form);">) |
<input type=text size=10 name=intpwd onChange="setint(this.form);" />) |
|
</p> |
|
<p> |
|
<input type=radio name=login value=loc onClick="clickloc(this.form);" /> |
|
Local Authentication with argument |
|
<input type=text size=10 name=locarg onChange="setloc(this.form);" /> |
|
</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: <input type=text size=10 value=$defdom name=lcdomain><p> |
<h3>Starting and Ending Dates</h3> |
<h3>Starting and Ending Dates</h3> |
Line 476 sub enroll_single_student {
|
Line 493 sub enroll_single_student {
|
} elsif ($ENV{'form.login'} eq 'int') { |
} elsif ($ENV{'form.login'} eq 'int') { |
$amode='internal'; |
$amode='internal'; |
$genpwd=$ENV{'form.intpwd'}; |
$genpwd=$ENV{'form.intpwd'}; |
} |
} elsif ($ENV{'form.login'} eq 'loc') { |
|
$amode='localauth'; |
|
$genpwd=$ENV{'form.locarg'}; |
|
if (!$genpwd) { $genpwd=" "; } |
|
} |
if (($amode) && ($genpwd)) { |
if (($amode) && ($genpwd)) { |
&dropstudent($ENV{'form.cdomain'},$ENV{'form.cuname'}, |
&dropstudent($ENV{'form.cdomain'},$ENV{'form.cuname'}, |
$ENV{'request.course.id'},$ENV{'form.csec'}); |
$ENV{'request.course.id'},$ENV{'form.csec'}); |
Line 520 function verify(vf) {
|
Line 541 function verify(vf) {
|
var foundatype=0; |
var foundatype=0; |
var tw; |
var tw; |
var message=''; |
var message=''; |
if ((vf.cuname.value!=undefined) && (vf.cuname.value!='') && |
if ((typeof(vf.cuname.value)!="undefined") && (vf.cuname.value!='') && |
(vf.cdomain.value!=undefined) && (vf.cdomain.value!='')) { |
(typeof(vf.cdomain.value)!="undefined") && (vf.cdomain.value!='')) { |
founduname=1; |
founduname=1; |
} |
} |
if ((vf.cfirst.value!=undefined) && (vf.cfirst.value!='') && |
if ((typeof(vf.cfirst.value)!="undefined") && (vf.cfirst.value!='') && |
(vf.clast.value!=undefined) && (vf.clast.value!='')) { |
(typeof(vf.clast.value)!="undefined") && (vf.clast.value!='')) { |
foundname=1; |
foundname=1; |
} |
} |
if ((vf.csec.value!=undefined) && (vf.csec.value!='')) { |
if ((typeof(vf.csec.value)!="undefined") && (vf.csec.value!='')) { |
foundsec=1; |
foundsec=1; |
} |
} |
if ((vf.cstid.value!=undefined) && (vf.cstid.value!='')) { |
if ((typeof(vf.cstid.value)!="undefined") && (vf.cstid.value!='')) { |
foundid=1; |
foundid=1; |
} |
} |
if (founduname==0) { |
if (founduname==0) { |
Line 552 function verify(vf) {
|
Line 573 function verify(vf) {
|
return; |
return; |
} |
} |
} |
} |
|
if (vf.login[2].checked) { |
|
foundatype=1; |
|
//An argument is not required |
|
} |
if (foundatype==0) { |
if (foundatype==0) { |
alert('You need to set the login type'); |
alert('You need to set the login type'); |
return; |
return; |
Line 588 function setkrb(vf) {
|
Line 613 function setkrb(vf) {
|
vf.login[0].checked=true; |
vf.login[0].checked=true; |
vf.krbdom.value=vf.krbdom.value.toUpperCase(); |
vf.krbdom.value=vf.krbdom.value.toUpperCase(); |
vf.intpwd.value=''; |
vf.intpwd.value=''; |
|
vf.locarg.value=''; |
} |
} |
} |
} |
|
|
Line 595 function setint(vf) {
|
Line 621 function setint(vf) {
|
if (vf.intpwd.value!='') { |
if (vf.intpwd.value!='') { |
vf.login[1].checked=true; |
vf.login[1].checked=true; |
vf.krbdom.value=''; |
vf.krbdom.value=''; |
|
vf.locarg.value=''; |
|
} |
|
} |
|
|
|
function setloc(vf) { |
|
if (vf.locarg.value!='') { |
|
vf.login[2].checked=true; |
|
vf.krbdom.value=''; |
|
vf.intpwd.value=''; |
} |
} |
} |
} |
|
|
function clickkrb(vf) { |
function clickkrb(vf) { |
vf.krbdom.value='$krbdefdom'; |
vf.krbdom.value='$krbdefdom'; |
vf.intpwd.value=''; |
vf.intpwd.value=''; |
|
vf.locarg.value=''; |
} |
} |
|
|
function clickint(vf) { |
function clickint(vf) { |
vf.krbdom.value=''; |
vf.krbdom.value=''; |
|
vf.locarg.value=''; |
|
} |
|
|
|
function clickloc(vf) { |
|
vf.krbdom.value=''; |
|
vf.intpwd.value=''; |
} |
} |
|
|
function pclose() { |
function pclose() { |
Line 656 Kerberos authenticated with domain
|
Line 698 Kerberos authenticated with domain
|
<input type=radio name=login value=int onClick="clickint(this.form);"> |
<input type=radio name=login value=int onClick="clickint(this.form);"> |
Internally authenticated (with initial password |
Internally authenticated (with initial password |
<input type=text size=10 name=intpwd onChange="setint(this.form);">) |
<input type=text size=10 name=intpwd onChange="setint(this.form);">) |
|
<p> |
|
<input type=radio name=login value=loc onClick="clickloc(this.form);" /> |
|
Local Authentication with argument |
|
<input type=text size=10 name=locarg onChange="setloc(this.form);" /> |
|
</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 767 sub upfile_drop_add {
|
Line 813 sub upfile_drop_add {
|
if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) { |
if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) { |
$genpwd=$ENV{'form.intpwd'}; |
$genpwd=$ENV{'form.intpwd'}; |
} |
} |
} |
} elsif ($ENV{'form.login'} eq 'loc') { |
|
$amode='localauth'; |
|
if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) { |
|
$genpwd=$ENV{'form.locarg'}; |
|
} |
|
} |
unless (($domain=~/\W/) || ($amode eq '')) { |
unless (($domain=~/\W/) || ($amode eq '')) { |
$r->print('<h3>Enrolling Students</h3>'); |
$r->print('<h3>Enrolling Students</h3>'); |
my $count=0; |
my $count=0; |