if ( $multiobj eq "1" ) {
      print "<textarea wrap=auto name=aliasgrpapps rows=5 cols=10>",
          join("\n", split(/,/ , $aliasgrpapps)),"</textarea>\n";
          print "<input type=button onClick='ifield = document.forms[0].aliasgrpapps; if ( ifield.value == \"$aliasgrpapps\" ) { ifield.value = \"\" } ; chooser = window.open(\"/stta/obj_chooser.cgi?type=grpapps&multi=$multiobj&ord=ens&deft=alias&f=textarea&obj=\"+escape(ifield.value), \"chooser\", \"toolbar=no,menubar=no,scrollbars=yes,width=700,height=500\"); chooser.ifield = ifield; window.ifield = ifield' value=\"$text{browse}\"></td>\n";

 } else {
      print "   <td valign=top><select NAME=\"aliasgrpapps\">\n";
      print "                <option VALUE=\"none\">",&hlink("<b>$text{'f_selecgrpapps'}</b>","fselecgrpapps"),"\n";
     %h_grpapp=&list_grpapps();
     &out_htmlselobj(\%h_grpapp,"name","alias",$aliasgrpapps);
      print "        </select>\n";
      print "<input type=button onClick='selfield = document.forms[0].aliasgrpapps; ifield = document.forms[0].aliasgrpapps.options[document.forms[0].aliasgrpapps.selectedIndex]; if ( ifield.value == \"$aliasgrpapps\" ) { ifield.value = \"\" } ; chooser = window.open(\"/stta/obj_chooser.cgi?type=grpapps&multi=$multiobj&ord=ens&deft=alias&f=select&obj=\"+escape(ifield.value), \"chooser\", \"toolbar=no,menubar=no,scrollbars=yes,width=700,height=500\"); chooser.ifield = ifield; window.ifield = ifield' value=\"$text{browse}\"></td>\n";
 }
 print "</tr>";