loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.49, 2003/03/23 08:31:41	version 1.51, 2003/03/23 09:06:08
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);