[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[raeburn]

raeburn		Mon May  4 22:13:28 2026 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - Allow "Select" text in link used to open course selector window to be the
    label for the text form element where the selected course will be written. 
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1520 loncom/interface/loncommon.pm:1.1521
--- loncom/interface/loncommon.pm:1.1520	Mon May  4 19:42:58 2026
+++ loncom/interface/loncommon.pm	Mon May  4 22:13:28 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1520 2026/05/04 19:42:58 raeburn Exp $
+# $Id: loncommon.pm,v 1.1521 2026/05/04 22:13:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -898,7 +898,7 @@
 
 sub selectcourse_link {
    my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype,
-       $typeelement) = @_;
+       $typeelement,$labelfor) = @_;
    my $type = $selecttype;
    my $linktext = &mt('Select Course');
    if ($selecttype eq 'Community') {
@@ -912,6 +912,9 @@
        $linktext = &mt('Select');
        $type = '';
    }
+   if ($labelfor ne '') {
+       $linktext = '<label for="'.$labelfor.'">'.$linktext.'</label>';
+   }
    return '<span class="LC_nobreak">'
          ."<a href='"
          .'javascript:opencrsbrowser("'.$form.'","'.$unameele