--- loncom/interface/lonmodifycourse.pm 2016/09/17 16:03:36 1.79.2.2 +++ loncom/interface/lonmodifycourse.pm 2016/10/23 02:24:51 1.79.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # handler for DC-only modifiable course settings # -# $Id: lonmodifycourse.pm,v 1.79.2.2 2016/09/17 16:03:36 raeburn Exp $ +# $Id: lonmodifycourse.pm,v 1.79.2.3 2016/10/23 02:24:51 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -119,7 +119,7 @@ sub get_enrollment_settings { } elsif ($type eq "authtype" || $type eq "autharg" || $type eq "coursecode" || $type eq "crosslistings" || $type eq "selfenrollmgr" -+ || $type eq "autodropfailsafe") { + || $type eq "autodropfailsafe") { $enrollvar{$type} = $settings{$item}; } elsif ($type eq 'defaultcredits') { if (&showcredits($cdom)) { @@ -173,17 +173,53 @@ sub print_course_search_page { $r->print(&Apache::loncommon::build_filters($filterlist,$type,undef,undef,$filter,$action, \$numtitles,'modifycourse',undef,undef,undef, \@codetitles,$dom)); + + my ($actiontext,$roleoption,$settingsoption); if ($type eq 'Community') { - $r->print(&mt('Actions available after searching for a community:').''); - } else { - $r->print(&mt('Actions available after searching for a course:').''); + $actiontext = &mt('Actions available after searching for a community:'); + } else { + $actiontext = &mt('Actions available after searching for a course:'); } + if (&Apache::lonnet::allowed('ccc',$dom)) { + if ($type eq 'Community') { + $roleoption = &mt('Enter the community with the role of [_1]',$cctitle); + $settingsoption = &mt('View or modify community settings which only a [_1] may modify.',$dctitle); + } else { + $roleoption = &mt('Enter the course with the role of [_1]',$cctitle); + $settingsoption = &mt('View or modify course settings which only a [_1] may modify.',$dctitle); + } + } elsif (&Apache::lonnet::allowed('rar',$dom)) { + my %adhocroles = &Apache::lonnet::userenvironment($env{'user.domain'},$env{'user.name'}, + 'adhocroles.'.$dom); + if (keys(%adhocroles)) { + my @adhoc = split(',',$adhocroles{'adhocroles.'.$dom}); + if (@adhoc > 1) { + if ($type eq 'Community') { + $roleoption = &mt('Enter the community with one of the available ad hoc roles: [_1].', + join(', ',@adhoc)); + } else { + $roleoption = &mt('Enter the course with one of the available ad hoc roles: [_1].', + join(', ',@adhoc)); + } + } else { + if ($type eq 'Community') { + $roleoption = &mt('Enter the community with the ad hoc role of: [_1]',$adhoc[0]); + } else { + $roleoption = &mt('Enter the course with the ad hoc role of: [_1]',$adhoc[0]); + } + } + } + if ($type eq 'Community') { + $settingsoption = &mt('View community settings which only a [_1] may modify.',$dctitle); + } else { + $settingsoption = &mt('View course settings which only a [_1] may modify.',$dctitle); + } + } + $r->print($actiontext.''); return; } @@ -208,7 +244,7 @@ sub print_course_selection_page { my %courses = &Apache::loncommon::search_courses($dom,$type,$filter,$numtitles, undef,undef,undef,\@codetitles); &Apache::lonpickcourse::display_matched_courses($r,$type,0,$action,undef,undef,undef, - undef,undef,%courses); + $dom,undef,%courses); return; } @@ -229,7 +265,7 @@ sub get_filters { } sub print_modification_menu { - my ($r,$cdesc,$domdesc,$dom,$type,$cid,$coursehash) = @_; + my ($r,$cdesc,$domdesc,$dom,$type,$cid,$coursehash,$permission) = @_; &print_header($r,$type); my ($ccrole,$categorytitle,$setquota_text,$setuploadquota_text,$setparams_text,$cat_text, $cdom,$cnum); @@ -263,17 +299,20 @@ sub print_modification_menu { } my $anon_text = &mt('Responder threshold required to display anonymous survey submissions.'); my $postsubmit_text = &mt('Override defaults for submit button behavior post-submission for this specific course.'); + my $mysqltables_text = &mt('Override default for lifetime of "temporary" MySQL tables containing student performance data.'); my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom); my @additional_params = &catalog_settable($domconf{'coursecategories'},$type); sub manage_selfenrollment { - my ($cdom,$cnum,$type,$coursehash) = @_; - my ($managed_by_cc,$managed_by_dc) = &Apache::lonuserutils::selfenrollment_administration($cdom,$cnum,$type,$coursehash); - if (ref($managed_by_dc) eq 'ARRAY') { - if (@{$managed_by_dc}) { - return 1; - } + my ($cdom,$cnum,$type,$coursehash,$permission) = @_; + if ($permission->{'selfenroll'}) { + my ($managed_by_cc,$managed_by_dc) = &Apache::lonuserutils::selfenrollment_administration($cdom,$cnum,$type,$coursehash); + if (ref($managed_by_dc) eq 'ARRAY') { + if (@{$managed_by_dc}) { + return 1; + } + } } return 0; } @@ -288,7 +327,7 @@ sub print_modification_menu { { linktext => $setparams_text, url => &phaseurl('setparms'), - permission => 1, + permission => $permission->{'setparms'}, #help => '', icon => 'crsconf.png', linktitle => '' @@ -296,7 +335,7 @@ sub print_modification_menu { { linktext => 'View/Modify quotas for group portfolio files, and for uploaded content.', url => &phaseurl('setquota'), - permission => 1, + permission => $permission->{'setquota'}, #help => '', icon => 'groupportfolioquota.png', linktitle => '' @@ -304,7 +343,7 @@ sub print_modification_menu { { linktext => 'View/Modify responders threshold for anonymous survey submissions display', url => &phaseurl('setanon'), - permission => 1, + permission => $permission->{'setanon'}, #help => '', icon => 'anonsurveythreshold.png', linktitle => '' @@ -312,7 +351,7 @@ sub print_modification_menu { { linktext => $cat_text, url => &phaseurl('catsettings'), - permission => (@additional_params > 0), + permission => (($permission->{'catsettings'}) && (@additional_params > 0)), #help => '', icon => 'ccatconf.png', linktitle => '' @@ -320,7 +359,7 @@ sub print_modification_menu { { linktext => 'Display current settings for automated enrollment', url => &phaseurl('viewparms'), - permission => ($type ne 'Community'), + permission => ($permission->{'viewparms'} && ($type ne 'Community')), #help => '', icon => 'roles.png', linktitle => '' @@ -330,7 +369,7 @@ sub print_modification_menu { icon => 'self_enroll.png', #help => 'Course_Self_Enrollment', url => &phaseurl('selfenroll'), - permission => &manage_selfenrollment($cdom,$cnum,$type,$coursehash), + permission => &manage_selfenrollment($cdom,$cnum,$type,$coursehash,$permission), linktitle => 'Configure user self-enrollment.', }, { @@ -338,7 +377,7 @@ sub print_modification_menu { icon => 'emblem-readonly.png', #help => '', url => &phaseurl('setpostsubmit'), - permission => 1, + permission => $permission->{'setpostsubmit'}, linktitle => '', }, ] @@ -372,18 +411,23 @@ sub print_modification_menu { '
  • '.$setuploadquota_text.'
    • '."\n". '
  • '.$anon_text.'
    • '."\n". '
  • '.$postsubmit_text.'
    • '."\n"; + my ($categories_link_start,$categories_link_end); + if ($permission->{'catsettings'}) { + $categories_link_start = ''; + $categories_link_end = ''; + } foreach my $item (@additional_params) { if ($type eq 'Community') { if ($item eq 'togglecats') { - $menu_html .= '
  • '.&mt('Hiding/unhiding a community from the catalog (although can be [_1]configured[_2] to be modifiable by a Coordinator in community context).','','').'
    • '."\n"; + $menu_html .= '
  • '.&mt('Hiding/unhiding a community from the catalog (although can be [_1]configured[_2] to be modifiable by a Coordinator in community context).',$categories_link_start,$categories_link_end).'
    • '."\n"; } elsif ($item eq 'categorize') { - $menu_html .= '
  • '.&mt('Manual cataloging of a community (although can be [_1]configured[_2] to be modifiable by a Coordinator in community context).','','').'
    • '."\n"; + $menu_html .= '
  • '.&mt('Manual cataloging of a community (although can be [_1]configured[_2] to be modifiable by a Coordinator in community context).',$categories_link_start,$categories_link_end).'
    • '."\n"; } } else { if ($item eq 'togglecats') { - $menu_html .= '
  • '.&mt('Hiding/unhiding a course from the course catalog (although can be [_1]configured[_2] to be modifiable by a Course Coordinator in course context).','','').'
    • '."\n"; + $menu_html .= '
  • '.&mt('Hiding/unhiding a course from the course catalog (although can be [_1]configured[_2] to be modifiable by a Course Coordinator in course context).',$categories_link_start,$categories_link_end).'
    • '."\n"; } elsif ($item eq 'categorize') { - $menu_html .= '
  • '.&mt('Manual cataloging of a course (although can be [_1]configured[_2] to be modifiable by a Course Coordinator in course context).','','').'
    • '."\n"; + $menu_html .= '
  • '.&mt('Manual cataloging of a course (although can be [_1]configured[_2] to be modifiable by a Course Coordinator in course context).',$categories_link_start,$categories_link_end).'
    • '."\n"; } } } @@ -399,18 +443,47 @@ sub print_modification_menu { return; } -sub print_ccrole_selected { +sub print_adhocrole_selected { my ($r,$type) = @_; &print_header($r,$type); my ($cdom,$cnum) = split(/_/,$env{'form.pickedcourse'}); - $r->print('
    - - + my ($newrole,$selectrole); + if (&Apache::lonnet::allowed('ccc',$cdom)) { + if ($type eq 'Community') { + $newrole = "co./$cdom/$cnum"; + } else { + $newrole = "cc./$cdom/$cnum"; + } + $selectrole = 1; + } elsif (&Apache::lonnet::allowed('rar',$cdom)) { + my %adhocroles = &Apache::lonnet::userenvironment($env{'user.domain'},$env{'user.name'}, + 'adhocroles.'.$cdom); + if (keys(%adhocroles)) { + my $possrole = $env{'form.adhocrole'}; + if ($possrole ne '') { + my @adhoc = split(',',$adhocroles{'adhocroles.'.$cdom}); + if (grep(/^\Q$possrole\E$/,@adhoc)) { + my $confname = &Apache::lonnet::get_domainconfiguser($cdom); + $newrole = "cr/$cdom/$confname/$possrole./$cdom/$cnum"; + $selectrole = 1; + } + } + } + } + if ($selectrole) { + $r->print(' + +
    '); + } else { + $r->print('
    '. + '
    '); + } + return; } sub print_settings_display { - my ($r,$cdom,$cnum,$cdesc,$type) = @_; + my ($r,$cdom,$cnum,$cdesc,$type,$permission) = @_; my %enrollvar = &get_enrollment_settings($cdom,$cnum); my %longtype = &course_settings_descrip($type); my %lt = &Apache::lonlocal::texthash( @@ -451,25 +524,35 @@ sub print_settings_display { } $disp_table .= &Apache::loncommon::end_data_table()."\n"; &print_header($r,$type); - my $newrole = $ccrole.'./'.$cdom.'/'.$cnum; - my $escuri = &HTML::Entities::encode('/adm/roles?selectrole=1&'.$newrole. - '=1&destinationurl=/adm/populate','&<>"'); + my ($enroll_link_start,$enroll_link_end,$setparms_link_start,$setparms_link_end); + if (&Apache::lonnet::allowed('ccc',$cdom)) { + my $newrole = $ccrole.'./'.$cdom.'/'.$cnum; + my $escuri = &HTML::Entities::encode('/adm/roles?selectrole=1&'.$newrole. + '=1&destinationurl=/adm/populate','&<>"'); + $enroll_link_start = ''; + $enroll_link_end = ''; + } + if ($permission->{'setparms'}) { + $setparms_link_start = ''; + $setparms_link_end = ''; + } $r->print('

    '.&mt('Current automated enrollment settings for:'). ' '.$cdesc.'

    '. '
    '."\n". '

    '.$lt{'cose'}.'

    '. '

    '.$lt{'cour'}.'

    '.$disp_table.'

    '. ''.$lt{'back'}.''."\n". &hidden_form_elements(). '

    ' - ); + ); } sub print_setquota { @@ -844,15 +927,15 @@ sub print_course_modification_page { ' '.&mt('Credits (students)'))."\n". ''. &Apache::lonhtmlcommon::row_closure()); - } - $r->print(&Apache::lonhtmlcommon::row_title( - &Apache::loncommon::help_open_topic('Modify_Course_Defaultauth'). - ' '.&mt('Default Authentication method'))."\n". - $authenitems."\n". - &Apache::lonhtmlcommon::row_closure(). - &Apache::lonhtmlcommon::row_title( - &Apache::loncommon::help_open_topic('Modify_Course_Owner'). - ' '.&mt('Course Owner'))."\n"); + } + $r->print(&Apache::lonhtmlcommon::row_title( + &Apache::loncommon::help_open_topic('Modify_Course_Defaultauth'). + ' '.&mt('Default Authentication method'))."\n". + $authenitems."\n". + &Apache::lonhtmlcommon::row_closure(). + &Apache::lonhtmlcommon::row_title( + &Apache::loncommon::help_open_topic('Modify_Course_Owner'). + ' '.&mt('Course Owner'))."\n"); } my ($cctitle,$rolename,$currmanages,$ccchecked,$dcchecked,$defaultchecked); my ($selfenrollrows,$selfenrolltitles) = &Apache::lonuserutils::get_selfenroll_titles(); @@ -1284,7 +1367,7 @@ sub modify_course { $shown = &selfenroll_config_status(\@currmgrcc,$selfenrolltitles); } elsif (($attr eq 'defaultcredits') && ($shown eq '')) { $shown = &mt('None'); - } elsif (($attr eq 'mysqltables') && ($shown eq '')) { + } elsif (($attr eq 'mysqltables') && ($shown eq '')) { $shown = &mt('domain default'); } $nochgresponse .= '
  • '.&mt('[_1] still set to: [_2]',$longtype{$attr},$shown).'
    • '; @@ -2041,9 +2124,9 @@ ENDSCRIPT } my $starthash; - if ($env{'form.phase'} eq 'ccrole') { + if ($env{'form.phase'} eq 'adhocrole') { $starthash = { - add_entries => {'onload' => "javascript:document.ccrole.submit();"}, + add_entries => {'onload' => "javascript:document.adhocrole.submit();"}, }; } elsif ($phase eq 'courselist') { $starthash = { @@ -2110,6 +2193,7 @@ sub course_settings_descrip { 'co-owners' => "Username:domain of each co-owner", 'selfenrollmgrdc' => "Community-specific self-enrollment configuration by Domain Coordinator", 'selfenrollmgrcc' => "Community-specific self-enrollment configuration by Community personnel", + 'mysqltables' => '"Temporary" student performance tables lifetime (seconds)', ); } else { %longtype = &Apache::lonlocal::texthash( @@ -2132,7 +2216,6 @@ sub course_settings_descrip { 'selfenrollmgrdc' => "Course-specific self-enrollment configuration by Domain Coordinator", 'selfenrollmgrcc' => "Course-specific self-enrollment configuration by Course personnel", 'mysqltables' => '"Temporary" student performance tables lifetime (seconds)', - ); } return %longtype; @@ -2158,6 +2241,34 @@ sub showcredits { } } +sub get_permission { + my ($dom) = @_; + my ($allowed,%permission); + if (&Apache::lonnet::allowed('ccc',$dom)) { + $allowed = 1; + %permission = ( + setquota => 1, + processquota => 1, + setanon => 1, + processthreshold => 1, + setpostsubmit => 1, + processpostsubmit => 1, + viewparms => 1, + setparms => 1, + processparms => 1, + catsettings => 1, + processcat => 1, + selfenroll => 1, + ); + } elsif (&Apache::lonnet::allowed('rar',$dom)) { + $allowed = 1; + %permission = ( + viewparms => 1, + ); + } + return ($allowed,\%permission); +} + sub handler { my $r = shift; if ($r->header_only) { @@ -2168,8 +2279,8 @@ sub handler { my $dom = $env{'request.role.domain'}; my $domdesc = &Apache::lonnet::domain($dom,'description'); - - if (&Apache::lonnet::allowed('ccc',$dom)) { + my ($allowed,$permission) = &get_permission($dom); + if ($allowed) { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; @@ -2220,23 +2331,24 @@ sub handler { ({href=>"javascript:changePage(document.$phase,'menu')", text=>"Pick action"}); &print_modification_menu($r,$cdesc,$domdesc,$dom,$type, - $env{'form.pickedcourse'},$coursehash); - } elsif ($phase eq 'ccrole') { + $env{'form.pickedcourse'},$coursehash, + $permission); + } elsif ($phase eq 'adhocrole') { &Apache::lonhtmlcommon::add_breadcrumb - ({href=>"javascript:changePage(document.$phase,'ccrole')", + ({href=>"javascript:changePage(document.$phase,'adhocrole')", text=>$enter_text}); - &print_ccrole_selected($r,$type); + &print_adhocrole_selected($r,$type); } else { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'menu')", text=>"Pick action"}); my ($cdom,$cnum) = split(/_/,$env{'form.pickedcourse'}); - if ($phase eq 'setquota') { + if (($phase eq 'setquota') && ($permission->{'setquota'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Set quota"}); &print_setquota($r,$cdom,$cnum,$cdesc,$type); - } elsif ($phase eq 'processquota') { + } elsif (($phase eq 'processquota') && ($permission->{'processquota'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'setquota')", text=>"Set quota"}); @@ -2244,12 +2356,12 @@ sub handler { ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Result"}); &modify_quota($r,$cdom,$cnum,$cdesc,$domdesc,$type); - } elsif ($phase eq 'setanon') { + } elsif (($phase eq 'setanon') && ($permission->{'setanon'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Threshold for anonymous submissions display"}); &print_set_anonsurvey_threshold($r,$cdom,$cnum,$cdesc,$type); - } elsif ($phase eq 'processthreshold') { + } elsif (($phase eq 'processthreshold') && ($permission->{'processthreshold'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'setanon')", text=>"Threshold for anonymous submissions display"}); @@ -2257,27 +2369,27 @@ sub handler { ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Result"}); &modify_anonsurvey_threshold($r,$cdom,$cnum,$cdesc,$domdesc,$type); - } elsif ($phase eq 'setpostsubmit') { + } elsif (($phase eq 'setpostsubmit') && ($permission->{'setpostsubmit'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Configure submit button behavior post-submission"}); &print_postsubmit_config($r,$cdom,$cnum,$cdesc,$type); - } elsif ($phase eq 'processpostsubmit') { + } elsif (($phase eq 'processpostsubmit') && ($permission->{'processpostsubmit'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Result"}); &modify_postsubmit_config($r,$cdom,$cnum,$cdesc,$domdesc,$type); - } elsif ($phase eq 'viewparms') { + } elsif (($phase eq 'viewparms') && ($permission->{'viewparms'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'viewparms')", text=>"Display settings"}); - &print_settings_display($r,$cdom,$cnum,$cdesc,$type); - } elsif ($phase eq 'setparms') { + &print_settings_display($r,$cdom,$cnum,$cdesc,$type,$permission); + } elsif (($phase eq 'setparms') && ($permission->{'setparms'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Change settings"}); &print_course_modification_page($r,$cdom,$cnum,$cdesc,$type); - } elsif ($phase eq 'processparms') { + } elsif (($phase eq 'processparms') && ($permission->{'processparms'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'setparms')", text=>"Change settings"}); @@ -2285,12 +2397,12 @@ sub handler { ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Result"}); &modify_course($r,$cdom,$cnum,$cdesc,$domdesc,$type); - } elsif ($phase eq 'catsettings') { + } elsif (($phase eq 'catsettings') && ($permission->{'catsettings'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Catalog settings"}); &print_catsettings($r,$cdom,$cnum,$cdesc,$type); - } elsif ($phase eq 'processcat') { + } elsif (($phase eq 'processcat') && ($permission->{'processcat'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'catsettings')", text=>"Catalog settings"}); @@ -2298,7 +2410,7 @@ sub handler { ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Result"}); &modify_catsettings($r,$cdom,$cnum,$cdesc,$domdesc,$type); - } elsif ($phase eq 'selfenroll') { + } elsif (($phase eq 'selfenroll') && ($permission->{'selfenroll'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href => "javascript:changePage(document.$phase,'$phase')", text => "Self-enrollment settings"});