version 1.4, 2001/03/02 20:31:34
|
version 1.5, 2001/03/02 22:06:43
|
Line 237 Internally authenticated (with initial p
|
Line 237 Internally authenticated (with initial p
|
ENDNUSER |
ENDNUSER |
} else { |
} else { |
$r->print('<h3>Existing user '.$ccuname.' at '.$ccdomain.'</h3>'); |
$r->print('<h3>Existing user '.$ccuname.' at '.$ccdomain.'</h3>'); |
|
$r->print('<input type=hidden name=cuname value='.$ccuname.'>'); |
|
$r->print('<input type=hidden name=cdomain value='.$ccdomain.'>'); |
|
|
my $rolesdump=&Apache::lonnet::reply( |
my $rolesdump=&Apache::lonnet::reply( |
"dump:$ccdomain:$ccuname:roles",$uhome); |
"dump:$ccdomain:$ccuname:roles",$uhome); |
unless ($rolesdump eq 'con_lost') { |
unless ($rolesdump eq 'con_lost') { |
Line 253 ENDNUSER
|
Line 256 ENDNUSER
|
my ($trole,$tend,$tstart)=split(/_/,$role); |
my ($trole,$tend,$tstart)=split(/_/,$role); |
my $bgcol='ffffff'; |
my $bgcol='ffffff'; |
my $allows=0; |
my $allows=0; |
if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) { |
if ($area=~/^\/(\w+)\/(\d\w+)/) { |
my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2); |
my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2); |
$area='Course: '. |
my $carea='Course: '.$coursedata{'description'}; |
$coursedata{'description'}.'<br>Section/Group: '.$3; |
|
$inccourses{$1.'_'.$2}=1; |
$inccourses{$1.'_'.$2}=1; |
if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) { |
if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) { |
$allows=1; |
$allows=1; |
Line 264 ENDNUSER
|
Line 266 ENDNUSER
|
$bgcol=$1.'_'.$2; |
$bgcol=$1.'_'.$2; |
$bgcol=~s/[^8-9b-e]//g; |
$bgcol=~s/[^8-9b-e]//g; |
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6); |
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6); |
|
if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) { |
|
$carea.='<br>Section/Group: '.$3; |
|
} |
|
$area=$carea; |
} else { |
} else { |
if ($1) { |
if ($1) { |
$incdomains{$1}=1; |
$incdomains{$1}=1; |
Line 396 ENDTHREEHEAD
|
Line 402 ENDTHREEHEAD
|
$1,$2,$now).'<br>'); |
$1,$2,$now).'<br>'); |
} |
} |
} keys %ENV; |
} keys %ENV; |
$r->print('</body></html>'); |
|
map { |
map { |
if (($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) { |
if (($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) { |
$r->print('a:'.$_.': '.$1.' '.$2.' '.$3.'<br>'); |
my $url='/'.$1.'/'.$2; |
|
if ($ENV{'form.sec_'.$1.'_'.$2.'_'.$3}) { |
|
$url.='/'.$ENV{'form.sec_'.$1.'_'.$2.'_'.$3}; |
|
} |
|
my $start=$now; |
|
if ($ENV{'form.start_'.$1.'_'.$2.'_'.$3}) { |
|
$start=$ENV{'form.start_'.$1.'_'.$2.'_'.$3}; |
|
} |
|
my $end=0; |
|
if ($ENV{'form.end_'.$1.'_'.$2.'_'.$3}) { |
|
$end=$ENV{'form.end_'.$1.'_'.$2.'_'.$3}; |
|
} |
|
$r->print('Assigning: '.$3.' in '.$url.': '. |
|
&Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'}, |
|
$url,$3,$end,$start).'<br>'); |
} |
} |
} keys %ENV; |
} keys %ENV; |
|
$r->print('</body></html>'); |
} |
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |