--- loncom/interface/lonpickcourse.pm 2017/01/05 16:17:11 1.125 +++ loncom/interface/lonpickcourse.pm 2017/04/08 14:28:56 1.127 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.125 2017/01/05 16:17:11 raeburn Exp $ +# $Id: lonpickcourse.pm,v 1.127 2017/04/08 14:28:56 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -89,13 +89,13 @@ sub handler { $title = 'Selecting '.$type.'(s)'; } - # if called when a DC or DH is selecting a course + # if called when a DC, DH or DA is selecting a course my ($roledom,$rolename) = split(/:/,$env{'form.roleelement'}); if ($roledom) { $roleelement = ''; $submitopener = &processpick(); $autosubmit = 'process_pick("'.$roledom.'","'.$rolename.'")'; - if ($rolename eq 'dh') { + if (($rolename eq 'dh') || ($rolename eq 'da')) { my %lt = &Apache::lonlocal::texthash( title => 'Ad hoc role selection', preamble => 'Please choose an ad hoc role in the course.', @@ -103,7 +103,7 @@ sub handler { ); $rolechooser = <<"END"; -
+