--- loncom/interface/courseprefs.pm 2024/01/24 17:20:58 1.129 +++ loncom/interface/courseprefs.pm 2024/12/20 00:24:38 1.132 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set configuration settings for a course # -# $Id: courseprefs.pm,v 1.129 2024/01/24 17:20:58 raeburn Exp $ +# $Id: courseprefs.pm,v 1.132 2024/12/20 00:24:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -372,6 +372,12 @@ sub handler { my %values=&Apache::lonnet::dump('environment',$cdom,$cnum); my %linkprot=&Apache::lonnet::dump('lti',$cdom,$cnum,undef,undef,undef,1); + my %domdefs = &Apache::lonnet::get_domain_defaults($cdom); + unless ($phase eq 'process') { + if (ref($domdefs{'linkprotsuggested'}) eq 'HASH') { + $values{'suggested'} = $domdefs{'linkprotsuggested'}; + } + } my %ltienc = &Apache::lonnet::dump('nohist_ltienc',$cdom,$cnum,undef,undef,undef,1); my %ltitools = &Apache::lonnet::dump('ltitools',$cdom,$cnum,undef,undef,undef,1); my %ltitoolsenc = &Apache::lonnet::dump('nohist_toolsenc',$cdom,$cnum,undef,undef,undef,1); @@ -793,9 +799,38 @@ sub print_config_box {
'. + $settings->{'suggested'}->{$key}->{'name'}.' | '. + ''. + $settings->{'suggested'}->{$key}->{'info'}. + ' |
'.&mt('Recommendation(s) for specific launcher application(s)').' | '. + '|
'.&mt('Launcher Application').' | '. + ''.&mt('Recommendation(s)').' |
'.&mt($item->{'header'}->[0]->{'col1'}).' | '; if (($action eq 'courseinfo') || ($action eq 'localization') || @@ -5263,8 +5298,7 @@ sub update_releasereq { } $modified_courses = []; } - undef($registered_cleanup); - return; + return OK; } sub show_autocoowners { @@ -7532,7 +7566,7 @@ sub print_linkprotection { $onclickreturnurl.$checkedreturnurl{'no'}.$disabled.' />'.&mt('No').' '. ''. - ' '. + ' '; @@ -7604,7 +7638,7 @@ sub print_linkprotection { $onclickpassback.$checkedpassback{'no'}.$disabled.' />'.&mt('No').' '. ''. - '