version 1.364, 2012/08/21 01:50:33
|
version 1.365, 2012/08/21 15:43:27
|
Line 1651 sub display_existing_roles {
|
Line 1651 sub display_existing_roles {
|
$allowed=1; |
$allowed=1; |
} |
} |
unless ($allowed) { |
unless ($allowed) { |
my $isowner = &is_courseowner($cid,$coursedata{'internal.courseowner'}); |
my $isowner = &Apache::lonuserutils::is_courseowner($cid,$coursedata{'internal.courseowner'}); |
if ($isowner) { |
if ($isowner) { |
if (($role_code eq 'co') && ($class eq 'Community')) { |
if (($role_code eq 'co') && ($class eq 'Community')) { |
$allowed = 1; |
$allowed = 1; |
Line 6439 sub course_level_table {
|
Line 6439 sub course_level_table {
|
my $thiscourse=$protectedcourse; |
my $thiscourse=$protectedcourse; |
$thiscourse=~s:_:/:g; |
$thiscourse=~s:_:/:g; |
my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
my $isowner = &is_courseowner($protectedcourse,$coursedata{'internal.courseowner'}); |
my $isowner = &Apache::lonuserutils::is_courseowner($protectedcourse,$coursedata{'internal.courseowner'}); |
my $area=$coursedata{'description'}; |
my $area=$coursedata{'description'}; |
my $crstype=$coursedata{'type'}; |
my $crstype=$coursedata{'type'}; |
if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; } |
if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; } |
Line 6963 sub get_selfenroll_titles {
|
Line 6963 sub get_selfenroll_titles {
|
return (\@row,\%lt); |
return (\@row,\%lt); |
} |
} |
|
|
sub is_courseowner { |
|
my ($thiscourse,$courseowner) = @_; |
|
if ($courseowner eq '') { |
|
if ($env{'request.course.id'} eq $thiscourse) { |
|
$courseowner = $env{'course.'.$env{'request.course.id'}.'.internal.courseowner'}; |
|
} |
|
} |
|
if ($courseowner ne '') { |
|
if ($courseowner eq $env{'user.name'}.':'.$env{'user.domain'}) { |
|
return 1; |
|
} |
|
} |
|
return; |
|
} |
|
|
|
#---------------------------------------------- end functions for &phase_two |
#---------------------------------------------- end functions for &phase_two |
|
|
#--------------------------------- functions for &phase_two and &phase_three |
#--------------------------------- functions for &phase_two and &phase_three |