loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.56, 2003/06/20 14:37:26	version 1.57, 2003/07/17 18:10:53
Line 286 END	Line 286 END
my $allowed=0;	my $allowed=0;
my $delallowed=0;	my $delallowed=0;
if ($area =~ /^\/(\w+)\/(\d\w+)/ ) {	if ($area =~ /^\/(\w+)\/(\d\w+)/ ) {
	my ($coursedom,$coursedir) = ($1,$2);
	# $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).
my %coursedata=	my %coursedata=
&Apache::lonnet::coursedescription($1.'_'.$2);	&Apache::lonnet::coursedescription($1.'_'.$2);
my $carea;	my $carea;
if (defined($coursedata{'description'})) {	if (defined($coursedata{'description'})) {
$carea='Course: '.$coursedata{'description'}.	$carea='Course: '.$coursedata{'description'}.
'<br />Domain: '.$1;	'<br />Domain: '.$coursedom.(' 'x8).
	&Apache::loncommon::syllabuswrapper('Syllabus',$coursedir,$coursedom);
} else {	} else {
$carea='Unavailable course: '.$area;	$carea='Unavailable course: '.$area;
}	}