version 1.1172.2.118.2.5, 2020/07/19 15:12:04
|
version 1.1172.2.118.2.7, 2020/09/08 02:08:27
|
Line 3110 sub unsubscribe {
|
Line 3110 sub unsubscribe {
|
} elsif (grep { $_ eq $home } ¤t_machine_ids()) { |
} elsif (grep { $_ eq $home } ¤t_machine_ids()) { |
$answer = 'home'; |
$answer = 'home'; |
} else { |
} else { |
my $defdom = $perlvar{'lonDefDomain'}; |
$answer = reply("unsub:$fname",$home); |
if (&will_trust('content',$defdom,$udom)) { |
|
$answer = reply("unsub:$fname",$home); |
|
} else { |
|
$answer = 'untrusted'; |
|
} |
|
} |
} |
return $answer; |
return $answer; |
} |
} |
Line 10287 sub writecoursepref {
|
Line 10282 sub writecoursepref {
|
|
|
sub createcourse { |
sub createcourse { |
my ($udom,$description,$url,$course_server,$nonstandard,$inst_code, |
my ($udom,$description,$url,$course_server,$nonstandard,$inst_code, |
$course_owner,$crstype,$cnum,$context,$category)=@_; |
$course_owner,$crstype,$cnum,$context,$category,$callercontext)=@_; |
$url=&declutter($url); |
$url=&declutter($url); |
my $cid=''; |
my $cid=''; |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
my $can_create = 0; |
my $can_create = 0; |
my ($ownername,$ownerdom) = split(':',$course_owner); |
my ($ownername,$ownerdom) = split(':',$course_owner); |
if ($udom eq $ownerdom) { |
if ($udom eq $ownerdom) { |
if (&usertools_access($ownername,$ownerdom,$category,undef, |
my $reload; |
|
if (($callercontext eq 'auto') && |
|
($ownerdom eq $env{'user.domain'}) && ($ownername eq $env{'user.name'})) { |
|
$reload = 'reload'; |
|
} |
|
if (&usertools_access($ownername,$ownerdom,$category,$reload, |
$context)) { |
$context)) { |
$can_create = 1; |
$can_create = 1; |
} |
} |