|
version 1.48, 2003/02/13 21:35:50
|
version 1.51, 2003/03/23 09:06:08
|
|
Line 193 ENDFORMINFO
|
Line 193 ENDFORMINFO
|
| my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
| my %incdomains; |
my %incdomains; |
| my %inccourses; |
my %inccourses; |
| foreach (%Apache::lonnet::hostdom) { |
foreach (values(%Apache::lonnet::hostdom)) { |
| $incdomains{$_}=1; |
$incdomains{$_}=1; |
| } |
} |
| foreach (keys(%ENV)) { |
foreach (keys(%ENV)) { |
|
Line 292 END
|
Line 292 END
|
| if ($area =~ /^\/(\w+)\/(\d\w+)/ ) { |
if ($area =~ /^\/(\w+)\/(\d\w+)/ ) { |
| my %coursedata= |
my %coursedata= |
| &Apache::lonnet::coursedescription($1.'_'.$2); |
&Apache::lonnet::coursedescription($1.'_'.$2); |
| my $carea='Course: '.$coursedata{'description'}; |
my $carea; |
| |
if (defined($coursedata{'description'})) { |
| |
$carea='Course: '.$coursedata{'description'}; |
| |
} else { |
| |
$carea='Unavailable course: '.$area; |
| |
} |
| $inccourses{$1.'_'.$2}=1; |
$inccourses{$1.'_'.$2}=1; |
| if (&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) { |
if (&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) { |
| $allowed=1; |
$allowed=1; |
|
Line 831 sub course_level_table {
|
Line 836 sub course_level_table {
|
| $thiscourse=~s:_:/:g; |
$thiscourse=~s:_:/:g; |
| my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
| my $area=$coursedata{'description'}; |
my $area=$coursedata{'description'}; |
| |
if (!defined($area)) { $area='Unavailable course: '.$_; } |
| my $bgcol=$thiscourse; |
my $bgcol=$thiscourse; |
| $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); |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncreateuser.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface