version 1.50, 2003/03/23 09:02:38
|
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; |