--- loncom/interface/lonmeta.pm	2023/11/07 21:31:11	1.257
+++ loncom/interface/lonmeta.pm	2025/03/18 18:57:28	1.258
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.257 2023/11/07 21:31:11 raeburn Exp $
+# $Id: lonmeta.pm,v 1.258 2025/03/18 18:57:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -550,7 +550,7 @@ sub direct {
 }
 
 sub selectbox {
-    my ($name,$value,$readonly,$functionref,@idlist)=@_;
+    my ($name,$value,$readonly,$id,$functionref,@idlist)=@_;
     if (! defined($functionref)) {
         $functionref=\&direct;
     }
@@ -558,7 +558,10 @@ sub selectbox {
     if ($readonly) {
         $disabled = ' disabled="disabled"';
     }
-    my $selout='<select name="'.$name.'">';
+    if ($id ne '') {
+        $id = ' id="'.$id.'"';
+    }
+    my $selout='<select name="'.$name.'"'.$id.'>';
     foreach my $id (@idlist) {
         $selout.='<option value="'.$id.'"'.$disabled;
         if ($id eq $value) {
@@ -582,7 +585,7 @@ sub relatedfield {
         return $relatedsep.'&nbsp;';
     }
     return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'.
-	($relatedvalue?' checked="checked"':'').' />';
+	($relatedvalue?' checked="checked"':'').' id="'.$fieldname.'_related" />';
 }
 
 sub prettyinput {
@@ -657,7 +660,7 @@ sub prettyinput {
         } 
         if (($type eq 'lowestgradelevel') ||
 	    ($type eq 'highestgradelevel')) {
-	    return &Apache::loncommon::select_level_form($value,$fieldname).
+	    return &Apache::loncommon::select_level_form($value,$fieldname,$fieldname).
             &relatedfield(0,$relatedsearchflag,$relatedsep); 
         }
         return(); 
@@ -665,7 +668,7 @@ sub prettyinput {
     # Language
     if ($type eq 'language') {
 	return &selectbox($fieldname,
-			  $value,'',
+			  $value,'',$fieldname,
 			  \&Apache::loncommon::languagedescription,
 			  (&Apache::loncommon::languageids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);
@@ -673,7 +676,7 @@ sub prettyinput {
     # Copyright
     if ($type eq 'copyright') {
 	return &selectbox($fieldname,
-			  $value,$readonly,
+			  $value,$readonly,$fieldname,
 			  \&Apache::loncommon::copyrightdescription,
 			  (&Apache::loncommon::copyrightids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);
@@ -681,7 +684,7 @@ sub prettyinput {
     # Source Copyright
     if ($type eq 'sourceavail') {
 	return &selectbox($fieldname,
-			  $value,'',
+			  $value,'',$fieldname,
 			  \&Apache::loncommon::source_copyrightdescription,
 			  (&Apache::loncommon::source_copyrightids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);
@@ -689,22 +692,22 @@ sub prettyinput {
     # Gradelevels
     if (($type eq 'lowestgradelevel') ||
 	($type eq 'highestgradelevel')) {
-	return &Apache::loncommon::select_level_form($value,$fieldname).
+	return &Apache::loncommon::select_level_form($value,$fieldname,$fieldname).
             &relatedfield(0,$relatedsearchflag,$relatedsep);
     }
     # Obsolete
     if ($type eq 'obsolete') {
 	return '<input type="checkbox" name="'.$fieldname.'"'.
-	    ($value?' checked="checked"':'').' />'.
+	    ($value?' checked="checked"':'').' id="'.$fieldname.'" />'.
             &relatedfield(0,$relatedsearchflag,$relatedsep); 
     }
     # Obsolete replacement file
     if ($type eq 'obsoletereplacement') {
 	return '<input type="text" name="'.$fieldname.
-	    '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.
+	    '" size="60" value="'.$value.'" id="'.$fieldname.'" /><a href="javascript:openbrowser'.
 	    "('".$formname."','".$fieldname."'".
 	    ",'')\">".&mt('Select').'</a>'.
-            &relatedfield(0,$relatedsearchflag,$relatedsep); 
+            &relatedfield(0,$relatedsearchflag,$relatedsep);
     }
     # Customdistribution file
     if ($type eq 'customdistributionfile') {
@@ -714,7 +717,7 @@ sub prettyinput {
         }
         my $output;
 	$output = '<input type="text" name="'.$fieldname.
-	    '" size="60" value="'.$value.'"'.$disabled.' />';
+	    '" size="60" value="'.$value.'"'.$disabled.' id="'.$fieldname.'" />';
         unless ($readonly) {
             $output .= '<a href="javascript:openbrowser'.
 	               "('".$formname."','".$fieldname."'".
@@ -726,7 +729,7 @@ sub prettyinput {
     # Source Customdistribution file
     if ($type eq 'sourcerights') {
 	return '<input type="text" name="'.$fieldname.
-	    '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.
+	    '" size="60" value="'.$value.'" id="'.$fieldname.'" /><a href="javascript:openbrowser'.
 	    "('".$formname."','".$fieldname."'".
 	    ",'rights')\">".&mt('Select').'</a>'.
             &relatedfield(0,$relatedsearchflag,$relatedsep); 
@@ -750,9 +753,9 @@ sub prettyinput {
     $value=~s/\"/\&quot\;/gs;
     return 
         '<input type="text" name="'.$fieldname.'" size="'.$size.'" '.
-        'value="'.$value.'" />'.
+        'value="'.$value.'" id="'.$fieldname.'" />'.
         &relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,
-                      $relatedvalue); 
+                      $relatedvalue);
 }
 
 # Create pageheader