--- loncom/interface/courseprefs.pm	2023/10/06 23:01:38	1.49.2.28.2.18
+++ loncom/interface/courseprefs.pm	2025/01/16 16:15:14	1.49.2.28.2.21
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.49.2.28.2.18 2023/10/06 23:01:38 raeburn Exp $
+# $Id: courseprefs.pm,v 1.49.2.28.2.21 2025/01/16 16:15:14 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);
@@ -778,9 +784,38 @@ sub print_config_box {
           <tr>
            <td>
             <table class="LC_nested">';
+        if ($action eq 'linkprot') {
+            if ((ref($settings) eq 'HASH') && (ref($settings->{'suggested'}) eq 'HASH')) {
+                my $hints;
+                my $hintcount = 0;
+                foreach my $key (sort { $a <=> $b } keys(%{$settings->{'suggested'}})) {
+                    if ((ref($settings->{'suggested'}->{$key}) eq 'HASH')) {
+                        if (($settings->{'suggested'}->{$key}-{'name'} ne '') &&
+                            ($settings->{'suggested'}->{$key}-{'info'} ne '')) {
+                            my $css_class = $hintcount%2?' class="LC_odd_row"':' class="LC_even_row"';
+                            $hints .= '<tr '.$css_class.'><td class="LC_left_item">'.
+                                      $settings->{'suggested'}->{$key}->{'name'}.'</td>'.
+                                      '<td class="LC_right_item"><pre>'.
+                                      $settings->{'suggested'}->{$key}->{'info'}.
+                                      '</pre></td></tr>';
+                            $hintcount ++;
+                        }
+                    }
+                }
+                if ($hintcount) {
+                    $output .= '<tr class="LC_info_row">'.
+                               '<td colspan="2" class="LC_left_item">'.&mt('Recommendation(s) for specific launcher application(s)').'</td>'.
+                               '</tr>'."\n".
+                               '<tr class="LC_info_row">'.
+                               '<td class="LC_left_item"><span class="LC_nobreak">'.&mt('Launcher Application').'</span></td>'.
+                               '<td class="LC_right_item">'.&mt('Recommendation(s)').'</td></tr>'."\n".
+                               $hints;
+                }
+            }
+        }
         if (exists $item->{'header'}->[0]->{'col1'} || 
             exists $item->{'header'}->[0]->{'col2'}) {
-			$output .= '          
+	    $output .= '          
           	<tr class="LC_info_row">
               <td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>';
             if (($action eq 'courseinfo') || ($action eq 'localization') ||
@@ -5034,8 +5069,7 @@ sub update_releasereq {
         }
         $modified_courses = [];
     }
-    undef($registered_cleanup);
-    return;
+    return OK;
 }
 
 sub show_autocoowners {
@@ -6827,7 +6861,7 @@ sub menuitems_categories {
                        shown => ['top','inline','foot','main'],
                        text  => ['name','role','crs','disc','fdbk'],
                        links => ['pers','logo','comm','roles','help','logout'],
-                       list => ['about','prefs','port','wish','anno','rss'],
+                       list => ['about','prefs','port','wish','anno','rss','srch','brse'],
                        inline => ['cont','grades','chat','people','groups','resv','syll','feeds'],
                      );
     return (\@order,\%categories);
@@ -6866,6 +6900,8 @@ sub menuitems_fields {
                wish => 'Stored Links',
                anno => 'Calendar',
                rss => 'RSS Feeds',
+               srch => 'Search Library',
+               brse => 'Browse Library',
                cont => 'Contents',
                grades => 'Grades',
                chat => 'Chat',