--- loncom/interface/loncreateuser.pm 2001/04/24 15:23:39 1.15
+++ loncom/interface/loncreateuser.pm 2001/10/16 21:16:01 1.19
@@ -17,6 +17,8 @@
# 2/14 Gerd Kortemeyer)
#
# 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17,3/24,04/12 Gerd Kortemeyer
+# April Guy Albertelli
+# 05/10,10/16 Gerd Kortemeyer
#
package Apache::loncreateuser;
@@ -110,7 +112,7 @@ ENDENHEAD
my %inccourses;
map {
$incdomains{$_}=1;
- } %Apache::lonnet::hostdom;
+ } values %Apache::lonnet::hostdom;
map {
if ($_=~/^user\.priv\.cm\.\/(\w+)\/(\w+)/) {
$inccourses{$1.'_'.$2}=1;
@@ -125,6 +127,7 @@ function setkrb(vf) {
vf.login[0].checked=true;
vf.krbdom.value=vf.krbdom.value.toUpperCase();
vf.intpwd.value='';
+ vf.locarg.value='';
}
}
@@ -132,16 +135,32 @@ function setint(vf) {
if (vf.intpwd.value!='') {
vf.login[1].checked=true;
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) {
vf.krbdom.value='$krbdefdom';
vf.intpwd.value='';
+ vf.locarg.value='';
}
function clickint(vf) {
vf.krbdom.value='';
+ vf.locarg.value='';
+}
+
+function clickloc(vf) {
+ vf.krbdom.value='';
+ vf.intpwd.value='';
}
@@ -160,6 +179,11 @@ Kerberos authenticated with domain
Internally authenticated (with initial password
)
+
+
+Local Authentication with argument
+
+
ENDNUSER
} else {
$r->print('Existing user '.$ccuname.' at '.$ccdomain.' ');
@@ -231,6 +255,31 @@ ENDNUSER
}
$r->print('Add Roles ');
#
+# Co-Author
+#
+
+ if (&Apache::lonnet::allowed('cca',$ENV{'user.domain'})) {
+ my $cuname=$ENV{'user.name'};
+ my $cudom=$ENV{'user.domain'};
+ $r->print(<Construction Space
+
+ENDCOAUTH
+ }
+#
# Domain level
#
$r->print('Domain Level '.
@@ -276,12 +325,16 @@ ENDDROW
map {
if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {
my $plrole=&Apache::lonnet::plaintext($_);
- $r->print(<print("
-
+
$plrole
$area
-
+");
+ if ($_ ne 'cc') {
+ $r->print(" ");
+ } else { $r->print(" "); }
+ $r->print(<
Set Start Date
@@ -290,7 +343,6 @@ ENDDROW
"javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$_.value,'end_$protectedcourse\_$_','cu.pres','dateset')">Set End Date
ENDROW
-
}
} ('st','ta','ep','ad','in','cc');
} sort keys %inccourses;
@@ -325,7 +377,11 @@ ENDTHREEHEAD
} elsif ($ENV{'form.login'} eq 'int') {
$amode='internal';
$genpwd=$ENV{'form.intpwd'};
- }
+ } elsif ($ENV{'form.login'} eq 'loc') {
+ $amode='localauth';
+ $genpwd=$ENV{'form.locarg'};
+ if (!$genpwd) { $genpwd=" "; }
+ }
if (($amode) && ($genpwd)) {
$r->print('Generating user: '.&Apache::lonnet::modifyuser(
$ENV{'form.cdomain'},$ENV{'form.cuname'},
@@ -422,6 +478,7 @@ sub handler {
(&Apache::lonnet::allowed('cin',$ENV{'request.course.id'})) ||
(&Apache::lonnet::allowed('ccr',$ENV{'request.course.id'})) ||
(&Apache::lonnet::allowed('cep',$ENV{'request.course.id'})) ||
+ (&Apache::lonnet::allowed('cca',$ENV{'user.domain'})) ||
(&Apache::lonnet::allowed('mau',$ENV{'user.domain'}))) {
$r->content_type('text/html');
$r->send_http_header;