version 1.692.4.21, 2010/01/19 06:01:09
|
version 1.692.4.22, 2010/01/19 16:10:11
|
Line 481 ENDAUTHORBRW
|
Line 481 ENDAUTHORBRW
|
} |
} |
|
|
sub coursebrowser_javascript { |
sub coursebrowser_javascript { |
my ($domainfilter,$sec_element,$formname,$role_element)=@_; |
my ($domainfilter,$sec_element,$formname,$role_element,$crstype) = @_; |
my $crs_or_grp_alert = &mt('Please select the type of LON-CAPA entity - Course or Community - for which you wish to add/modify a user role.'); |
my $wintitle = 'Course_Browser'; |
|
if ($crstype eq 'Community') { |
|
$wintitle = 'Community_Browser'; |
|
} |
my $id_functions = &javascript_index_functions(); |
my $id_functions = &javascript_index_functions(); |
my $output = ' |
my $output = ' |
<script type="text/javascript" language="JavaScript"> |
<script type="text/javascript" language="JavaScript"> |
Line 490 sub coursebrowser_javascript {
|
Line 493 sub coursebrowser_javascript {
|
var stdeditbrowser;'."\n"; |
var stdeditbrowser;'."\n"; |
|
|
$output .= <<"ENDSTDBRW"; |
$output .= <<"ENDSTDBRW"; |
function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag,crstype) { |
function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag,type,type_elem) { |
var url = '/adm/pickcourse?'; |
var url = '/adm/pickcourse?'; |
var formid = getFormIdByName(formname); |
var formid = getFormIdByName(formname); |
var domainfilter = getDomainFromSelectbox(formname,udom); |
var domainfilter = getDomainFromSelectbox(formname,udom); |
Line 515 sub coursebrowser_javascript {
|
Line 518 sub coursebrowser_javascript {
|
} |
} |
} |
} |
} |
} |
|
if (type != null && type != '') { |
|
url += '&type='+type; |
|
} |
|
if (type_elem != null && type_elem != '') { |
|
url += '&typeelement='+type_elem; |
|
} |
if (formname == 'ccrs') { |
if (formname == 'ccrs') { |
var ownername = document.forms[formid].ccuname.value; |
var ownername = document.forms[formid].ccuname.value; |
var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value; |
var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value; |
Line 523 sub coursebrowser_javascript {
|
Line 532 sub coursebrowser_javascript {
|
if (multflag !=null && multflag != '') { |
if (multflag !=null && multflag != '') { |
url += '&multiple='+multflag; |
url += '&multiple='+multflag; |
} |
} |
if (crstype == 'Course/Community') { |
var title = '$wintitle'; |
if (formname == 'cu') { |
|
crstype = document.cu.crstype.options[document.cu.crstype.selectedIndex].value; |
|
if (crstype == "") { |
|
alert("$crs_or_grp_alert"); |
|
return; |
|
} |
|
} |
|
} |
|
if (crstype !=null && crstype != '') { |
|
url += '&type='+crstype; |
|
} |
|
var title = 'Course_Browser'; |
|
var options = 'scrollbars=1,resizable=1,menubar=0'; |
var options = 'scrollbars=1,resizable=1,menubar=0'; |
options += ',width=700,height=600'; |
options += ',width=700,height=600'; |
stdeditbrowser = open(url,title,options,'1'); |
stdeditbrowser = open(url,title,options,'1'); |
Line 756 function setRole(crstype) {
|
Line 753 function setRole(crstype) {
|
} |
} |
|
|
sub selectcourse_link { |
sub selectcourse_link { |
my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype)=@_; |
my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype, |
|
$typeelement) = @_; |
|
my $type = $selecttype; |
my $linktext = &mt('Select Course'); |
my $linktext = &mt('Select Course'); |
if ($selecttype eq 'Community') { |
if ($selecttype eq 'Community') { |
$linktext = &mt('Select Community'); |
$linktext = &mt('Select Community'); |
|
} elsif ($selecttype eq 'Course/Community') { |
|
$linktext = &mt('Select Course/Community'); |
|
$type = ''; |
} |
} |
return '<span class="LC_nobreak">' |
return '<span class="LC_nobreak">' |
."<a href='" |
."<a href='" |
.'javascript:opencrsbrowser("'.$form.'","'.$unameele |
.'javascript:opencrsbrowser("'.$form.'","'.$unameele |
.'","'.$udomele.'","'.$desc.'","'.$extra_element |
.'","'.$udomele.'","'.$desc.'","'.$extra_element |
.'","'.$multflag.'","'.$selecttype.'");' |
.'","'.$multflag.'","'.$type.'","'.$typeelement.'");' |
."'>".$linktext.'</a>' |
."'>".$linktext.'</a>' |
.'</span>'; |
.'</span>'; |
} |
} |
Line 1164 sub general_help {
|
Line 1166 sub general_help {
|
my $helptopic='Student_Intro'; |
my $helptopic='Student_Intro'; |
if ($env{'request.role'}=~/^(ca|au)/) { |
if ($env{'request.role'}=~/^(ca|au)/) { |
$helptopic='Authoring_Intro'; |
$helptopic='Authoring_Intro'; |
} elsif ($env{'request.role'}=~/^cc/) { |
} elsif ($env{'request.role'}=~/^(cc|co)/) { |
$helptopic='Course_Coordination_Intro'; |
$helptopic='Course_Coordination_Intro'; |
} elsif ($env{'request.role'}=~/^dc/) { |
} elsif ($env{'request.role'}=~/^dc/) { |
$helptopic='Domain_Coordination_Intro'; |
$helptopic='Domain_Coordination_Intro'; |
Line 3728 sub findallcourses {
|
Line 3730 sub findallcourses {
|
if (!%roles) { |
if (!%roles) { |
%roles = ( |
%roles = ( |
cc => 1, |
cc => 1, |
|
co => 1, |
in => 1, |
in => 1, |
ep => 1, |
ep => 1, |
ta => 1, |
ta => 1, |
Line 6363 Returns either 'student','coordinator','
|
Line 6366 Returns either 'student','coordinator','
|
############################################### |
############################################### |
sub get_users_function { |
sub get_users_function { |
my $function = 'student'; |
my $function = 'student'; |
if ($env{'request.role'}=~/^(cc|in|ta|ep)/) { |
if ($env{'request.role'}=~/^(cc|co|in|ta|ep)/ |
$function='coordinator'; |
$function='coordinator'; |
} |
} |
if ($env{'request.role'}=~/^(su|dc|ad|li)/) { |
if ($env{'request.role'}=~/^(su|dc|ad|li)/) { |
Line 6433 sub check_user_status {
|
Line 6436 sub check_user_status {
|
my $active_chk = 'none'; |
my $active_chk = 'none'; |
my $now = time; |
my $now = time; |
if (@uroles > 0) { |
if (@uroles > 0) { |
if (($role eq 'cc') || ($sec eq '') || (!defined($sec))) { |
if (($role eq 'cc') || ($role eq 'co') || ($sec eq '') || (!defined($sec))) { |
$srchstr = '/'.$cdom.'/'.$crs.'_'.$role; |
$srchstr = '/'.$cdom.'/'.$crs.'_'.$role; |
} else { |
} else { |
$srchstr = '/'.$cdom.'/'.$crs.'/'.$sec.'_'.$role; |
$srchstr = '/'.$cdom.'/'.$crs.'/'.$sec.'_'.$role; |
Line 9382 sub check_clone {
|
Line 9385 sub check_clone {
|
my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom); |
my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom); |
my $clonemsg; |
my $clonemsg; |
my $can_clone = 0; |
my $can_clone = 0; |
|
my $lctype = lc($args->{'type'}); |
|
if ($lctype ne 'community') { |
|
$lctype = 'course'; |
|
} |
if ($clonehome eq 'no_host') { |
if ($clonehome eq 'no_host') { |
$clonemsg = &mt('No new course created.').$linefeed.&mt('A new course could not be cloned from the specified original - [_1] - because it is a non-existent course.',$args->{'clonecourse'}.':'.$args->{'clonedomain'}); |
if ($args->{'type'} eq 'Community') { |
|
$clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a non-existent community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'}); |
|
} else { |
|
$clonemsg = &mt('No new course created.').$linefeed.&mt('A new course could not be cloned from the specified original - [_1] - because it is a non-existent course.',$args->{'clonecourse'}.':'.$args->{'clonedomain'}); |
|
} |
} else { |
} else { |
my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1}); |
my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1}); |
if (($env{'request.role.domain'} eq $args->{'clonedomain'}) && |
if ($args->{'type'} eq 'Community') { |
|
if ($clonedesc{'type'} ne 'Community') { |
|
$clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a course not a community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'}); |
|
return ($can_clone, $clonemsg, $cloneid, $clonehome); |
|
} |
|
} |
|
if (($env{'request.role.domain'} eq $args->{'clonedomain'}) && |
(&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) { |
(&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) { |
$can_clone = 1; |
$can_clone = 1; |
} else { |
} else { |
my %clonehash = &Apache::lonnet::get('environment',['cloners'], |
my %clonehash = &Apache::lonnet::get('environment',['cloners'], |
$args->{'clonedomain'},$args->{'clonecourse'}); |
$args->{'clonedomain'},$args->{'clonecourse'}); |
my @cloners = split(/,/,$clonehash{'cloners'}); |
my @cloners = split(/,/,$clonehash{'cloners'}); |
if (grep(/^\*$/,@cloners)) { |
if (grep(/^\*$/,@cloners)) { |
$can_clone = 1; |
$can_clone = 1; |
} elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) { |
} elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) { |
$can_clone = 1; |
$can_clone = 1; |
} else { |
} else { |
my %roleshash = |
my $ccrole = 'cc'; |
&Apache::lonnet::get_my_roles($args->{'ccuname'}, |
if ($args->{'type'} eq 'Community') { |
$args->{'ccdomain'}, |
$ccrole = 'co'; |
'userroles',['active'],['cc'], |
} |
[$args->{'clonedomain'}]); |
my %roleshash = |
if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':cc'}) || (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) { |
&Apache::lonnet::get_my_roles($args->{'ccuname'}, |
$can_clone = 1; |
$args->{'ccdomain'}, |
} else { |
'userroles',['active'],[$ccrole], |
$clonemsg = &mt('No new course created.').$linefeed.&mt('The new course could not be cloned from the existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'}); |
[$args->{'clonedomain'}]); |
} |
if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':'.$ccrole}) || (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) { |
} |
$can_clone = 1; |
|
} else { |
|
if ($args->{'type'} eq 'Community') { |
|
$clonemsg = &mt('No new community created.').$linefeed.&mt('The new community could not be cloned from the existing community because the new community owner ([_1]) does not have cloning rights in the existing community ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'}); |
|
} else { |
|
$clonemsg = &mt('No new course created.').$linefeed.&mt('The new course could not be cloned from the existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'}); |
|
} |
|
} |
|
} |
} |
} |
} |
} |
return ($can_clone, $clonemsg, $cloneid, $clonehome); |
return ($can_clone, $clonemsg, $cloneid, $clonehome); |