--- loncom/interface/lonsearchcourse.pm	2024/02/11 23:03:13	1.12
+++ loncom/interface/lonsearchcourse.pm	2025/02/04 03:07:44	1.15
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Course
 #
-# $Id: lonsearchcourse.pm,v 1.12 2024/02/11 23:03:13 raeburn Exp $
+# $Id: lonsearchcourse.pm,v 1.15 2025/02/04 03:07:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -67,9 +67,10 @@ sub menu {
 <input type="hidden" name="phase" value="results" />
 ENDCOURSESEARCH
        $scrout.=&Apache::lonhtmlcommon::start_pick_box().
-                &Apache::lonhtmlcommon::row_title($lt{'note'}).
+                &Apache::lonhtmlcommon::row_title('<label for="courseexp">'.
+                                                  $lt{'note'}.'</label>').
                 &Apache::lonhtmlcommon::textbox('courseexp',
-                                  $env{'form.courseexp'},40).
+                                  $env{'form.courseexp'},40,'id="courseexp"').
                 &Apache::lonhtmlcommon::row_closure().
                 &Apache::lonhtmlcommon::row_title($lt{'options'}).
                 '<label>'.&Apache::lonhtmlcommon::checkbox('crsfulltext',$env{'form.crsfulltext'}).$lt{'full'}."</label><br />\n".
@@ -151,8 +152,8 @@ sub course_search {
                                  (($listed eq 'absent') || ($listed eq 'grades')));
                     }
                 }
-                my $symb=&make_symb($1);
-                &checkonthis($r,$1,$hash{$key},0,&Apache::lonnet::gettitle($symb),
+                my $symb=&make_symb($rid);
+                &checkonthis($r,$rid,$hash{$key},0,&Apache::lonnet::gettitle($symb),
                              $fulltext,$symb,$target,@allwords);
             }
         }
@@ -296,9 +297,9 @@ sub checkonthis {
 # Check also the dependencies of this one
     my $dependencies=
                 &Apache::lonnet::metadata($url,'dependencies');
-    foreach my $url (split(/\,/,$dependencies)) {
-       if (($url =~ /^\/res\//) && (!$alreadyseen{$id})) {
-          &checkonthis($r,$id,$url,$level+1,'',$fulltext,undef,$target,@allwords);
+    foreach my $item (split(/\,/,$dependencies)) {
+       if (($item =~ /^\/res\//) && (!$alreadyseen{$id})) {
+          &checkonthis($r,$id,$item,$level+1,'',$fulltext,undef,$target,@allwords);
        }
     }
 }