loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.48, 2003/02/13 21:35:50	version 1.50, 2003/03/23 09:02:38
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 831 sub course_level_table {	Line 831 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);